App下载

demo_drivetype 在线工具

demo_drivetype 在线工具

<html>
<body>

<FONT COLOR=#ff0000><%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The drive type is: " & d.DriveType)
set d=nothing
set fs=nothing
%></FONT>

</body>
</html>
运行结果