<%
Function RegExpTest(patrn,strng,rewho)
Dim re,Match,Matches
RetStr=strng
Set re = New RegExp //创立正则表达式
re.Pattern = patrn //创立正则表达式形式
re.IgnoreCase = True //是不是不辨别巨细写,你可以封闭,由于HTML标志是不辨别巨细写的。
re.Global = True //是不是全局可用
Set Matches = re.Execute(strng) //履行搜刮
For Each Match in Matches //遍历婚配纠合
RetStr=replace(RetStr,match.value,rewho) //找到区配字符,并入手下手交换
Next
RegExpTest = RetStr
End Function
content="<a href= test.asp >test1</a>test2 <strong>test3</strong> test4" //这是原文
pattern="<[^{><}]*>" //正则表达式形式,这里也能够了解成将要被交换失落的字符
Restr="" //将要交换成甚么字符
response.write RegExpTest(pattern,content,restr)
%>
<%
Function RegExpTest(patrn,strng,rewho)
Dim re,Match,Matches
RetStr=strng
Set re = New RegExp //创立正则表达式
re.Pattern = patrn //创立正则表达式形式
re.IgnoreCase = True //是不是不辨别巨细写可以封闭,由于HTML标志不辨别巨细写
re.Global = True //是不是全局可用
Set Matches = re.Execute(strng) //履行搜刮
For Each Match in Matches //遍历婚配纠合
RetStr=replace(RetStr,match.value,rewho) //找到区配字符,并入手下手交换
Next
RegExpTest = RetStr
End Function
content="<a href=<b>>test<>" //这是原文
pattern="<[^{><}]*>" //正则表达式形式,这里也能够了解成将要被交换失落的字符
Restr="" //将要交换成甚么字符
Stest=RegExpTest(pattern,content,restr)
response.write RegExpTest(pattern,STest,restr)
%>