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