复制代码 代码如下:
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
程序员
ASP 正则函数替换分页后的参数
作者：admin 2021-07-05 我要评论
复制代码 代码如下: Function DRexPage(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.IgnoreCase=True RegEx.patte...
（在说正事之前，我要推荐一个福利：你还在原价购买阿里云、腾讯云、华为云服务器吗？那太亏啦！来这里，新购、升级、续费都打折，能够为您省60%的钱呢！2核4G企业级云服务器低至69元/年，点击进去看看吧>>>)
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
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
原文链接：https://m.jb51.net/article/20354.htm
版权声明：本文转载自网络，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。本站转载出于传播更多优秀技术知识之目的，如有侵权请联系QQ/微信：153890879删除
相关文章-
ASP 正则函数替换分页后的参数
-
javascript RegExp 对象属性与方法和应
-
PHP 正则的使用基础入门
-
PHP 正则表达式函数库(两套)
精彩导读
热门资讯