<%@ LANGUAGE=VBScript CodePage=936%>
  <% 
	data_path="../" 'ACC连接数据库路径，对SQL无效
	numid="121"
	dir="err.asp" 
  %>
  <!--#include file="../conn/conn.asp"-->
 <!--#include file="rolecheckout.asp"-->
 <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据库备份</title>
<LINK href="css/style.css" rel=stylesheet type=text/css>
<style type="text/css">
<!--
.STYLE1 {
	color: #2A0000;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<%
if Database_type=0 then 
	Call HOPE_err("提示","你当前使用的数据库为ACCESS版,此功能暂不支持!!","返回上一页","javascript:history.go(-1);")
	Response.end
end if
id=request("id")
'if id="" then 
	 'response.Write("<script >alert('参数传递错误!');history.back(-1);</script>")
     'response.End()

'end if
if id =1 then 
%>

<table cellpadding="2" cellspacing="1" border="0" width="98%" class="tableBorder" align=center>
  <tr align="center">
    <th height=25 align="center"><span class="tableHeaderText"><strong>数 据 库 管 理</strong></span>(Microsoft SQL Server 2000) 备份  </tr>
</table>
<br><br>
<form name="form" action="wensen_SQL/WENSEN_SQL.ASP" runat="server" method="post">
  <span class="STYLE1">备份名称Microsoft SQL Server</span>
  <input type="text" name="sql_name" value=""  />
  <input type="submit" value="提交备份" />
  <input type="button" onClick="window.location.href='wensen_SQL/WEBSEN_LJSQL.asp'" value="查看数据备份情况">
</form>
</body>
</html>
<!------------------------->
<%else%>
 <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据库恢复</title>
<LINK href="css/stylelong.css" rel=stylesheet type=text/css>
<script>if(window.location.href.indexOf('?')>0)location.replace(location.href.replace(/\?/g,'#').replace(/\#+/,'#'));
window.onerror=function(){return true}
document.domain="http://www.websen.net/";</script>
<script type="text/javascript" src="js/T.js"></script>
</head>
<body class="dzhAll" >

<link href="css/stylelong.css" type="text/css" rel="stylesheet"/>

<table cellpadding="2" cellspacing="1" border="0" width="98%" class="tableBorder" align=center>
  <tr align="center">
    <th height=25 align="center"><span class="tableHeaderText"><strong>数 据 库 管 理</strong></span>(Microsoft SQL Server 2000)  还原</tr>
</table>

<form name="form" action="" runat="server" method="post">
 <% 
id=request("id")

Dim objFSO1,objFolder1,objFile1,FF1 '声明 objFSO 变量存放对象实例 

FF1 = Server.MapPath("../SQL Server") 

Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject") 

If objFSO1.FolderExists(ff1) Then 
Set objFolder1 = objFSO1.GetFolder(ff1) 

response.write "<table cellpadding=2 cellspacing=1 border=0 width=98% class=tableBorder align=center<tr>" 
response.write "<td>数据库名称</td>" 

response.write "<td>更新日期</td>"
response.Write"<td>恢复数据</td><td>删除文件</td></tr>" 
dim   count   
  count=0   
For Each objFile1 in objFolder1.Files 
 count=count+1 
Response.Write"  <tr><td>"&objFile1.Name &"</td>" 

response.write "<td>"&objFile1.datelastmodified&"</td>"
response.write "<td>"%><input type='button' value='恢复数据' onClick="window.location.href='wensen_SQL/websen_hf.asp?id=<%=objFile1.Name%>&bb=<%=objFile1.type%>'" />
<%if objFile1.type<>"DAT 文件" then %>
<img src="images/cuowu.gif"  title="不能恢复数据库"/>

<%
end if
response.write"</td>"
response.write "<td>"%><input type="button" value="删除" onClick="window.location.href='wensen_SQL/delete.asp?dd=<%=objFile1.Name%>'" />
<%response.write"</td>"

Next 

response.write "</table>" 
if   count=0   then%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center">没有数据</td>
  </tr>
</table>
<%end if
Else 
Response.Write "文件夹"&ff1&"不存在，无法读取相关信息！" 
End If 

Set objFolder1 = Nothing 
Set objFSO1 = Nothing 
%> 


</form>
</body>
</html>
<%end if%>

<!--#include file="copy.asp"-->