复制代码 代码如下:
<%
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 “ 位置: ” & matched.FirstIndex & “

度:”&matched.Length&”

Next

Else
Response.Write “” & regex.Pattern & “ 没有找到匹配”
End If

Set regex = nothing
%>


text:



regexp:<input name="reg" value="”>




关于具体的正则表达式函数
https://www.jb51.net/article/20816.htm