admin_backdb.asp

来自「1、全面展示宾馆的自然情况和服务内容； 2、介绍宾馆信息,帮助客人了解宾馆相」· ASP 代码 · 共 223 行

ASP
223 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<%
if session("admin_name")="" then
response.write "<SCRIPT language=JavaScript>alert('??2??e￡?????óDè¨?T′ò?a′?ò3￡?');"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%>
<!--#include file="conn.asp" -->
<BODY topMargin=0 leftmargin="0" marginheight="0">
<link rel="stylesheet" type="text/css" href="../style.css">
 <% if Request.QueryString("action")="back" then
 currf=request.form("currf")
 currf=server.mappath(currf)
  backf=request.form("backf")
backf=server.mappath(backf)
   backfy=request.form("backfy")

 Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
	err.clear
response.write "<div class=tdc>2??ü?¨á￠fso???ó￡???è·±￡??μ??????§3?fso:￡?"
response.end
	end if
 if objfso.Folderexists(backf) then
 else
  Set fy=objfso.CreateFolder(backf)
  end if
objfso.copyfile currf,backf& "\"& backfy
response.write "<div class=tdc>±?·Yêy?Y?a3é1|￡??úμ?êy?Y?a±?·Y?·???a" &backf& "\"& backfy&"</div>"
response.end
end if 

