
<% 
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 

'Response.write "文件夹 "&ff&" 里所有的文件：<br>" 

Set objFolder = objFSO.GetFolder(ff) 

response.write "<table width=100% border=0><tr>" 
response.write "<td>数据库名称</td>" 
response.write "<td>文件属性</td>" 
response.write "<td>文件大小</td>" 
response.write "<td>文件路径</td>" 
response.write "<td>更新日期</td>"
response.write "<td>删除数据库文件</td></tr>" 
For Each objFile in objFolder.Files
if objFile.type<>"DAT 文件" then
Response.Write"  <tr><td>"&objFile.Name &"<img src='../images/cuowu.gif'  title='不能恢复数据库'/></td> " 
else
Response.Write"  <tr><td>"&objFile.Name &"</td> "
end if
response.write "<td>"&objFile.type&"</td>"
response.write "<td>"&objFile.size&"</td>"
response.write "<td>"&ff&"</td>"
response.write "<td>"&objFile.datelastmodified&"</td>"
response.write "<td>"%>
<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 
%> 

  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td align="right"><input  type="button" onclick="window.location.href='../websen_datasql.asp?id=1'" value="&lt;&lt;返回" /></td>
    </tr>
	
  </table>
  
  <LINK href="../css/style.css" rel=stylesheet type=text/css>


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

