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后面得東西都給丟掉