SecDir.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:3k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#include file="../admin_sb.asp"-->
  2. <%
  3. '************** ASPSecurity  插件 文件夹检查 *******
  4. ' Copyright 2006
  5. ' Create:2006-7-29
  6. ' Update:2006-7-29
  7. '***************************************************
  8. Dim SumFolders, Sun
  9. %>
  10. <html>
  11. <head>
  12. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  13. <link rel="stylesheet" rev="stylesheet" href="../inc/control.css" type="text/css" media="all" />
  14. </head>
  15. <body class="ContentBody">
  16. <div class="MainDiv">
  17. <table width="100%" border="0" cellpadding="0" cellspacing="0" class="CContent">
  18.   <tr>
  19.     <th class="CTitle">雷客图ASP站长安全助手 特殊文件夹检查
  20.   </tr>
  21.   <tr>
  22.     <td class="CPanel">
  23.         <div id="updateInfo" style="background:ffffe1;border:1px solid #89441f;padding:4px;display:none"></div>
  24. <table width="100%" border="0" cellpadding="0" cellspacing="0">
  25.  <tr>
  26.  <td valign="top" style="padding:5px;width:140px"><img src="../images/Icon/ControlPanel.png" width="128" height="128"/></td>
  27.  <td valign="top">  <div align="left" style="padding:5px;line-height:170%;clear:both;font-size:12px">
  28.      <p></p>
  29.      <strong>插件描述</strong>:黑客可能利用windows漏洞构造特殊文件夹躲避杀毒软件和本程序,该插件用于检查这种文件夹
  30.              <br>
  31.              <strong>插件说明</strong>:
  32. 如果站点文件夹较多可能需要稍等片刻,不要关闭本页面
  33. <form name="form1" method="post" action="" onSubmit="form1.submit.disabled=true;">
  34.        <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">
  35.                <br>
  36.                <input name="act" type="hidden" id="act" value="go">
  37.                                        </form>
  38.      <p>
  39. <%
  40. If request.Form("act") = "go" Then
  41. ShowAllFile(Server.MapPath(""))
  42. If Sun = "" Then
  43. response.Write("总共检查文件夹"&SumFolders&"个,没有发现特殊的!")
  44. Else
  45. response.Write("总共检查文件夹"&SumFolders&"个")
  46. End If
  47. End If
  48. %>  
  49.                 </p>
  50. <a href="#" onClick="javascript:history.go(-1);">返回插件首页</a> </div>       
  51.  </tr>
  52. </table>
  53. </td></tr></table>
  54. </div>
  55. </body>
  56. </html>
  57. <%
  58. Sub ShowAllFile(Path)
  59. If Not Response.IsClientConnected Then Response.End()
  60. Set FSO = CreateObject("Scripting.FileSystemObject")
  61. Set f = FSO.GetFolder(Path)
  62. Set fc = f.SubFolders
  63. For Each f1 in fc
  64. If first <> "" Then
  65. If first = f1.name Then
  66. response.Write("发现特殊目录 <b>" & Path &""& f1.name & " </b><br>")
  67. Sun = Sun + 1
  68. End If
  69. End If
  70. first = f1.name
  71. Next
  72. For Each f1 in fc
  73. ShowAllFile path&""&f1.name
  74. SumFolders = SumFolders + 1
  75.     Next
  76. Set FSO = Nothing
  77. End Sub
  78. %>