案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<html>
3
<body>
4
5
<%
6
Dim fs, d, n
7
Set fs=Server.CreateObject("Scripting.FileSystemObject")
8
Set d=fs.GetDrive("c:")
9
n = "驱动器:" & d
10
n = n & "<br />以字节计的剩余空间:" & d.FreeSpace
11
Response.Write(n)
12
set d=nothing
13
set fs=nothing
14
%>
15
16
</body>
17
</html>
18