标题: 版主,我照你的做了还是不行 [打印本页] 作者: ⿴°愛丶°牠 时间: 2010-1-18 09:07 标题: 版主,我照你的做了还是不行 <%
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%>