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

1. Function DRexPage(Str)      
2. Dim RegEx      
3. If IsNull(Str) Or Str="" Then Exit Function     
4. Set RegEx=New RegExp      
5.     RegEx.IgnoreCase=True     
6.     RegEx.pattern="(\&)?page=(\d)+"     
7.     DRexPage=regEx.replace(Str,"")  '(Str,"$1")      
8.     Set RegEx=Nothing     
9. End Function     

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