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

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