demo_availablespace 在线工具
<html>
<body>
<FONT COLOR=#ff0000><%
Dim fs, d, n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "Drive: " & d
n = n & "
Available Space in bytes: " & d.AvailableSpace
Response.Write(n)
set d=nothing
set fs=nothing
%></FONT>
</body>
</html>