<%
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%>
IP卡
狗仔卡
发表于 2010-1-18 09:07:21
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