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

您可能感兴趣的文章:

• asp常用的正则表达式实现字符串的替换
• asp+Access通用的自动替换数据库中的字符串
• asp 图片正则 替换，替换前检查图片是不是本地地址的方法
• asp.net高效替换大容量字符实现代码
• asp.net(c#)判断远程图片是否存在
• asp.net保存远程图片的代码
• ASP保存远程图片到本地 同时取得第一张图片并创建缩略图的代码
• ASP替换、保存远程图片实现代码