<body>
<%
set fso=server.CreateObject("scripting.filesystemobject")
set alldrives=fso.drives
response.Write("驱动器个数是"&alldrives.count&"个"&"<br>")
%>
<table align="center" border="1">
<tr>
<td height="17">指定字母</td>
<td>类型</td><td>根目录</td><td>准备好</td><td>全部空间</td><td>已用空间</td><td>剩余空间</td><td>文件系统</td><td>卷名</td><td>共享名</td>
</tr>
<%
for each d in alldrives 'for each语句用于集合中的各个元素
%>
<tr>
<td><%=d.driveletter%></td>
<td><%=d.drivetype%></td>
<td><%=d.path%></td>
<td><%=d.isready%></td>
<%next%>
<%
if d.IsReady then
%>
<td><%=formatnumber(d.TotalSize/1024/1024/1024,2,true) & " GB"%></td>
<td><%=formatnumber(d.Availablespace/1024/1024/1024,2,true) & " GB"%></td>
<td><%=formatnumber(d.Freespace/1024/1024/1024,2,true) & " GB"%></td>
<td><%=d.FileSystem%></td>
<td><%=d.VolumeName%></td>
<td><%=d.ShareName%></td>
<%end if%>
</tr>
</table></body>
运行结果显示：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/fifasp/drivers属性.asp, 第 31 行
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
GET /fifasp/drivers属性.asp
谁能帮我找出这个错误是什么意思啊！！！哪里错了！
