Question

如何将论坛帖子中的所有出现某个关键子的都替换成一个链接

如何将论坛帖子中的所有出现某个关键子的都替换成一个链接
我用的是access数据库，asp论坛。比如说只要帖子中出现“好人”两个字，就全部替换成www.baidu.com怎么弄？谁能给个代码。
qumao5736能说的详细些吗？是在哪个文件下加？是在showpost.asp 中加么？在哪个位置？在<td colSpan=2 vAlign=top height="100%" bgcolor=#F5FFE8><div style="OVERFLOW:auto;WIDTH:100%;font-size:14px;line-height:170%;">
<%
if instr("|"&SiteSettings("BannedUserPost")&"|"&Request.Cookies("BadUserList")&"|","|"&Rs1("UserName")&"|")>0 then
Response.Write "==============================<br> <font color=RED>该用户帖子已被过滤 </font><br>=============================="
else
content=UBBCode(Rs("content"))
Response.Write ""&content&""
%>这后面加么？
只替换贴子里面内容的某个关键字，而比如标题等其他页面不替换

Answer 1

给你封个函数用用：
-------------------------------------------
strContent:比如帖子内容
word:关键字
url:链接地址
-------------------------------------------
Function BoldWord(strContent,word,url)
If word="" Then
BoldWord = strContent
Exit Function
End IF
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
objRegExp.Pattern="(" & word & ")"
strContent=objRegExp.Replace(strContent,"<a href='"& url &"' target='_blank'><font color=""#FF0000""><b>$1</b></font></a>" )
Set objRegExp=Nothing
BoldWord=strContent
End Function
------------------------------------------
例如：
result = BoldWord("帖子内容","好人","http://www.baidu.com")

Answer 2

设定几个你要的词语
然后进行判断
如果文章中含有你要的词语~~
if （文章中含有词语） then
response.write "链接+词语"
end if
这样就好了

Answer 3

后台没有屏蔽词？