📄 4-6.asp
字号:
<html>
<head>
<title>driver对象应用</title>
</head>
<body bgcolor="#FFFFFF">
<%
on error resume next
dim oFso,cDrvs,oDrv,oDic,oKey
set oDic = Server.CreateObject("SCRIPTING.DICTIONARY")
oDic.Add "DriveLetter","盘符"
oDic.Add "DriveType","驱动器类型"
oDic.Add "FileSystem","文件类型"
oDic.Add "SerialNumber","序列号"
oDic.Add "VolumeName","驱动器卷名"
oDic.Add "TotalSize","总计空间"
oDic.Add "AvailableSpace","可用空间"
oDic.Add "FreeSpace","剩余空间"
set oFso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
set cDrvs = oFso.Drives
response.write "<table>" & vbCrLf
for each oDrv in cDrvs
for each oKey in oDic
response.write " <tr><td>"& oDic.Item(oKey) &"：</td><td>"& Eval("oDrv." & oKey) &"</td></tr>" & vbCrLf
next
Response.Write " <tr><td colspan=""2""><hr></td></tr>" & vbCrLf
next
response.write "</table>"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -