登陆

ASP正则函数 大鸟哥给的好东西

ASP/Visual Basic代码
  1. Function DRexPage(Str)   
  2. Dim RegEx   
  3. If IsNull(Str) Or Str="" Then Exit Function  
  4. Set RegEx=New RegExp   
  5.     RegEx.IgnoreCase=True  
  6.     RegEx.pattern="(\&)?page=(\d)+"  
  7.     DRexPage=regEx.replace(Str,"")  '(Str,"$1")   
  8.     Set RegEx=Nothing  
  9. End Function  

在分页系统里面用到的把page后面得东西都给丢掉

Tags: 正则, 函数, 替换

« 上一篇 | 下一篇 »

相关文章