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>