代码如下:

<% 

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>

正则表达式在线测试：

http://tool.aspxhome.com/RegExp-Tester.htm