关于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

转载于:https://www.cnblogs.com/lljinz/archive/2011/05/27/2059816.html