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