  <%@ LANGUAGE=VBScript CodePage=936%>
  <% 
	data_path="../" 'ACC连接数据库路径，对SQL无效
	numid="121"
	dir="err.asp" 
  %>
  <!--#include file="../../conn/conn.asp"-->
   <!--#include file="../rolecheckout.asp"-->
<% 
sql_name=request("sql_name")
sql_name1=sql_name+".dat"
'response.Write sql_name
SQL="backup database "&SqlDatabaseName&" to disk='"&Server.MapPath("../../SQL Server")&"\"&sql_name1&"'" 
set cnn=Server.createobject("adodb.connection") 
cnn.open "driver={SQL Server};Server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&"" 
cnn.execute SQL
on error resume next 
if err<>0 then 
response.write "错误："&err.Descripting 

else 
response.write "数据备份成功！" 
response.Write("<script >alert('数据备份成功');history.back(-1);</script>")
end if 
cnn.close
set cnn=nothing
%> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据备份设置</title>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
</head>
<body>
</body>
</html>
<!--#include file="../copy.asp"-->