&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-=| 同上 |=-"
End If
regEx.Pattern = ".Saveb"
If regEx.Test(filetxt) Then
Report =
Report&"<tr><td>"&temp&"</td><td>.Save</td><td>使用了XMLHTTP的Save函数
写文件"&infiles&"</td><td>"&GetDateCreate(filepath)
&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-=| 同上 |=-"
End If
Set regEx = Nothing
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "<!--s*#includes*files*=s*"".*"""
Set Matches = regEx.Execute(filetxt)
For Each Match in Matches
tFile = Replace(Mid(Match.Value, Instr
(Match.Value, """") + 1, Len(Match.Value) - Instr(Match.Value, """") -
1),"/","")
If Not CheckExt(FSO1s.GetExtensionName(tFile))
Then
Call ScanFile( Mid(FilePath,1,InStrRev
(FilePath,""))&tFile, replace(FilePath,server.MapPath("")
&"","",1,1,1) )
SumFiles = SumFiles + 1
End If
Next
Set Matches = Nothing
