|东莞主机申请|东莞空间申请|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|--一个ASP获取服务器驱动器类型的例子---[摘自ASP实务经典]

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

一个ASP获取服务器驱动器类型的例子---[摘自ASP实务经典]

<%

Set fs=CreateObject("Scripting.FileSystemObject")

For Each Drive In fs.Drives

    Response.Write "盘符：" & Drive.DriveLetter & "<br>"

    Response.Write "驱动器类型：" & Tran(Drive.DriveType) & "<br>"

Next

Set fs=Nothing

Function Tran(drvtype)

   Select Case drvtype

          Case 0:Tran="设备无法识别"

          Case 1:Tran="软盘驱动器"

          Case 2:Tran="硬盘驱动器"

          Case 3:Tran="网络硬盘驱动器"

          Case 4:Tran="光盘驱动器"

          Case 5:Tran="RAM虚拟磁盘"

   End Select

End Function

%>

本站关键词：

|东莞主机申请|东莞空间申请|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计||东莞主机申请|东莞空间申请|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计||东莞主机申请|东莞空间申请|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计||东莞主机申请|东莞空间申请|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|