admin_sysrestore.asp

来自「后台管理系统」· ASP 代码 · 共 55 行

ASP
55 行
字号 
<!--#include file="Inc/Inc.asp"-->
<!--#include file="../Include/MD5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Admin_Css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Call ClsAdmin.CheckManager(0,10)
ClsPub.Chk_Post()
Dim Action
Action=ClsPub.SafeRequest(3,"Action",1,0,0)
If Action="Restore" Then
	Call Restore()
Else
	Call Main()
End If
Sub Main()
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
	<tr> 
      <td height="22" class="title">添加管理员</td>	 
    </tr>
   	<tr> 
      <td height="22"><u><li>警告:当前系统配置将会被官方默认的配置替换.</li></u></td>	 
    </tr>
<tr>
<form method="POST" action="?Action=Restore">
<td class=td align=center height=100px>
<input type="submit" value="系统还原到默认配置" name="B1" onclick="{if(confirm('确定还原系统配置吗?')){return true;}return false;}"></td></form>
</td>
	</tr>	
</table>
<%
End Sub
Sub Restore()
	Dim Temp
	Temp=ClsPub.DB_Query("Select DefaultConfig From TW_Config")
	If Not IsArray(Temp) Then
		SysMsg="数据库已经数据不存在无法还原."
		Call ClsPub.ShowMsg("","")
		Exit Sub
	End If
	ClsPub.DB_Execute("Update TW_Config Set SysConfig='"&Temp(0,0)&"' Where Id=1")
	ClsPub.DelCahe("SysConfig")
	SysMsg="系统配置还原成功!"
	Call ClsPub.Alert("Admin_SysConfig.asp",0)
End Sub
%>
</body>
</html>
<%CloseAll%>
</body>
</html>

admin_sysrestore.asp - 源码说明

本页面展示了「后台管理系统」中的 admin_sysrestore.asp 源码文件，采用 ASP 编程语言编写，共 55 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与后台管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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