📄 system.asp

📁 一个带有后台管理的小偷程序

💻 ASP

字号:


<%
  	if session("admin")="" then
  		response.redirect "admin.asp"
  	end if
%>
<%if session("userkey")=0 then%>
<%call main()%>
<%else%>
<script language=javascript>  
alert( "错误：您无权进行模版管理！"  );
location.href = "javascript:history.back()"  
</script>
<%end if%>

<%sub main()%>
<title>--管理页面</title>
<link rel="stylesheet" href="../style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn"><BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
dim objFSO
dim fdata
dim objCountFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
  Set objCountFile = objFSO.OpenTextFile(Server.MapPath("../config.asp"),1,True)
  If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
 else
  fdata=request("fdata")
  Set objCountFile=objFSO.CreateTextFile(Server.MapPath("../config.asp"),True)
  objCountFile.Write fdata
 end if
 objCountFile.Close
 Set objCountFile=Nothing
 Set objFSO = Nothing
%> 
<form method=post>
<table width="588" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder" height="292">
<tr>
<td class="forumrow" height="32" width="624">
注意：文件将被保存在你安装<font color="red">后台</font>目录下的<font color="#FF0000">system</font><font color=red>.asp</font>文件里，如果您的空间不支持<font color=red>FSO</font>，请直接编辑该文件！如果您对asp代码不了解，请不要随意编辑。</font></td>
              </tr>
                <tr>
<td class="forumrow" height="199" width="624">
<textarea name="fdata" cols="83" rows="15"><%=fdata%></textarea>
</td>
</tr>
<tr>
<td class="forumrow" height="21" width="624">
<input type="reset" name="Reset" value="重新修改">
<input type="submit" name="save" value="提交修改"> 当前文件路径：<b><%=Server.MapPath("System.asp")%></b>
</td>
</tr></table>

</form><%end sub%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -