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

%>

时间: 2024-10-11 17:45:37

asp 在线备份与恢复sqlserver数据库的代码的相关文章

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

asp在线备份sql server数据库: 1.备份sqlserver 复制代码 代码如下: <% SQL="backup database 数据库名 to disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'" set cnn=Server.createobject("adodb.connectio

asp连接sqlserver数据库实现代码

 本文章介绍了利用asp连接sqlserver数据库实例代码,连接方法有三种分别为通过ODBC DSN建立连接,通过oledb建立连接 通过driver建立连接三种,下面我们来看看第一种.   通过driver建立连接  代码如下   <%  Const DataBaseType=1  If DataBaseType=0 then  DBPath="/jb51/news.asp"  SqlNowString = "Now()"  ystr=true  nstr

ASP连接SQL Server数据库程序代码

在ASP中数据库链接2中方法 1.直接用字符串链接,代码如下:  代码如下 复制代码 <% '连接数据库 Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={SQL Server};server=主机ip地址; uid=用户名;pwd=密码;database=数据库名" %> 2.利用DSN(数据源)链接,这种方法你要先创建一个DSN,创建方法点击服

asp.net 连接Oracle数据库实例代码

连接oracle数据库很简单,如下  代码如下 复制代码 connectionString="Password=czh;User ID=czh;Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.168.211)(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=skydream)));"   HOST:服务器IP或者服务

asp在线备份access数据库程序

如果在 Access 数据库中删除数据或对象,或者在 Access 项目中删除对象,Access 数据库或 Access 项目可能会产生碎片并会降低磁盘空间的使用效率.压缩 Access 数据库或Access项目实际上是复制该文件,并重新组织文件在磁盘上的存储方式.压缩同时优化了 Access 数据库和 Access 项目的性能. 所以我们在对日益增大的数据库导致的ASP程序慢得无法忍受的时候,就想到了要压缩他.但常规的做法把他下载到本地然后用MSaccess来完成压缩操作,然后再上传! 需要注

非常好用的asp备份,还原SQL数据库的代码_应用技巧

<form method="post" name="myform" action="?action=backupdatabase">   选择操作:   <input type="radio" name="act" id="act_backup"value="backup">   <label for=act_backup>备份&l

非常好用的asp备份,还原SQL数据库的代码

<form method="post" name="myform" action="?action=backupdatabase">   选择操作:   <input type="radio" name="act" id="act_backup"value="backup">   <label for=act_backup>备份&l

PHP连接SQLServer数据库程序代码

php中mssql_connect函数默认是不能使用的,我们需要简单配置一下,具体如下 PHP.ini 里面打开 extension=php_mssql.dll 选项 (就是把前面的 : 号去掉) 2. 下载正确版本的 ntwdblib.dll (2000.80.194.0) 3. 覆盖 c:windowssystem32ntwdblib.dll 4. 覆盖 phpntwdblib.dll(有时候完成了这一步也不成功的话,就把PHP所依赖的php5ts.dll放到system32目录下) 利用m

请问为什么c#打开sqlserver数据库失败?代码如图

问题描述 请问为什么c#打开sqlserver数据库失败?代码如图 请问为什么c#打开sqlserver数据库失败?代码如图 解决方案 连接本机应该是 Server=.; 你的缺少了等号. 解决方案二: 看你的代码,最可能出问题的是连接字符串,看下你的的数据库是否使用集成验证,以及是否允许远程连接. 解决方案三: 数据库的连接字符串有问题, 如下是.NET 类库中数据库连接源代码,你可以参照一下格式和字符串 /// /// 可以接受三种格式的数据库连接字符串 /// 1. 服务名称=(local