关于ASP自动给文章中的关键词加链接的问题

VBScript code

'关键词带连接
Function LinkWord(word)
Dim KeyWord,Kurl,RstK,SqlK,MiddleWord,StartWord,LastWord,FinalWord,P
SqlK="SELECT keyword_word,keyword_url FROM Lelv_w_KeyWord WHERE keyword_status=1"
Set RstK=Server.CreateObject("Adodb.Recordset")'Conn.Execute(SqlK)
RstK.open SqlK,conn,1,1
'response.write("<script language=javascript>alert('"&RstK.recordcount&"');</=script>")
'Do While Not RstK.Eof
IF Not(RstK.bof and RstK.eof) then '不为空
For P=1 to RstK.Recordcount  '循环替换
KeyWord=RstK("keyword_word")
Kurl=RstK("keyword_url")
If RstK.Recordcount=1 then
StartWord=Replace(""&word&"",""&KeyWord&"","<a href="""&Kurl&""">"&KeyWord&"</a>"[,0[,1[,0]]])
FinalWord=StartWord
Exit For  '如果记录只有1条 StartWord=Replace(""&word&"",""&KeyWord&"","<a href="""&Kurl&""">"&KeyWord&"</a>",1,1)
Else      '如果记录不止一条
If p=1 then  '在第一条
StartWord=Replace(""&word&"",""&KeyWord&"","<a href="""&Kurl&""">"&KeyWord&"</a>")
'response.Write("<script language=javascript>alert('"&FinalWord&"');<script>")
MiddleWord=StartWord'传递
response.Write("<script language=javascript>alert('"&MiddleWord&"');</script>")
else      '不在第一条
LastWord=Replace(""&MiddleWord&"",""&KeyWord&"","<a href='"&Kurl&"'>"&KeyWord&"</a>")
FinalWord=LastWord'传递
end if
end if
RstK.MoveNext
Next
Response.Write(""&StartWord&"")
End if
RstK.close
Set RstK=nothing
End Function



用字符串截取
if instr(str,key)>0 then
'存在，第一个出现关键字的置：instr(str,key)再往后截取关键字的长度，再替换。组成新的str.再找下一个关键字。
else
'不存在，下一个关键字
end if