ASP 正则函数替换分页后的参数

2022-05-13 0 401

复制代码 代码如下:

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

免责声明:
1、本网站所有发布的源码、软件和资料均为收集各大资源网站整理而来;仅限用于学习和研究目的,您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。 不得使用于非法商业用途,不得违反国家法律。否则后果自负!

2、本站信息来自网络,版权争议与本站无关。一切关于该资源商业行为与www.niceym.com无关。
如果您喜欢该程序,请支持正版源码、软件,购买注册,得到更好的正版服务。
如有侵犯你版权的,请邮件与我们联系处理(邮箱:skknet@qq.com),本站将立即改正。

NICE源码网 正则表达式 ASP 正则函数替换分页后的参数 https://www.niceym.com/34747.html