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>