实现文章内容关键字链接自动替换-ASP代码

最新推荐文章于 2024-04-30 03:37:32 发布

aloesky

最新推荐文章于 2024-04-30 03:37:32 发布

阅读量634

点赞数

文章标签：正则表达式 regex function 产品 class

本文链接：https://blog.csdn.net/aloesky/article/details/5865813

版权

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)