<html> <body> <% Set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.driveexists("c:") = true then Response.Write("驱动器 c: 存在。") Else Response.Write("驱动器 c: 不存在。") End If Response.write("<br />") if fs.driveexists("g:") = true then Response.Write("驱动器 g: 存在。") Else Response.Write("驱动器 g: 不存在。") End If set fs=nothing %> </body> </html>