版主,我照你的做了还是不行

�帯銗圬肌銧�

<%
Function SelectData(Content,key)
Dim re,Matches
Set re=New RegExp
re.IgnoreCase=True
re.Global=True
re.Pattern=key
Matches=re.Execute(Content)
SelectData= Matches
End Function
NewsStr=SelectData("af.extasdf.ext","f\.ext")
If NewsStr.Count=0 Then
Response.Write "没找到匹配内容!"
End If
For i=0 To NewsStr.Count-1
Response.Write NewsStr(i)
Next%>



仍然没有结果

地上跑

请问你要实现什么功能呢?????