<html> <body> <% dim fs, d set fs=Server.CreateObject("Scripting.FileSystemObject") set d=fs.GetDrive("c:") Response.Write("设备的类型为： " & d.DriveType) set d=nothing set fs=nothing %> <table border="1"> <tr> <td>类型</td> <td>注释</td> </tr> <tr> <td>0</td> <td>未知</td> </tr> <tr> <td>1</td> <td>可移动</td> </tr> <tr> <td>2</td> <td>固定</td> </tr> <tr> <td>3</td> <td>网络</td> </tr> <tr> <td>4</td> <td>光驱</td> </tr> <tr> <td>5</td> <td>RAM 磁盘</td> </tr> </table> </body> </html>
效果会显示在右边 Create by 软晨网（RuanChen.com）