asp 在线备份与恢复sqlserver数据库的代码


asp在线备份sql server数据库:
1、备份sqlserver

复制代码 代码如下:

<%
SQL="backup database 数据库名 to disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"
set cnn=Server.createobject("adodb.connection")
cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="
cnn.execute SQL
on error resume next
if err<>0 then
response.wrITe "错误:"&err.Descripting
else
response.wrITe "数据备份成功!"
end if
%>

2、恢复sqlserver
复制代码 代码如下:

<%
SQL="Restore database 数据库名 from disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"
set cnn=Server.createobject("adodb.connection")
cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="
cnn.execute SQL
on error resume next
if err<>0 then
response.wrITe "错误:"&err.Descripting
else
response.wrITe "数据恢复成功!"
end if
%>

ACCESS原理一样
复制代码 代码如下:

<%
'*****************************************
function CopyTo(ByVal cFile,ByVal toFile)
cFile=Server.MapPath(cFile) ‘所要备份的文件
toFile=Server.MapPath(toFile) ‘备份文件
Dim cFso,cf
set cFso=Server.CreateObject("Scripting.FileSystemObject")
cFso.fileexists(cFile)
cFso.Copyfile cFile,toFile
end function
'*********************************************
' ASP实现备份及恢复ACCESS数据库操作
'本页面为 databackup.asp
dim dbpath,bkfolder,bkdbname,fso,fso1
call main()
call main2()
conn.close
set conn=nothing
sub main()
if request("action")="Backup" then
call backupdata()
else
%>
<table cellspacing=1 cellpadding=1 align=center width="90%">
<tr>
<th height=25 >
<B>数据库备份</B>
</th>
</tr>
<form method="post" action="databackup.asp?action=Backup">
<tr>
<td height=100 style="line-height:150%">

当前数据库路径(相对路径):
<input type=text size=15 name=DBpath value="../mdb/database.mdb"><BR>
备份数据库目录(相对路径):
<input type=text size=15 name=bkfolder value=../Databackup> 如目录不存在,程序将自动创建<BR>
备份数据库名称(填写名称):
<input type=text size=15 name=bkDBname value=database.mdb> 如备份目录有该

文件,将覆盖,如没有,将自动创建<BR>
<input type=submIT value="备份数据"><hr align="center" width="90%" color="#999999"></td>
</tr>
</form>
</table>
<%
end if
end sub
sub main2()
if request("action")="Restore" then
Dbpath=request.form("Dbpath")
backpath=request.form("backpath")
if dbpath="" then
response.wrITe "请输入您要恢复成的数据库全名"
else
Dbpath=server.mappath(Dbpath)
end if
backpath=server.mappath(backpath)
Response.wrITe Backpath
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
fso.copyfile Dbpath,Backpath
response.wrITe "<font color=red>成功恢复数据!</font>"
else
response.wrITe "<font color=red>备份目录下并无您的备份文件!</font>"
end if
else
%>
<table align=center cellspacing=1 cellpadding=1 width="90%">
<tr>
<th height=25 >
<B>恢复数据库</B>
</th>
</tr>
<form method="post" action="databackup.asp?action=Restore">
<tr>
<td height=100 >
备份数据库路径(相对):
<input type=text size=30 name=DBpath value="../Databackup/database.mdb"> <BR>
当前数据库路径(相对):
<input type=text size=30 name=backpath value="../mdb/database.mdb"><BR>
<input type=submIT value="恢复数据"> <hr width="90%" align="center" color="#999999">
<font color="#666666">·注意:所有路径都是相对路径 </font></td>
</tr>
</form>
</table>
<%
end if
end sub
sub backupdata()
Dbpath=request.form("Dbpath")
Dbpath=server.mappath(Dbpath)
bkfolder=request.form("bkfolder")
bkdbname=request.form("bkdbname")
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
If CheckDir(bkfolder) = True Then
fso.copyfile dbpath,bkfolder& "\\"& bkdbname
else
MakeNewsDir bkfolder
fso.copyfile dbpath,bkfolder& "\\"& bkdbname
end if
response.wrITe "<font color=red>备份数据库成功,您备份的数据库路径为" &bkfolder& "\\"& bkdbname+"</font>"
Else
response.wrITe "<font color=red>找不到您所需要备份的文件。</font>"
End if
end sub
'------------------检查某一目录是否存在-------------------
Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\\"&folderpath
Set fso1 = CreateObject("Scripting.FileSystemObject")
If fso1.FolderExists(FolderPath) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso1 = nothing
End Function
'-------------根据指定名称生成目录---------
Function MakeNewsDir(foldername)
dim f
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder(foldername)
MakeNewsDir = True
Set fso1 = nothing
End Function
%>



相关阅读:
MySQL 编码机制
Mobile Robot Programming Toolkit (MRPT)
css 等宽导航栏设计技巧
关于MYSQL 远程登录的授权方法 命令
在登录触发器错误情况下连接SQL Server的方法
Session设置过期时间的几种方式分享
javascript的事件描述
对所有SMTP队列禁用出站邮件
使用SimpleXML需要注意的问题
textContent在Firefox下与innerText等效的属性
CSS让网页里的提交按钮变得更漂亮
SQL Server小知识:Processor Affinity
Linux操作系统软件的基本安装和卸载
Request 对象之Form集合 。
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 2016scott young ted演讲 教你超速学习 2015《猴王出世》缩写 2016文员个人工作总结 分离后我才懂了你 公共资源市场交易情况自查自纠报告 2015部门工作总结范文简短 教育实践总结 蓝苹果很爱落叶作文100字 幽灵道长1500字 当雪落在每个冬季 精选春天的谚语50句 2009年教师节祝福语 描写愉快心情的好句子 励志人生让我们笑着走好每一步 2015从一起行政诉讼看证人身份丧失的得与失 轻轻的,请听我对你说 中班音乐学科小结 校园励志演讲3分钟 读《像你这样一个女孩》有感 寻梦五千年小学生演讲稿 2篇 市妇联服务新农村建设构建和谐社会总结 情感语录:有时候,你最想得到的人,其实是你最应该离开的人 白昼 黑夜 陌上女子,倾城倾国 感恩节手抄报内容 少年技校工作总结 今日,一些小小的想法 初中初一作文1200字:考试 唠叨的爱作文150字 真心,才是朋友作文1200字 永远的葱郁 永远的中国作文900字 小学四年级作文400字:过 大 年 实习报告范文 300字 有趣的“咬画” 初中初一作文650字:原创 童话故事之十二 糖心的故事 三 想起曾经的微笑 鸡年春节祝福短信、鸡年新年祝福短信、鸡年春节祝福语 小花猫借雨伞 幽默的七夕留言板贺词 食堂整改方案 珍惜你所拥有的作文 小学三年级信息技术——初步认识计算机教学设计 时间请你等等我作文700字 顶撞领导的检讨书 雪夜送葬 给力的结婚祝福语 2015学年第一学期语文组教研工作计划 教师学习科学发展观整改措施方案 枫叶标本 《古诗两首》

Copyright © 2016 phpStudy |