%>
<%
if Request.QueryString("action")="back" then
currf=request.form("currf")
currf=server.mappath(currf)
backf=request.form("backf")
backf=server.mappath(backf)
backfy=request.form("backfy")
on error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
err.clear
response.write "<script>alert(""2??ü?¨á￠fso???ó￡???è·±￡??μ??????§3?fso:￡?"");history.back();</script>"
response.end
end if
if objfso.Folderexists(backf) then
else
Set fy=objfso.CreateFolder(backf)
end if
objfso.copyfile currf,backf& "\"& backfy
response.write "<script>alert(""±?·Yêy?Y?a3é1|"");history.back();</script>"
end if 
if Request.QueryString("action")="ys" then
currf=request.form("currf")
currf = server.mappath(currf)
ys=request.form("ys")
Const JET_3X = 4
strDBPath = left(currf,instrrev(currf,"\"))
on error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
err.clear
response.write "<script>alert(""2??ü?¨á￠fso???ó￡???è·±￡??μ??????§3?fso:￡?"");history.back();</script>"
response.end
end if
if objfso.fileexists(currf) then 
Set Engine = CreateObject("JRO.JetEngine")
on error resume next
If ys = 1 Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb"
End If
objfso.CopyFile strDBPath & "fytemp.mdb",currf
objfso.DeleteFile(strDBPath & "tourtemp.mdb")
Set objfso = nothing
Set Engine = nothing
if err then 
err.clear
response.write "<script>alert(""′í?ó￡ooü±§??￡?óéóú?μí3′í?ó￡??1??꧰ü:￡?"");history.back();</script>"
response.end
end if
response.write "<script>alert(""?1??êy?Y?a3é1|"");history.back();</script>"
response.end
Else
response.write "<script>alert(""′í?ó:?ò2?μ?êy?Y?a???t￡?"");history.back();</script>"
response.end
End If
end if
if Request.QueryString("action")="reload" then
currf=request.form("currf")
currf=server.mappath(currf)
backf=request.form("backf")
if backf="" then
response.write "<script>alert(""??ê?è??úòa???′μ?êy?Y?aè???"");history.back();</script>" 
else
backf=server.mappath(backf)
end if
on error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
err.clear
response.write "<script>alert(""2??ü?¨á￠fso???ó￡???è·±￡??μ??????§3?fso:￡?"");history.back();</script>"
response.end
end if
if objfso.fileexists(backf) then 
objfso.copyfile ""&backf&"",""&currf&""
response.write "<script>alert(""???′êy?Y?a3é1|"");history.back();</script>"
response.end
else
response.write "<script>alert(""′í?ó:±?·Y???????T?úμ?±?·Y???t￡?"");history.back();</script>"
response.end
end if
end if 

set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<form name="form1" method="POST" action="admin_backdb.asp?action=back">
<div align="center">
<center>
      <br>
      <table border="1" cellpadding="5" bordercolorlight="#326598" bordercolordark="#ffffff" width="98%" id="AutoNumber1" cellspacing="0">
        <tr> 
          <td width="100%" height="25" background="../images/pics/tile_sub.gif"><font color="#FFFFFF"><strong>备份数据库 
</strong></font></td>
</tr>
<tr>
          <td width="100%" bgcolor="#FBFDFF"> 如果您的空间不支持fso，您将不能进行如下操作，只能手动 </td>
</tr>
<tr>
<td width="100%" bgcolor="#FBFDFF"> 数据库路径： <span style="background-color: #F7FFF7"> 
            <input type="text" name="currf" size="30" value="../../DataBase/backdb.mdb">
            </span>&nbsp;&nbsp; 


 备份数据目录： 

&nbsp; 
<span style="background-color: #F7FFF7"> 
<input type="text" name="backf" size="20" value="back"></span></td>
</tr>
<tr>
<td width="100%" bgcolor="#FBFDFF">数据库名称：<span style="background-color: #F7FFF7"> 
<input type="text" name="backfy" size="20" value="back.mdb">&nbsp; 
<input type="submit" name="Submit" value="备份" >
<input type="reset" name="Submit2" value="重置" > 
</span> 
</td>
</tr>
</table>
</center>
</div>
</form>
<form name="form1" method="POST" action=admin_backdb.asp?action=ys>
<div align="center">
<center>
      <table border="1" cellpadding="5" bordercolorlight="#326598" bordercolordark="#ffffff" width="98%" id="AutoNumber2" cellspacing="0">
        <tr> 
          <td width="100%" height="25" background="../images/pics/tile_sub.gif"><font color="#FFFFFF"><strong>压缩数据库 
</strong></font></td>
</tr>
<tr>
<td width="100%">
  如果您的空间不支持fso，您将不能进行如下操作，只能手动 </td>
</tr>
<tr>
<td width="100%">
 数据库路径：
<span style="background-color: #F7FFF7">
            <input type="text" name="currf" size="20" value="back/back.mdb">
            &nbsp;
<input type="submit" name="Submit" value="压缩" >
<input type="reset" name="Submit2" value="重置" >
&nbsp;&nbsp; </span>
<input type="radio" value="2" checked name="ys">
使用 Access 2000 数据库 </td>
</tr>
</table>
</center>
</div>
</form>
<form name="form1" method="POST" action="admin_backdb.asp?action=reload">
<div align="center">
<center>
      <table border="1" cellpadding="5" cellspacing="0" bordercolorlight="#326598" bordercolordark="#ffffff" width="98%" id="AutoNumber3">
        <tr> 
          <td width="100%" height="25" background="../images/pics/tile_sub.gif"><font color="#FFFFFF"><strong>恢复数据库</strong></font></td>
</tr>
<tr>
          <td width="100%">如果您的空间不支持fso，您将不能进行如下操作，只能手动 </td>
</tr>
<tr>
<td width="100%"> 数据库路径： <span style="background-color: #F7FFF7">
            <input type="text" name="currf" size="30" value="../../DataBase/back.mdb">
            </span>&nbsp;&nbsp; 备份数据库路径 <span style="background-color: #F7FFF7">
            <input type="text" name="backf" size="20" value="back/back.mdb"></span>&nbsp;
<span style="background-color: #F7FFF7">
<input type="submit" name="Submit" value="恢复" >
<input type="reset" name="Submit2" value="重置" > 
</span></td>
</tr>
</table>
</center>
</div>
</form>

</body>
</html>

admin_backdb.asp - 源码说明

本页面展示了「1、全面展示宾馆的自然情况和服务内容； 2、介绍宾馆信息,帮助客人了解宾馆相关信息； 3、为客户提供宾馆所在地旅游景点的详细信息； 4、向客户全面提供宾馆客服信息； 5、实现网上在线定房」中的 admin_backdb.asp 源码文件，采用 ASP 编程语言编写，共 223 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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