没用过正则表达式,帮看看怎么改才正确.谢谢

<%
Function SelectData(Content,key)
Dim re
Set re=New RegExp
re.IgnoreCase=True
re.Global=True
re.Pattern=key
SelectData=re.Execute(Content)
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

%>

没有结果

不清楚你想做什么

你要在你的代码里加一句啊,这样才能够显示你想要的结果!
<%
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%>