asp資料庫備份

發布時間: 2024-08-20 01:00:48

A. 濡備綍鐢╝sp鍋歛ccess鏁版嵁搴撳囦喚

鐢╝sp鍋歛ccess鏁版嵁搴撳囦喚
<% 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 %>

B. 如何用asp代碼實現數據備份和恢復

<form name="form1" method="post" action="?action=bf">
<table width="90%" border="0" align=center cellpadding="5" cellspacing="1" bgcolor="#336699" class="tableBorder">
<tr>
<th width="593" height=25 bgcolor="#FFFFFF" > <B>備份數據</B>( 需要FSO支持，FSO相關幫助請看微軟網站 ) </th>
</tr>
<tr>
<td height=100 bgcolor="#FFFFFF" class="forumrow">
<span class="STYLE1">
<%
if request.QueryString("action")="bf" then
Dbpath=request.form("Dbpath")
backpath=request.form("backpath")&".mdb"
if dbpath="" then
response.write "請輸入您要您要備份的資料庫"
else
Dbpath=server.mappath(Dbpath)
end if
backpath=server.mappath(backpath)
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
fso.file Dbpath,Backpath
response.write "數據備份成功！"
else
response.write "資料庫地址不存在，請檢查CONN.ASP中的DB＝這一項是否是絕對地址！"
end if
end if%>
</span> <div align="center">
<p>備份資料庫路徑(相對)：
<input name=backpath type=text id="backpath" value="bak\jester_bak" size=30>
<br>
目標資料庫路徑(相對)：
<input name=DBpath type=text id="DBpath" value="<%=db%>" size=30>
<BR>
<BR>

<input name="submit" type=submit value="備份數據">
</p>
<p>*必須是絕對的資料庫地址<br>
</p>
</div></td>
</tr>
</table>
<p> </p>
</form>
<form name="form1" method="post" action="?action=hy">
<font color=red class="STYLE1">
<%
if request.QueryString("action")="hy" 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)
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
fso.file Dbpath,Backpath
response.write "成功恢復數據！"
else
response.write "備份目錄下並無您的備份文件！"
end if
end if%>
</font> <table width="80%" height="1" border="0" align=center cellpadding="5" cellspacing="1" bgcolor="#336699" class="tableBorder">
<tr>
<th width="593" height=25 bgcolor="#FFFFFF" > <B>恢復論壇數據</B>( 需要FSO支持，FSO相關幫助請看微軟網站 ) </th>
</tr>
<tr>
<td height=100 bgcolor="#FFFFFF" class="forumrow"> 備份資料庫路徑(相對)：
<input type=text size=30 name=DBpath value="bak\jester_bak.Mdb">
<BR>
目標資料庫路徑(相對)：
<input name=backpath type=text id="backpath" value="<%=db%>" size=30>
<BR>
填寫您當前使用的資料庫路徑，如不想覆蓋當前文件，可自行命名（注意路徑是否正確），然後修改conn.asp文件，如果目標文件名和當前使用資料庫名一致的話，不需修改conn.asp文件<BR>

<input name="submit" type=submit value="恢復數據">
<br>
-----------------------------------------------------------------------------------------<br>
在上面填寫本程序的資料庫路徑全名，本程序的默認備份資料庫文件為，請按照您的備份文件自行修改。<br>
您可以用這個功能來備份您的法規數據，以保證您的數據安全！<br>
注意：所有路徑都是相對與程序空間根目錄的相對路徑 </td>
</tr>
</table>
<p></p>
</form>
<span class="STYLE1">
<%
if request.QueryString("action")="ys" then
dim dbpath,boolIs97
if request("Dbpath")<>"" then Dbpath=request("Dbpath") end if
if request("Dbpath")="" then
if request("bkfolder")<>"" then bkfolder=request("bkfolder") else bkfolder="spubbsbak" end if
if request("bkdbname")<>"" then bkdbname=request("bkdbname") else bkdbname="spubbs" end if
bkdbname=bkdbname&"#.asp"
Dbpath=bkfolder&"\"&bkdbname
end if
'dbpath = request("dbpath")
if request("boolIs97")<>"" then boolIs97=request("boolIs97") else boolIs97=true end if
'boolIs97 = request("boolIs97")

If dbpath <> "" Then
dbpath = server.mappath(dbpath)
response.write(CompactDB(dbpath,boolIs97))
End If

'=====================壓縮參數=========================
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath,JET_3X
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(dbPath) Then
fso.CopyFile dbpath,strDBPath & "temp.mdb"
Set Engine = CreateObject("JRO.JetEngine")

If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"
End If

