📄 admin_main.asp

📁 雷客图ASP站长安全助手功能： 1、ASP木马查找（能够查出现在几乎所有的ASP木马） 2、文件篡改检查 3、可疑文件搜索 4、Access数据库保护 5、记录入侵者信息
💻 ASP
字号:
<!--#include file="inc/chkAdmin.asp"-->
<!--#include file="inc/version.inc"-->
<%
'************** ASPSecurity 后台管理首页*****************
' Copyright 2006
' Create:2006-1-14
' Update:2006-7-24
'********************************************************

Call CheckConfig()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<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>
    <script>
     var CVersion="<%=UpdateVer%>"
    </script>
    <script src="http://www.0x54.org/update.js"></script>
	<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">
		     <b>软件版本:</b> ASPSecurity v<%=ver%><br/>
			 <b>软件描述: </b>雷客图ASP站长安全助手（ ASPSecurity ） 是一个基于ASP的网站安全综合工具。其功能包括ASP木马查找、被篡改文件查找、可疑文件搜索、数据库安全保护等<br/>
		     <b>更新日期:</b> <%=UpdateDate%><br/>
			 <b>软件作者:</b> <a href="http://lake2.0x54.org" target="_blank">lake2</a><br/>
			 <b>官方网站:</b> <a href="http://www.0x54.org" target="_blank">http://www.0x54.org</a><br/>
			 <b>意见反馈:</b> <br>
			 在线留言: <a href="http://www.0x54.org/blog/article.asp?id=<%=ArticleID%>" target="_blank">http://www.0x54.org/blog/article.asp?id=<%=ArticleID%></a><br>
			 Email: lake2@mail.csdn.net <br/>
			 <b>致谢:</b> 本程序界面风格基本上都是来自 <a href="#" onClick="javascript:window.open('http://www.pjhome.net');"><strong>PuterJam</strong></a> 的PJBlog2，特此感谢之<br/>
			 <b>版权声明:</b> 1、ASPSecurity 程序版权归作者所有。 <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2、使用者必须遵循 <a href="#" onClick="javascript:window.open('http://www.creativecommons.cn');">创作共用（Creative Commons）</a> 协议。<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;3、你可以免费: 拷贝、分发、呈现和表演当前作品，但是不得移除 ASPSecurity 标识。 <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;4、非商业用途。 你不可将当前作品用于商业目的。<br/>
		    </div>    
		 </td>
	 </tr>
	</table>

</td></tr></table>
</div>
</body>
</html>
<%
Sub CheckConfig()
	On Error Resume Next
	Set FSOs = CreateObject("Scripting.FileSystemObject")
	If err Then
		response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" /><div style='font-size:12px;font-weight:bold;border:1px solid #006;padding:6px;background:#fcc'>你的不支持FSO组件，程序初始化失败!</div>"
		response.End()
	End If
	set ofile = fsos.OpenTextFile(Server.MapPath("config.asp"))
	filetxt = ofile.readall()
	Set regEx = New RegExp
	regEx.IgnoreCase = True
	regEx.Global = False
	regEx.Pattern = "CurrentPath = "".*"""
	Set Matches = regEx.Execute(filetxt)
	For Each Match in Matches
		If LCase(Match.Value) <> LCase("CurrentPath = """&Server.MapPath(".")&"\""") Then
			ofile.close()
			set ofile = fsos.OpenTextFile(Server.MapPath("config.asp"), 2, True)
			ofile.Write replace(filetxt, Match.Value, "CurrentPath = """&Server.MapPath(".")&"\""", 1, 1, 1)
			ofile.close()
			'response.Write("CurrentPath = """&Server.MapPath(".")&"\"""&"a"&Match.Value&"a"&filetxt)
		End If
	Next
	Set Matches = Nothing
	Set regEx = Nothing
	Set ofile = Nothing
	Set FSOs = Nothing
End Sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -