<html> <body> <% Dim fs, d, \n Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive("c:") \n = d & " 盘的可用空间大小为：" & d.AvailableSpace & " b" Response.Write(\n) set d=nothing set fs=nothing %> </body> </html>
效果会显示在右边 Create by 软晨网（RuanChen.com）