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

<%
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

%>

没有结果