<% 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> 長(zhǎng)
度:"&matched.Length&"<BR>" Next
Else Response.Write "<B>" & regex.Pattern & "</B> 沒(méi)有找到匹配" End If
