复制代码 代码如下:?php function pregstring($str){ $strtemp = trim($str); $search = array( "|'|Uis", "|script[^].*?/script|Uis", // 去掉 javascript "|\[字定义\].*\[/字定义\]|Uis", // 去掉缩略图 "|[\/\!].*?[^]*?|Uis", // 去掉... [阅读全文]

复制代码 代码如下: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: List-j/1100.aspx -- List.aspx?id=1100 List-j/(\d+).aspx -- List.aspx?id=$1 例2: List.aspx?id=1100 -- List-j/1100.aspx List.aspx\?jt=(\d+) -- List-j/$1.aspx (注：" List.aspx?id=1100"中出现"?"需转义) ... [阅读全文]

直接用正则替换，但没有判断功能 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(=| )(.[^]*)" ... [阅读全文]

我写的是这样: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "(s+cript(.+?)\/s+cript)" originCode= reg.Replace(originCode, "") reg.Patt... [阅读全文]

a href="1.htm"251/a 怎么用JS把251替换为 span style='background-color: #99FF99'251/span [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]... [阅读全文]

function replacestr(str) dim re set re=new regexp re.ignorecase=true re.global=true re.pattern="\D" str=re.replace(str,"") replacestr=str set re=nothing end function... [阅读全文]

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.... [阅读全文]

以下这段代码截取自某一网页源码： onClick="MM_openBrWindow('../photo/nlife/sfc/pages/O'Connors_jpg.htm','RD','width=456,height=368')" onClick="MM_openBrWindow('../photo/nlife/sfc/pages/Trad'r Sam_jpg.htm','RD','width=... [阅读全文]