输出文章时，自动设置关键词链接（多个链接）_网络飞虎

<%
Function ReplaceWord(Content,Str,Url)
    Str1=Split(Str,"|")
Url1=Split(Url,"|")
       For I = 0 To Ubound(Str1)
           Content=Replace(Content,Str1(I),"<a href="""&Url1(I)&""">"&Str1(I)&"</a>")
    Next
       ReplaceWord=Content
    response.Write ReplaceWord
End Function

ReplaceWord "飞虎网络工作室,美女图片站，中国房地产，欧美流行网页模板","网|房地产|美女","http://www.asp188.cn|http://trade.asp188.cn|http://m.asp188.cn"
%>

将关键字和对应的链接地址，分别存放在两个字段中即可