<%
Table_Keywords="我的汽车是大众的。我手机是SONY的。我的女友长像很性感。我是张三，你是哪位？"

response.write LinkStr(Table_Keywords)

Function LinkStr(str)
    dim str_1,str_2,str_3,str_4
    str_1 = "汽车,手机,性感,张三,李四"
    str_2 = split(str_1,",")
    for each str_3 in str_2
        if len(str_4)=0 then
            str_4=str
        end if
        str_4=replace(str_4,str_3,"<a href=/key/"&str_3&" target=_blank>"&str_3&"</a>")
    next
    LinkStr=str_4
End Function
%>

<%
Table_Keywords="我的汽车是大众的。我手机是SONY的。我的女友长像很性感。我是张三，你是哪位？"

response.write LinkStr(Table_Keywords)



Function LinkStr(str)
    dim str_1,str_2,str_3,str_4,str_5,str_6
    str_1 = "汽车-1.htm,手机-2.htm,性感-3.htm,张三-4.htm,李四-5.htm"
    str_2 = split(str_1,",")
    for each str_3 in str_2
        str_5=mid(str_3,(Instr(str_3,"-")+1))'链接
        str_6=replace(str_3,("-"&str_5),"")'关键字
        if len(str_4)=0 then
            str_4=str
        end if
        str_4=replace(str_4,str_6,"<a href="&str_5&" target=_blank>"&str_6&"</a>")
    next
    LinkStr=str_4
End Function
%>