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

<%
Function ReplaceWord(strContent,word)
   dim objRegExp
   Set objRegExp=new RegExp
   objRegExp.IgnoreCase =true
   objRegExp.Global=True

   objRegExp.Pattern="(" & word & ")"
   strContent=objRegExp.Replace(strContent,"<a href=""http://www.asp188.cn"">$1</a>" )

   Set objRegExp=Nothing
   ReplaceWord=strContent
   response.Write ReplaceWord
End Function

ReplaceWord "飞虎网络工作室,美女图片站，中国房地产，欧美流行网页模板","网"

%>