
<html>

<body>



<%

dim fs, d, n

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

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

Response.Write("驱动器字母是：" & d.driveletter)

set d=nothing

set fs=nothing

%>



</body>

</html>