ASP正则表达式技巧

代码如下:

<%
str = request("str")
reg = request("reg")
set regex = new RegExp
 With regex
.Pattern = reg
.IgnoreCase = False
.Global = True
End With Set match = regex.Execute(str) If match.Count > 0 Then
For Each matched in match
Response.Write "<B><input value=" & matched.Value & " ></B> 位置: <B>" & matched.FirstIndex & "</B> 长

度:"&matched.Length&"<BR>"
Next
 
Else
Response.Write "<B>" & regex.Pattern & "</B> 没有找到匹配"
End If
 
Set regex = nothing
%>
 
<form method=post>
text:<br>
<textarea cols=50 rows=10 name="str"><%=str%></textarea><br>
regexp:<input name="reg" value="<%=reg%>"><br>
<input type=submit value="regexp">
</form>