fso.CopyFile strDBPath & "temp1.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
fso.DeleteFile(strDBPath & "temp1.mdb")
Set fso = nothing
Set Engine = nothing

CompactDB = "你的資料庫, " & dbpath & ", 已經壓縮成功!" & vbCrLf

Else
CompactDB = "資料庫名稱或路徑不正確. 請重試!" & vbCrLf
End If

End Function

end if%>
</span>
<form action="?action=ys" method="post">

<table width="80%" height="1" border="0" align=center cellpadding="5" cellspacing="1" bgcolor="#336699" class="tableBorder">
<tr>
<td width="581" height=25 bgcolor="#FFFFFF" class="forumrow"><b>注意：</b><br>
輸入資料庫所在相對路徑,並且輸入資料庫名稱（正在使用中資料庫不能壓縮，請選擇備份資料庫進行壓縮操作） </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="forumrow">壓縮資料庫：
<input type="text" name="dbpath" value=<%=db%>>

<input name="submit3" type="submit" value="開始壓縮"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="forumrow"><input type="checkbox" name="boolIs97" value="True">
如果使用 Access 97 資料庫請選擇 (默認為 Access 2000 資料庫)<br>
<br></td>
</tr>
</table> </form>

C. ASP實現SQL資料庫備份還原!!!!!!!!

<% '=========================資料庫處理=============================================
IF Request.form("adminDatabase")<>"" Then
call CheckAdminLogin("資料庫管理")
ZD_AdminDatabase=Request.form("adminDatabase")
select case ZD_AdminDatabase
case "Compact"
osMessage=CompactDatabase()
case "backup"
osMessage=BackupDatabase()
case "Restore"
osMessage=RestoreDatabase()
case else
osMessage=GetErrMessage()
End select
End IF
%>

<%
Function updateDatabase()
Dim resultMessage
'On Error Resume Next

updateDatabase = resultMessage

End Function
%>

<%

Function CompactDatabase()
Set Conn=Nothing
Dim FSO,Engine
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(Server.Mappath(ZD_DataName)) Then
' Response.Write "<div id=""Layer1"" style=""position:absolute; left:220px; top:153px; width:372px; height:95px; z-index:1"" class=""tdbg3""></div>"
' Response.Write "<div id=""Layer2"" style=""position:absolute; left:222px; top:155px; width:371px; height:93px; z-index:1; overflow: hidden;"" class=""tdbg1"">資料庫壓縮中....請等待....</div>"
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(ZD_DataName), "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(ZD_DataName & ".temp")
FSO.CopyFile Server.Mappath(ZD_DataName & ".temp"),Server.Mappath(ZD_DataName)
FSO.DeleteFile(Server.Mappath(ZD_DataName & ".temp"))
Set FSO = Nothing
Set Engine = nothing
CompactDatabase = "<span class=""importantText"">壓縮資料庫成功！！</span>"
'call SaveLog(Session("member"),"成功操作",now(),"資料庫壓縮",getIP(),true)
End If
End Function

Function BackupDatabase()
Set Conn=Nothing
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
FSO.CopyFile Server.Mappath(ZD_DataName),Server.Mappath(ZD_DataName & ".bak")
Set FSO = Nothing
BackupDatabase = "<span class=""importantText"">資料庫備份成功！！</span>"
'call SaveLog(Session("member"),"操作成功",now(),"資料庫備份",getIP(),true)
End Function

Function RestoreDatabase()
Application.Contents.Removeall()
Set Conn=Nothing
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(Server.Mappath(ZD_DataName & ".bak")) Then
FSO.CopyFile Server.Mappath(ZD_DataName & ".bak"),Server.Mappath(ZD_DataName)
Set FSO = Nothing
RestoreDatabase = "<span class=""importantText"">資料庫恢復成功！！</span>"
'call SaveLog(Session("member"),"操作成功",now(),"資料庫恢復",getIP(),true)
Else
Set FSO = Nothing
RestoreDatabase = "<span class=""importantText"">不存在有備份文件！</span>"
'call SaveLog(Session("member"),"操作失敗",now(),"資料庫恢復",getIP(),false)
End IF
End Function

%>

大體是這樣您修改下吧。

D. asp怎麼進行資料庫備份

要加分哦

我可是把整個代碼都貼出來了

