asp 在線備份與恢復(fù)sqlserver數(shù)據(jù)庫(kù)的代碼

更新時(shí)間：2010年07月12日 21:38:33 作者：

asp 在線備份恢復(fù) sql server 數(shù)據(jù)庫(kù)，對(duì)于遠(yuǎn)程沒(méi)有提供sqlserver遠(yuǎn)程連接或打包下載的朋友是個(gè)臨時(shí)解決方法，對(duì)于大數(shù)據(jù)來(lái)說(shuō)可能效果不好。

asp在線備份sql server數(shù)據(jù)庫(kù)：
1、備份sqlserver

復(fù)制代碼代碼如下:

 
<% 
SQL="backup database 數(shù)據(jù)庫(kù)名 to disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'" 
set cnn=Server.createobject("adodb.connection") 
cnn.open "driver={SQL Server};Server=服務(wù)器名;uid=sa;pwd=" 
cnn.execute SQL 
on error resume next 
if err<>0 then 
response.wrITe "錯(cuò)誤："&err.Descripting 
else 
response.wrITe "數(shù)據(jù)備份成功！" 
end if 
%> 

2、恢復(fù)sqlserver

復(fù)制代碼代碼如下:

 
<% 
SQL="Restore database 數(shù)據(jù)庫(kù)名 from disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'" 
set cnn=Server.createobject("adodb.connection") 
cnn.open "driver={SQL Server};Server=服務(wù)器名;uid=sa;pwd=" 
cnn.execute SQL 
on error resume next 
if err<>0 then 
response.wrITe "錯(cuò)誤："&err.Descripting 
else 
response.wrITe "數(shù)據(jù)恢復(fù)成功！" 
end if 
%> 

ACCESS原理一樣

復(fù)制代碼代碼如下:

 
<% 
'***************************************** 
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實(shí)現(xiàn)備份及恢復(fù)ACCESS數(shù)據(jù)庫(kù)操作 
'本頁(yè)面為 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 > 
&nbsp;&nbsp;<B>數(shù)據(jù)庫(kù)備份</B> 
</th> 
</tr> 
<form method="post" action="databackup.asp?action=Backup"> 
<tr> 
<td height=100 style="line-height:150%"> 
&nbsp;&nbsp; 
當(dāng)前數(shù)據(jù)庫(kù)路徑(相對(duì)路徑)： 
<input type=text size=15 name=DBpath value="../mdb/database.mdb"><BR> 
&nbsp;&nbsp; 備份數(shù)據(jù)庫(kù)目錄(相對(duì)路徑)： 
<input type=text size=15 name=bkfolder value=../Databackup>&nbsp;如目錄不存在，程序?qū)⒆詣?dòng)創(chuàng)建<BR> 
&nbsp;&nbsp; 備份數(shù)據(jù)庫(kù)名稱(填寫(xiě)名稱)： 
<input type=text size=15 name=bkDBname value=database.mdb> &nbsp;如備份目錄有該 

文件，將覆蓋，如沒(méi)有，將自動(dòng)創(chuàng)建<BR> 
&nbsp;&nbsp;<input type=submIT value="備份數(shù)據(jù)"><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 "請(qǐng)輸入您要恢復(fù)成的數(shù)據(jù)庫(kù)全名" 
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>成功恢復(fù)數(shù)據(jù)！</font>" 
else 
response.wrITe "<font color=red>備份目錄下并無(wú)您的備份文件！</font>" 
end if 
else 
%> 
<table align=center cellspacing=1 cellpadding=1 width="90%"> 
<tr> 
<th height=25 > 
&nbsp;&nbsp;<B>恢復(fù)數(shù)據(jù)庫(kù)</B> 
</th> 
</tr> 
<form method="post" action="databackup.asp?action=Restore"> 
<tr> 
<td height=100 > 
&nbsp;&nbsp;備份數(shù)據(jù)庫(kù)路徑(相對(duì))： 
<input type=text size=30 name=DBpath value="../Databackup/database.mdb">&nbsp;&nbsp;<BR> 
&nbsp;&nbsp;當(dāng)前數(shù)據(jù)庫(kù)路徑(相對(duì))： 
<input type=text size=30 name=backpath value="../mdb/database.mdb"><BR> 
&nbsp;&nbsp;<input type=submIT value="恢復(fù)數(shù)據(jù)"> <hr width="90%" align="center" color="#999999"> 
&nbsp;&nbsp;<font color="#666666">·注意：所有路徑都是相對(duì)路徑 &nbsp;&nbsp;</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>備份數(shù)據(jù)庫(kù)成功，您備份的數(shù)據(jù)庫(kù)路徑為" &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 
'-------------根據(jù)指定名稱生成目錄--------- 
Function MakeNewsDir(foldername) 
dim f 
Set fso1 = CreateObject("Scripting.FileSystemObject") 
Set f = fso1.CreateFolder(foldername) 
MakeNewsDir = True 
Set fso1 = nothing 
End Function 
%> 