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