输出文章时,自动设置关键词链接(多个链接)_网络飞虎


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

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



Copyright 2006-2008 Powered By ASP188.CN 京ICP备07500521号 .