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

FunctionDRexPage(Str)
DimRegEx
IfIsNull(Str)OrStr=""ThenExitFunction
SetRegEx=NewRegExp
RegEx.IgnoreCase=True
RegEx.pattern="(&)?page=(d)+"
DRexPage=regEx.replace(Str,"")'(Str,"$1")
SetRegEx=Nothing
EndFunction

在分页系统里面用到的把page后面得东西都给丢掉