文字 匹配词添加链接

<%
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,",")

    str_4=str

     for i=0 to UBound(str_2)-1
          
       
str_4=replace(str_4,str_2(i),"<a href=/key/"&str_2(i)&" target=_blank>"&str_2(i)&"</a>")
   
next
   
LinkStr=str_4

End Function
%>