六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

用WEB(ASP)方式完成SQL SERVER 數據庫的備份與恢復

[摘要]<HTML><HEAD><TITLE>SQL Server 數據庫的備份與恢復</TITLE><meta http-equiv="Content-Type" content="text/html; charset=...
 

<HTML>
<HEAD>
<TITLE>SQL Server 數據庫的備份與恢復</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>


<BODY>
<form method="post" name=myform>
選擇操作:<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>
<br>數據庫名:<INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>">
<br>文件路徑:<INPUT TYPE="text" NAME="bak_file" value="c:\$1.bak">(備份或恢復的文件路徑)<br>
<input type="submit" value="確定">
</form>
<%
'SQL Server 數據庫的備份與恢復!
'海娃@2004-4-2
'http://www.51windows.Net
dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act
sqlserver = "localhost" 'sql服務器
sqlname = "sa"   '用戶名
sqlpassword = "sa"  '密碼
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 "input database name"
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.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
%>
</BODY>


</HTML>





主站蜘蛛池模板: 色天使久久综合网天天 | 四虎影院色 | 天天操天天干天搞天天射 | 青娱乐在线视频盛宴 | 日韩黄色一级毛片 | 亚洲高清资源在线观看 | 中文字幕资源在线 | 日韩视频在线观看中字 | 亚洲永久精品网站 | 欧美一区二区三区激情啪啪 | 天天躁夜夜躁很很躁麻豆 | 欧美亚洲国产精品久久久久 | 资源站在线 | 欧美小网站 | 日韩aaa| 在线观看欧美三级 | 日韩在线第三页 | 伊人五月综合 | 欧美在线91 | 日本三级成人中文字幕乱码 | 色婷婷99综合久久久精品 | 中文精品久久久久国产不卡 | 午夜资源 | 四虎国产永久在线精品免费观看 | 日韩色中色 | 亚洲成在人| 四虎国产精品免费久久久 | 欧美一级xxxx俄罗斯一级 | 天天干天天草天天射 | 中文字幕成人免费视频 | 午夜精品久久久 | 亚洲男人的天堂在线播放 | 桃色app福利 | 伊人剧场| 亚洲欧美日本视频 | 色综合久久久久久久久久久 | 午夜高清视频在线观看 | 伊人色院成人蜜桃视频 | 特黄特a级特别特级特毛片 特黄视频免费看 | 日韩视频国产 | 亚洲精品在线第一页 |