<%If Session("pig") <> 1 then%>
<% else if request.QueryString("act")<>"scan" then
%>
<% else server.ScriptTimeout = 600 DimFileExt = "asp,cer,asa,cdx" Sun = 0 SumFiles = 0 SumFolders = 1 if request.Form("path")="" then response.Write("No Hack") response.End() end if timer1 = timer if request.Form("path")="" then TmpPath = Server.MapPath("") elseif request.Form("path")="." then TmpPath = Server.MapPath(".") else TmpPath = Server.MapPath("")&""&request.Form("path") end if Call ShowAllFile(TmpPath) %>
ASPSecurity For Hacking
| |||||
---|---|---|---|---|---|
扫描完毕!一共检查文件夹<%=SumFolders%>个,文件<%=SumFiles%>个,发现可疑点<%=Sun%>个
|
<%
timer2 = timer
thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10)
response.write "
本页执行共用了"&thetime&"毫秒"
end if
end if
%>