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