<%
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='400' cellpadding='5' cellspacing='2'><tr><td><b>盘符</td><td><b>驱动器类型</td></tr>"
for each d in fs.drives
  response.write "<tr><td>" & d.DriveLetter & "</td><td>" & Tran(d.DriveType) & "</td></tr>"
next
set fs=nothing
response.write "</table>"
%>

上一篇: 探讨一下rs(0)和rs("fieldname")的执行效率
下一篇: isNull(str)、 isEmpty(str)和 str = ""的区别
文章来自: www.cndw.com
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志: