案例：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.DriveLetter
10
if d.IsReady=true then
11
    n = n & " 驱动器已就绪。"
12
else
13
    n = n & " 驱动器未就绪。"
14
end if
15
Response.Write(n)
16
set d=nothing
17
set fs=nothing
18
%>
19
​
20
</body>
21
</html>
22
​