摘要： IE8必须增加子菜单，隐藏 <link href="../css/right_menu.css" rel="stylesheet" type="text/css"> <DIV class=c_l> <DIV class=menu> <UL> <?php mysql_select_db($database_lr, $lr); $query = m... 阅读全文

摘要： PHP正则校验email的代码相信好好学过PHP的人都应该知道下面这段用于eamil校验的语句，但是真正能看懂的就不多了 <?php if (eregi("^[_.0-9a-z-]+@([0-9a-z][0-9a-z-]+.)+[a-z]{2,3}$",$email)) { echo "您的 E-Mail 通过初步检查"; } ?> 在这句话里，首先是应用了一个eregi函数，这个函数还算好理解。随便找本书，就能给你一段解释： 语法: int ereg(string pattern, string string, array [regs]); 阅读全文

摘要： asp下过滤重复字符串的代码，有时候我们需要过滤一些重复的字符串，下面的代码即可解决这个问题 比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc <% '过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.IgnoreCase=True RegEx.MultiLine = True RegEx.patt 阅读全文

摘要： 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突破盗链，方便使用 直接用正则替换，但没有判断功能 Function FormatImg(content) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(script)" Content=re.Replace(Content,"script") re.Pattern="<img.[^>]*src(=| )(.[^>]*)>" Content=re.repla 阅读全文