Function ReplaceTest(str1,patrn,replStr)
Set regEx = New RegExp ' 建正则表达式
regEx.Pattern = patrn ' 模式。
regEx.IgnoreCase = True ' 是否区分大小写。
ReplaceTest = regEx.Replace(str1, replStr) ' 替换
End Function
content=request.form("content")
u1001=trim("<br><span class='style11'><A href='http://www.3netgo.com/' target=_blank>淘宝网精品女装</A> <A href='http://www.3netgo.com/' target=_blank>淘宝网女士服装 </A> <A href='http://www.3netgo.com/' target=_blank>淘宝网女士内衣</A>")
u1002=trim("<A href='http://www.3netgo.com/' target=_blank>淘宝网入口</A>(<A href='http://www.3netgo.com/jsjianf.htm' target=_blank>健身减肥</A><A href='http://www.3netgo.com/hzp.htm' target=_blank>化妆</A> <A href='http://www.3netgo.com/nanrz.htm' target=_blank>男人装</A><A href='http://www.3netgo.com/ms.htm' target=_blank>美食</A> <A href='http://www.3netgo.com/qc.htm' target=_blank>汽车</A> <A href='http://www.3netgo.com/sm.htm' target=_blank>数码</A> <A href='http://www.3netgo.com/yqdz.htm' target=_blank>产品订购 导购</A> )")
u1003=trim("<A href='http://www.3netgo.com/' target=_blank>淘宝网入口官方网站</A></span><br>")
content=ReplaceTest(content,"原创博客",u1001 + u1002 + u1003)