ASP 正则函数替换分页后的参数
更新时间:2009年10月12日 15:15:20 作者:
在分页系统里面用到的把page后面得东西都给丢掉的正则代码。需要的朋友可以参考下。
复制代码 代码如下:
Function DRexPage(Str)
Dim RegEx
If IsNull(Str) Or Str="" Then Exit Function
Set RegEx=New RegExp
RegEx.IgnoreCase=True
RegEx.pattern="(\&)?page=(\d)+"
DRexPage=regEx.replace(Str,"") '(Str,"$1")
Set RegEx=Nothing
End Function
相关文章
用正则表达式批量为a增加target=''''_blank''''新窗口打开的方法
今天在制作模板的时候,发现一些页面不是新窗口打开,有时候一些内容新窗口打开好些,本来打算手工替换的,发现了太多,还是正则比较方便一些2013-12-12
最新评论