采飛揚ASP備份MSSQL數據庫程序 V1.0
[重要通告]如您遇疑難雜癥,本站支持知識付費業務,掃右邊二維碼加博主微信,可節省您寶貴時間哦!
采飛揚ASP備份MSSQL數據庫程序 V1.0
XML/HTML代碼
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "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>采飛揚ASP備份MSSQL數據庫程序 V1.0--QQ:79998575</title>
- </head>
- <style>
- BODY { FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: "Courier New"; scrollbar-face-color:#E4E4F3; scrollbar-highlight-color:#FFFFFF; scrollbar-3dlight-color:#E4E4F3; scrollbar-darkshadow-color:#9C9CD3; scrollbar-shadow-color:#E4E4F3; scrollbar-arrow-color:#4444B3; scrollbar-track-color:#EFEFEF;}TABLE { FONT-SIZE: 9pt; FONT-FAMILY: "Courier New"; BORDER-COLLAPSE: collapse; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-style: solid; border-right-style: none; border-bottom-style: none; border-left-style: solid; border-top-color: #d8d8f0; border-right-color: #d8d8f0; border-bottom-color: #d8d8f0; border-left-color: #d8d8f0;}.tr { font-family: "Courier New"; font-size: 9pt; background-color: #e4e4f3; text-align: center;}.td { font-family: "Courier New"; font-size: 9pt; background-color: #f9f9fd;}.warningColor { font-family: "Courier New"; font-size: 9pt; color: #ff0000;}input {
- font-family: "Courier New";
- BORDER-TOP-WIDTH: 1px;
- BORDER-LEFT-WIDTH: 1px;
- FONT-SIZE: 12px;
- BORDER-BOTTOM-WIDTH: 1px;
- BORDER-RIGHT-WIDTH: 1px;
- color: #000000;
- }textarea { font-family: "Courier New"; BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; color: #000000;}.liuyes {
- background-color: #CCCCFF;
- }
- A:link { FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: "Courier New"; TEXT-DECORATION: none;}tr { font-family: "Courier New"; font-size: 9pt; line-height: 18px;}td { font-family: "Courier New"; font-size: 9pt; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-style: none; border-right-style: solid; border-bottom-style: solid; border-left-style: none; border-top-color: #d8d8f0; border-right-color: #d8d8f0; border-bottom-color: #d8d8f0; border-left-color: #d8d8f0;}.trHead { font-family: "Courier New"; font-size: 9pt; background-color: #e4e4f3; line-height: 3px;}.inputLogin { font-family: "Courier New"; font-size: 9pt; border: 1px solid #d8d8f0; background-color: #f9f9fd; vertical-align: bottom;}</style>
- <body>
- <form method="post" name="myform" action="?action=backupdatabase">
- <table width="686" border="1" align="center">
- <tr>
- <td width="613" height="30" align="center" bgcolor="#330066"><font color="#FFFFFF">采飛揚ASP備份MSSQL數據庫程序 V1.0 </font></td>
- </tr>
- <tr>
- <td>選擇操作:
- <input type="radio" name="act" id="act_backup"value="backup" />
- <label for=act_backup>備份</label>
- <input type="radio" name="act" id="act_restore" value="restore" />
- <label for=act_restore>恢復</label></td>
- </tr>
- <tr>
- <td><label>SQL服務器:
- <input type="text" name="sqlserver" value="localhost" />
- </label></td>
- </tr>
- <tr>
- <td><label>用戶名:
- <input name="sqlname" type="text" value="sa" />
- 密 碼:
- <input type="text" name="sqlpassword" />
- </label></td>
- </tr>
- <tr>
- <td><label>數據庫名:
- <input type="text" name="databasename" value="<%=request("databasename")%>" />
- </label></td>
- </tr>
- <tr>
- <td>文件路徑:
- <input name="bak_file" type="text" value="<% =server.MapPath("\")&"\"&"jzpu.bak"%>" size="60" />
- (備份或恢復的文件路徑)</td>
- </tr>
- <tr>
- <td><% Response.write "本文件絕對路徑:" %>
- <font color="#FF0000">
- <% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %>
- </font></td>
- </tr>
- <tr>
- <td><input name=submit1 type="submit" class="liuyes" id=submit1 size="10" value="確 定" />
- <input name="Submit" type="reset" class="liuyes" size="10" value="重 置" /></td>
- </tr>
- </table>
- </form>
- <table width="686" border="1" align="center">
- <tr>
- <td>提示信息:<%
- if request("action")="" then
- response.write "<font color=#ff0000>不用我多說什么了吧!</font>"
- end if
- 'SQL Server 數據庫的備份與恢復!
- if request("action")="backupdatabase" Then
- dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act
- sqlserver = trim(request("sqlserver"))
- sqlname = trim(request("sqlname"))
- sqlpassword =trim(request("sqlpassword"))
- sqlLoginTimeout = 15
- databasename = trim(request("databasename"))
- bak_file = trim(request("bak_file"))
- bak_file = replace(bak_file,"$1",databasename)
- act = lcase(request("act"))
- if databasename = "" then
- response.write "<font color=#ff0000>沒有輸入數據庫名稱!</font>"
- else
- if act = "backup" then
- Set srv=Server.CreateObject("SQLDMO.SQLServer")
- srv.LoginTimeout = sqlLoginTimeout
- srv.Connect sqlserver,sqlname, sqlpassword
- Set bak = Server.CreateObject("SQLDMO.Backup")
- bak.Database=databasename
- bak.Devices=Files
- bak.Action = 0
- bak.Initialize = 1
- 'bak.Replace = True
- bak.Files=bak_file
- bak.SQLBackup srv
- if err.number>0 then
- response.write err.number&"<font color=red><br>"
- response.write err.description&"</font>"
- end if
- Response.write "<font color=green>備份成功!</font>"
- elseif act="restore" then
- '恢復時要在沒有使用數據庫時進行!
- Set srv=Server.CreateObject("SQLDMO.SQLServer")
- srv.LoginTimeout = sqlLoginTimeout
- srv.Connect sqlserver,sqlname, sqlpassword
- Set rest=Server.CreateObject("SQLDMO.Restore")
- rest.Action=0 ' full db restore
- rest.Database=databasename
- rest.Devices=Files
- rest.Files=bak_file
- rest.ReplaceDatabase=True 'Force restore over existing database
- if err.number>0 then
- response.write err.number&"<font color=red><br>"
- response.write err.description&"</font>"
- end if
- rest.SQLRestore srv
- Response.write "<font color=green>恢復成功!</font>"
- else
- Response.write "<font color=red>請選擇備份或恢復!</font>"
- end if
- end if
- end if
- %></td>
- </tr>
- </table>
- </body>
- </html>
問題未解決?付費解決問題加Q或微信 2589053300 (即Q號又微信號)右上方掃一掃可加博主微信
所寫所說,是心之所感,思之所悟,行之所得;文當無敷衍,落筆求簡潔。 以所舍,求所獲;有所依,方所成!
賞
支付寶贊助
微信贊助
免責聲明,若由于商用引起版權糾紛,一切責任均由使用者承擔。
您必須遵守我們的協議,如您下載該資源,行為將被視為對《免責聲明》全部內容的認可->聯系老梁投訴資源 LaoLiang.Net部分資源來自互聯網收集,僅供用于學習和交流,請勿用于商業用途。如有侵權、不妥之處,請聯系站長并出示版權證明以便刪除。
敬請諒解! 侵權刪帖/違法舉報/投稿等事物聯系郵箱:service@laoliang.net
意在交流學習,歡迎贊賞評論,如有謬誤,請聯系指正;轉載請注明出處: » 采飛揚ASP備份MSSQL數據庫程序 V1.0