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

 更新时间:2008年07月25日 23:44:48   作者:  
在分页系统里面用到的把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后面得东西都给丢掉

相关文章

最新评论