<%
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>