« 上一篇

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

 关于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=nothingEnd Function




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