28,390
社区成员
发帖
与我相关
我的任务
分享
<%
Dim Str,nStr,rule
Str = "1234ADDB[imgz]shixiaolin.jpg[alt]史晓林[/alt][/imgz]ADFADF1234ADDB[imgz]shixiadfasdfaolin.jpg[alt]史晓a林[/alt][/imgz]ADFADF"
'1. 只判断[imgz]xx[/imgz]
rule = "\[imgz\][\s\S.]*?\[\/imgz\]"
nStr = RegReplace(str, rule, "")
Response.Write nstr & "<hr />"
'2. 严谨一点,判断[imgz]xxx[alt]xxx[/alt]xx[/imgz]
rule = "\[imgz\][\s\S.]*?\[alt\][\s\S.]*?\[\/alt\][\s\S.]*?\[\/imgz\]"
Response.Write RegReplace(str, rule, "")
Function RegReplace(str, rule, Result)
With (New RegExp)
.IgnoreCase = True
.Pattern = rule
.Global = True
RegReplace = .Replace(str,Result)
End With
End Function
%>