淘特ASP木马扫描器的代码(3)

        pathStr=request("path")
    else
        pathStr=server.MapPath("/")
    end if
    response.Write("<a href=""javascript:history.back();"">←返回</a><br>"&Chr(10))
    if act="scan" then        
        dim ScanFileType,Suspect,ScanFileNum,ScanFolderNum,BeginTime,EndTime,TmpPath,Report        
        ScanFileType = "asp,cer,asa,cdx"
        Suspect = 0
        ScanFileNum = 0
        ScanFolderNum =0        
        BeginTime = timer
        response.Write("<textarea name=""textarea"" style=""width:100%"" rows=""5"">"&Chr(10))
        response.Write("扫描日志："&vbcrlf)
        if(request.QueryString("file")<>"") then
            Call ScanFile(request.QueryString("file"),"")
        else
            Call ScanFolder(pathStr)
        end if
        response.Write("</textarea>")
        Call ShowResult()
        EndTime = timer        
        response.write "<br><font size=""2"">执行时间："&cstr(int(((EndTime-BeginTime)*10000 )+0.5)/10)&"毫秒</font>"    
    elseif act="del" then
        Call DelFile(request.QueryString("file"))
        response.Write("<br><a href="""&request.ServerVariables("HTTP_REFERER")&""">返回</a>")
    elseif act="down" then
        Call Download(request.QueryString("file"))
    else
        call FileList(pathStr)
        call ScanForm()
    end if
end if

%>
<hr>