复制代码 代码如下:

<%

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://www.jb51.net/article/20816.htm