⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 backup_admin.asp

📁 一个小型ASP做的工资管理系统,这也是别人做的,我觉得他很地干静.
💻 ASP
字号:
<!--#include file="ked.asp"-->
<!--#include file="conn.asp"-->
<%
user=Request.Cookies("aduser")
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(21)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“22.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if

dim datafolder,info
datafolder="\date" '这里是数据库路径,以“\”开头
if request.form("menu")="bak" then
bakfolder=Trim(Request.Form("bakfolder"))
Set Fso=server.createobject("scripting.filesystemobject")
if not fso.FolderExists(bakfolder) then
fso.createfolder bakfolder
end if
Fso.CopyFolder server.MapPath("/")&datafolder,bakfolder
If Err Then
 info= "程序出错,请联系管理员!"
Else
 info= "<b>网站数据库已经成功备份!</b>"
end if
end if
if request.form("menu")="res" then
bakfolder=Trim(Request.Form("bakfolder"))
Set Fso=server.createobject("scripting.filesystemobject")
Fso.CopyFolder bakfolder,server.MapPath("/")&datafolder
If Err Then
 info= "程序出错,请联系管理员!"
Else
 info= "<b>网站数据库已经成功恢复!</b>"
end if
end if
%>
<html>
<head>
<title>数据库操作</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body>

<table width="70%"  border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <tr class="a1">
    <td height="25" align="center">数据库备份/恢复 </td>
  </tr>      <form name="form1" method="post" action="" onSubmit="return confirm('确定要执行此操作吗?');">
  <tr class="a3">
    <td align="center">路径:

        <input name="bakfolder" type="text" value="<%=server.MapPath("..\")%>\backupdate" size="60" readonly>
    </td>
  </tr>
  <tr class="a4">
    <td align="center"><%if info="" then
	Response.Write("请确定备份数据库的路径")
	else
	Response.Write info
	end if%></td>
  </tr>
  <tr class="a3">
    <td align="center"><input type="radio" name="menu" value="bak">
备份
  <input type="radio" name="menu" value="res">
恢复</td>
  </tr>
  <tr class="a3">
    <td align="center"><input type="submit" name="Submit" value="确定"> </td>
  </tr></form>
</table>
</body>
</html>

⌨️ 快捷键说明

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