极乐门资源网 Design By www.ioogu.com
复制代码 代码如下:
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
标签:
正则,参数

极乐门资源网 Design By www.ioogu.com
极乐门资源网 免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
极乐门资源网 Design By www.ioogu.com

评论“ASP 正则函数替换分页后的参数”

暂无ASP 正则函数替换分页后的参数的评论...