📄 admin_sysrestore.asp

📁 后台管理系统

💻 ASP

字号:

<!--#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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -