首页 > 编程 > regex > 正文

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

2020-01-20 22:23:43
字体:
来源:转载
供稿:网友
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后面得东西都给丢掉

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表