用著可好用我正用的
有兩個
一個簡單的下面是代碼
<form name="form1" method="post" action="?action=bf">
備份原資料庫路徑:
<input name="text1" type="text" id="text1">
<p>備份目標資料庫路徑:
<input name="text2" type="text" id="text2">
</p>
<p>
<label>
<input type="submit" name="Submit" value="備份">
</label>
</p>
</form>
<%
Function CopyFiles(TempSource,TempEnd)
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(TempEnd) then
Response.Write "目標備份文件 <和戚悶b>" & TempEnd & "</b> 已存在，請先刪除!"
Set FSO=Nothing
Exit Function
End IF
IF FSO.FileExists(TempSource) Then
Else
Response.Write "要復制的源資料庫文件 <b>"&TempSource&"</b> 不存在!"
Set FSO=Nothing
Exit Function
End If
FSO.CopyFile TempSource,TempEnd
Response.Write "已經成功復制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b>"
Set FSO = Nothing
End Function
if request("action")="bf" then
ff=server.MapPath(request("text1"))
aa=server.MapPath(request("text2"))
call CopyFiles(ff,aa)
end if
%>

**************************************我是分割線************************

還有復雜的
<http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<喚彎meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>資料庫備份系統</title>
<style type="text/css">

</style></head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#99CC00">
<form name="form1" id="form1" method="post" action="?action=bf">
<tr>
<td height="71" bgcolor="#FFFFFF"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height="29" colspan="2" align="center" background="afterimage/line2.jpg" class="proct_bt">::資料庫備份::</td>
</tr>
<tr>
<td height="25" colspan="2" background="afterimage/titleline.gif"></td>
</tr>
<tr>
<td width="18%" height="25" align="center" bgcolor="#F9F9F9"><span class="style1">數據路徑:
</span></td>
<td width="82%" bgcolor="#F9F9F9"><input name="text1" type="text" id="text1" size="50" /> </td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#EEEEEE"><span class="style1">備份資料庫路徑:</span></td>
<td height="25" bgcolor="#EEEEEE"><input name="text2" type="text" id="text2" size="50" />

<input type="submit" name="Submit" value=" 備份資料庫 " /></td>
</tr>

<tr>
<td height="25" colspan="2" align="center" bgcolor="#F3F3F3"><%
Function CopyFiles(TempSource,TempEnd)
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(TempEnd) then
Response.Write "目標備份文件 <b>" & TempEnd & "</b> 已存在，請先刪除!"
Set FSO=Nothing
Exit Function
End IF
IF FSO.FileExists(TempSource) Then
Else
Response.Write "要復制的源資料庫文件 <b>"&TempSource&"</b> 不存在!"
Set FSO=Nothing
Exit Function
End If
FSO.CopyFile TempSource,TempEnd
Response.Write "已經成功復制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b>"
Set FSO = Nothing
End Function
if request("action")="bf" then
ff=server.MapPath(request("text1"))
aa=server.MapPath(request("text2"))
ss=split(request("text2"),"/")
CreateFolder(ss(0))
call CopyFiles(ff,aa)
end if
Sub CreateFolder(strFolder)
'首選判斷要建立的文件夾是否已經存在
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 檢查文件夾是否存在
If objFSO.FolderExists(strTestFolder) Then
response.write "該文件夾已經存在！"
Else
Dim strTestFolder, objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 建立文件夾
objFSO.CreateFolder(strTestFolder)
Set objFSO = Nothing
End If
End Sub
%></td>
</tr>
</table></td>
</tr></form>
</table>
</body>
</html>

E. ASP的網站需要備份資料庫嗎空間要搬家

如果你用的是asccse資料庫的話，直接備份整個網站就可以了，如果用的是mssql的話，還要單獨把
資料庫備份
出來。空間要搬家和備份可以用第三方碰茄工具「
多備份
」直接在線上解猛段決，如果用手工的話用
ftp工具
也可笑知察以

閱讀全文

熱點內容

如何將安卓機設置為蘋果機發布：2024-11-25 09:41:24 瀏覽：969

伺服器屏蔽一段ip 發布：2024-11-25 08:52:06 瀏覽：100

售茶源碼發布：2024-11-25 08:37:29 瀏覽：463

壓縮包改直鏈發布：2024-11-25 08:34:33 瀏覽：611

安卓機的照片如何傳送到蘋果機上發布：2024-11-25 08:32:48 瀏覽：917

手游伺服器怎麼找ip 發布：2024-11-25 08:23:10 瀏覽：752

c語言名次發布：2024-11-25 08:04:22 瀏覽：56

新浪雲伺服器登錄發布：2024-11-25 08:04:21 瀏覽：854

工控機伺服器電腦的區別發布：2024-11-25 08:04:21 瀏覽：514

Python對比matlab 發布：2024-11-25 07:45:58 瀏覽：307

asp資料庫備份

與asp資料庫備份相關的資訊