<html> <body> <% Dim fs,d,n Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive("c:") n = "Çý¶¯Æ÷£º" & d n = n & "<br />×ÜÈÝÁ¿£º" & d.TotalSize Response.Write(n) set d=nothing set fs=nothing %> </body> </html>
<% Dim fs,d,n Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive("c:") n = "Çý¶¯Æ÷£º" & d n = n & "<br />×ÜÈÝÁ¿£º" & d.TotalSize Response.Write(n) set d=nothing set fs=nothing %>