复制代码 代码如下:

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