复制代码 代码如下:
<%
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