帮帮忙啊。一个用ASP恢复SQLServer数据的问题
代码是这么写的:
if request("action")="backup" then
dim rs,sql
set rs=CreateObject("ADODB.RecordSet")
sql = "EXEC sp_addumpdevice 'disk','SUNBAK','" + CStr(server.MapPath("data\bak\"+ CStr(Date()) +".DAT")) + "'"
rs.open sql,conn,1,1
rs.close
sql = "BACKUP DATABASE " + SQLDataBaseName + " TO SUNBAK"
rs.open sql,conn,1,1
rs.close
sql = "EXEC sp_dropdevice 'SUNBAK'"
rs.open sql,conn,1,1
rs.close
set rs=nothing
%>
<!--#include file="inc/top.asp"-->
<p align="center">备份成功,文件名为<%= CStr(Date())%>.DAT,您可以将该文件下载到本地保存。<br><br>
<a href="/data/bak/<%= CStr(Date())%>.DAT">下载备份文件</a><br><br>
<a href="index2.asp">返回</a></p>
<!--#include file="inc/down.asp"-->
<%
elseif request("action")="restore" then
filename = CStr(server.MapPath("data\bak\"+ CStr(request("bakpath"))))
if USEFSO = 1 then
dim fs
set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(filename) = false then
Response.Redirect ("error.asp?errorid=404")
end if
end if
set rs=CreateObject("ADODB.RecordSet")
sql = "EXEC sp_addumpdevice 'disk','SUNBAK','" + filename + "'"
rs.open sql,conn,1,1
rs.close
sql = "RESTORE DATABASE " + SQLDataBaseName + " FROM SUNBAK"
rs.open sql,conn,1,1
rs.close
sql = "EXEC sp_dropdevice 'SUNBAK'"
rs.open sql,conn,1,1
rs.close
set rs=nothing
%>
<!--#include file="inc/top.asp"-->
<p align="center">恢复成功,请重新登陆本系统!<br><br>
<a href="logout.asp">返回</a></p>
<!--#include file="inc/down.asp"-->
<%
else
......
end if
但是备份的功能可以实现,恢复的功能却不能实现。为什么啊?
if request("action")="backup" then
dim rs,sql
set rs=CreateObject("ADODB.RecordSet")
sql = "EXEC sp_addumpdevice 'disk','SUNBAK','" + CStr(server.MapPath("data\bak\"+ CStr(Date()) +".DAT")) + "'"
rs.open sql,conn,1,1
rs.close
sql = "BACKUP DATABASE " + SQLDataBaseName + " TO SUNBAK"
rs.open sql,conn,1,1
rs.close
sql = "EXEC sp_dropdevice 'SUNBAK'"
rs.open sql,conn,1,1
rs.close
set rs=nothing
%>
<!--#include file="inc/top.asp"-->
<p align="center">备份成功,文件名为<%= CStr(Date())%>.DAT,您可以将该文件下载到本地保存。<br><br>
<a href="/data/bak/<%= CStr(Date())%>.DAT">下载备份文件</a><br><br>
<a href="index2.asp">返回</a></p>
<!--#include file="inc/down.asp"-->
<%
elseif request("action")="restore" then
filename = CStr(server.MapPath("data\bak\"+ CStr(request("bakpath"))))
if USEFSO = 1 then
dim fs
set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(filename) = false then
Response.Redirect ("error.asp?errorid=404")
end if
end if
set rs=CreateObject("ADODB.RecordSet")
sql = "EXEC sp_addumpdevice 'disk','SUNBAK','" + filename + "'"
rs.open sql,conn,1,1
rs.close
sql = "RESTORE DATABASE " + SQLDataBaseName + " FROM SUNBAK"
rs.open sql,conn,1,1
rs.close
sql = "EXEC sp_dropdevice 'SUNBAK'"
rs.open sql,conn,1,1
rs.close
set rs=nothing
%>
<!--#include file="inc/top.asp"-->
<p align="center">恢复成功,请重新登陆本系统!<br><br>
<a href="logout.asp">返回</a></p>
<!--#include file="inc/down.asp"-->
<%
else
......
end if
但是备份的功能可以实现,恢复的功能却不能实现。为什么啊?
...全文
相关推荐
ECharts柱状图-柱图26.rar
图表效果及代码实现讲解链接:https://blog.csdn.net/zhangjiujiu/article/details/144549556
Echarts+ajax+java+mysql实现饼图+折线图+柱状图
对Echarts3.0的基本图表实现,即饼图,折线图,柱状图。 从数据库读取数据显示在前台,图表可根据数据库数据实时更新。
ECharts 3 饼图 柱状图
ajax+json+ECharts 做出炫酷的效果
ECharts柱状图和饼图实现案例
使用ECharts+Java实现的完整案例,包括实现柱状图和饼图,代码完整,有数据库文件,数据库为Oracle
Echarts柱状图和线状图实例
主要是针对echarts图表应用的实例开发,柱状图实例中针对item的斜体展示方法,鼠标移动到每个item时的数据展示(函数计算方式)。线状图的简单实例应用。


