首页 / 正则表达式 / ASP 正则函数替换分页后的参数

复制代码 代码如下:
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