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