用ASP列出伺服器上的所有硬碟及類型

伺服器|硬碟   就按昨天說明的做吧,列出伺服器的的所有磁碟.
<%
function Tran(drv)
  select case drv
      case 0:Tran="裝置無法識別"
      case 1:Tran="軟碟機"
      case 2:Tran="硬碟"
      case 3:Tran="網路硬碟"
      case 4:Tran="光碟片磁碟機"
      case 5:Tran="RAM虛擬磁碟機"
  end select
end function

Set fs=Server.CreateObject("Scripting.FileSystemObject")
response.write "<table width='100%' cellpadding='5' cellspacing='2'><tr><td><b>盤符</td><td><b>磁碟機類型
</td></tr>"
for each d in fs.drives
  response.write "<tr><td><a href=files.asp?sPath=" & d.DriveLetter & ":\><font size=4><b>" &
d.DriveLetter & "</a></td><td><font size=4><b>" & Tran(d.DriveType) & "</tr>"
next
set fs=nothing
response.write "</table>"
%>

ASP精品屋 http://aspage.yeah.net
----------------------------------------
2000-5-29 By 探索者