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