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

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

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