<html> <body> <% dim fs,d,\n set fs=Server.CreateObject("Scripting.FileSystemObject") set d=fs.GetDrive("c:") \n = d.DriveLetter if d.IsReady=true then \n = n & " 盘就绪" else \n = n & " 盘还未就绪" end if Response.Write(\n) set d=nothing set fs=nothing %> </body> </html>
效果会显示在右边 Create by 软晨网（RuanChen.com）