狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

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

asp在線備份sql server數(shù)據(jù)庫：
1、備份sqlserver
復(fù)制代碼 代碼如下:
<%
SQL="backup database 數(shù)據(jù)庫名 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 "錯誤："&err.Descripting
else
response.wrITe "數(shù)據(jù)備份成功！"
end if
%>

 

2、恢復(fù)sqlserver
復(fù)制代碼 代碼如下:
<%
SQL="Restore database 數(shù)據(jù)庫名 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 "錯誤："&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實現(xiàn)備份及恢復(fù)ACCESS數(shù)據(jù)庫操作
'本頁面為 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>數(shù)據(jù)庫備份</B>
</th>
</tr>
<form method="post" action="databackup.asp?action=Backup">
<tr>
<td height=100 style="line-height:150%">

當(dāng)前數(shù)據(jù)庫路徑(相對路徑)：
<input type=text size=15 name=DBpath value="../mdb/database.mdb"><BR>
備份數(shù)據(jù)庫目錄(相對路徑)：
<input type=text size=15 name=bkfolder value=../Databackup> 如目錄不存在，程序?qū)⒆詣觿?chuàng)建<BR>
備份數(shù)據(jù)庫名稱(填寫名稱)：
<input type=text size=15 name=bkDBname value=database.mdb> 如備份目錄有該

文件，將覆蓋，如沒有，將自動創(chuàng)建<BR>
<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 "請輸入您要恢復(fù)成的數(shù)據(jù)庫全名"
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>備份目錄下并無您的備份文件！</font>"
end if
else
%>
<table align=center cellspacing=1 cellpadding=1 width="90%">
<tr>
<th height=25 >
<B>恢復(fù)數(shù)據(jù)庫</B>
</th>
</tr>
<form method="post" action="databackup.asp?action=Restore">
<tr>
<td height=100 >
備份數(shù)據(jù)庫路徑(相對)：
<input type=text size=30 name=DBpath value="../Databackup/database.mdb"> <BR>
當(dāng)前數(shù)據(jù)庫路徑(相對)：
<input type=text size=30 name=backpath value="../mdb/database.mdb"><BR>
<input type=submIT value="恢復(fù)數(shù)據(jù)"> <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>備份數(shù)據(jù)庫成功，您備份的數(shù)據(jù)庫路徑為" &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
%>

該文章在 2010/11/26 0:38:39 編輯過