求网站站内链接的asp代码，我想通过修改网站源代码的方式将我的网站上的文章中的某些关键词自动加上超链接

Question

要加的关键词不多，所以不需用数据库的方式，力求简单，关键词和对应的链接直接书写在代码中用数组就行

Answer 1

function ubbbq(rsCountStr,s_string,v_struing)
ubbbq = replace(rsCountStr, s_string, "<a herf=""“&v_struing&”"">s_string</a>")
end function
‘调用时用（实例）
strCount = ubbbq(rs("字段名"),“要加链接的词”,“链接地址”)
strCount = ubbbq(strCount ,“要加链接的第二个词”,“第二个词的链接地址”)
.............response.write strCount :response.end

追问

有一点小错误，函数中S_string变量没加连接符&应改成
ubbbq = replace(rsCountStr, s_string, ""&s_string&"")
就行了，经测试完全可用，谢谢！！！！