SecDir.asp
资源名称:wap.rar [点击查看]
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:3k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#include file="../admin_sb.asp"-->
- <%
- '************** ASPSecurity 插件 文件夹检查 *******
- ' Copyright 2006
- ' Create:2006-7-29
- ' Update:2006-7-29
- '***************************************************
- Dim SumFolders, Sun
- %>
- <html>
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <link rel="stylesheet" rev="stylesheet" href="../inc/control.css" type="text/css" media="all" />
- </head>
- <body class="ContentBody">
- <div class="MainDiv">
- <table width="100%" border="0" cellpadding="0" cellspacing="0" class="CContent">
- <tr>
- <th class="CTitle">雷客图ASP站长安全助手 特殊文件夹检查
- </tr>
- <tr>
- <td class="CPanel">
- <div id="updateInfo" style="background:ffffe1;border:1px solid #89441f;padding:4px;display:none"></div>
- <table width="100%" border="0" cellpadding="0" cellspacing="0">
- <tr>
- <td valign="top" style="padding:5px;width:140px"><img src="../images/Icon/ControlPanel.png" width="128" height="128"/></td>
- <td valign="top"> <div align="left" style="padding:5px;line-height:170%;clear:both;font-size:12px">
- <p></p>
- <strong>插件描述</strong>:黑客可能利用windows漏洞构造特殊文件夹躲避杀毒软件和本程序,该插件用于检查这种文件夹
- <br>
- <strong>插件说明</strong>:
- 如果站点文件夹较多可能需要稍等片刻,不要关闭本页面
- <form name="form1" method="post" action="" onSubmit="form1.submit.disabled=true;">
- <input type="submit" name="Submit" value="开始检查" style="background:#fff;border:1px solid #999;padding:2px 2px 0px 2px;margin:4px;border-width:1px 3px 1px 3px">
- <br>
- <input name="act" type="hidden" id="act" value="go">
- </form>
- <p>
- <%
- If request.Form("act") = "go" Then
- ShowAllFile(Server.MapPath(""))
- If Sun = "" Then
- response.Write("总共检查文件夹"&SumFolders&"个,没有发现特殊的!")
- Else
- response.Write("总共检查文件夹"&SumFolders&"个")
- End If
- End If
- %>
- </p>
- <a href="#" onClick="javascript:history.go(-1);">返回插件首页</a> </div>
- </tr>
- </table>
- </td></tr></table>
- </div>
- </body>
- </html>
- <%
- Sub ShowAllFile(Path)
- If Not Response.IsClientConnected Then Response.End()
- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set f = FSO.GetFolder(Path)
- Set fc = f.SubFolders
- For Each f1 in fc
- If first <> "" Then
- If first = f1.name Then
- response.Write("发现特殊目录 <b>" & Path &""& f1.name & " </b><br>")
- Sun = Sun + 1
- End If
- End If
- first = f1.name
- Next
- For Each f1 in fc
- ShowAllFile path&""&f1.name
- SumFolders = SumFolders + 1
- Next
- Set FSO = Nothing
- End Sub
- %>