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后面得东西都给丢掉