<%@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" />
    密&nbsp; 码:
    <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("\")&"\"&"liuyes.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="确  定" />
      &nbsp;&nbsp; <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>
