<%

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



仍然没有结果