<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>
<% 
id=request("id")

Dim objFSO,objFolder,objFile,FF '声明 objFSO 变量存放对象实例 

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

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

If objFSO.FolderExists(ff) Then 

Set objFolder = objFSO.GetFolder(ff) 

response.write "<table width='100%' border='0' align=center cellpadding='3' cellspacing='1' bordercolor='#FFFFFF' bgcolor='#C4D8ED'><tr><td colspan='5' height=30 align='center' bgcolor='#FFFFFF'><strong>SQL数据库备份管理 </strong></td></tr><tr>" 
response.write "<td height=25 align='center' class=forumRow>数据库名称</td>" 

response.write "<td height=25 align='center' class=forumRow>文件大小</td>" 
response.write "<td height=25 align='center' class=forumRow>文件路径</td>" 
response.write "<td height=25 align='center' class=forumRow>更新日期</td>"
response.write "<td height=25 align='center' class=forumRow>删除数据库文件</td></tr>" 
For Each objFile in objFolder.Files


Response.Write"  <tr><td height=25 align='center' class=forumRow>"&objFile.Name &"</td> "

response.write "<td height=25 align='center' class=forumRow>"&objFile.size&"</td>"
response.write "<td height=25 align='center' class=forumRow>"&ff&"</td>"
response.write "<td height=25 align='center' class=forumRow>"&objFile.datelastmodified&"</td>"
response.write "<td height=25 align='center' class=forumRow>"%>
<input type="button" value="删除" onClick="window.location.href='delete.asp?id=<%=objFile.Name%>'" />
<%response.write "</td>"
Next 
response.write "</table>" 

Else 
Response.Write "文件夹"&ff&"不存在，无法读取相关信息！" 
End If 

Set objFolder = Nothing 
Set objFSO = Nothing 
%> 
  </body>
  </html>