源代码
<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>
运行结果
