代码驿站移动版

当前位置：主页 > >

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

时间：2021-03-08 11:39:13 | 栏目： | 点击：次

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

您可能感兴趣的文章:

相关文章