一聚教程网:一个值得你收藏的教程网站

热门教程

用ASP列出服务器上的所有硬盘及类型

时间:2022-06-30 10:03:43 编辑:袖梨 来源:一聚教程网

列出服务器的的所有磁盘.
<%
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 ""
for each d in fs.drives
response.write ""
next
set fs=nothing
response.write "
盘符驱动器类型
" &
d.DriveLetter & "
" & Tran(d.DriveType) & "
"
%>

热门栏目