ASPÕýÔò±í´ïʽ¼¼ÇÉ

¸´ÖÆ´úÂë ´úÂëÈçÏÂ:

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

¹ØÓÚ¾ßÌåµÄÕýÔò±í´ïʽº¯Êý
https://www.jb51.net/article/20816.htm