用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 探索者