
<html>

<body>



<%

dim fs, d, n

set fs=Server.CreateObject("Scripting.FileSystemObject")

set d=fs.GetDrive("c:")

Response.Write("驱动器类型是：" & d.DriveType)

set d=nothing

set fs=nothing

%>



</body>

</html>