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

2026-01-17 14:34:13 作者:用户投稿
复制代码 代码如下:
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

联络方式:

4008905355

邮箱:9196886@qq.com

Q Q:9196886

微信二维码