response.write " method=Post>"
response.write "<TD width=25"&chr(37)&"><B>盘符</B></TD>"
response.write "<TD width=15"&chr(37)&">"
response.write DriveB.DriveLetter
response.write ":</TD>"
response.write " <TD width=20"&chr(37)&"><B>类型</B></TD>"
response.write " <TD width=20"&chr(37)&">"
Select Case DriveB.DriveType
Case 1: Response.write "可移动"
Case 2: Response.write "本地硬盘"
Case 3: Response.write "网络磁盘"
Case 4: Response.write "CD-ROM"
Case 5: Response.write "RAM磁盘"
Case else: Response.write "未知类型"
End Select
Response.Write " </TD>"
Response.Write " <TD><INPUT type=submit value=详细报告></TD>"
Response.Write " </FORM>"
Response.Write " </TR>"
Next
Response.Write " <TR class=TBTD>"
Response.Write " <FORM action="
Response.Write "?Action=ScFolder&Folder="
Response.Write FSO.GetSpecialFolder(0)
Response.Write " method=Post> "
Response.Write " <TD align=middle><B>Windows文件夹</B></TD>"
Response.Write " <TD colspan=3>"
Response.Write FSO.GetSpecialFolder(0)
Response.Write "</TD>"
Response.Write " <TD align=middle><INPUT type=submit value=详细报告></TD>"
Response.Write " </FORM>"
Response.Write " </TR>"
Response.Write " <TR class=TBTD>"
Response.Write " <FORM action="
Response.Write "?Action=ScFolder&Folder="
Response.Write FSO.GetSpecialFolder(1)
Response.Write " method=Post> "
Response.Write " <TD align=middle><B>System32文件夹</B></TD>"
Response.Write " <TD colspan=3>"
Response.Write FSO.GetSpecialFolder(1)
Response.Write "</TD>"
Response.Write " <TD align=middle><INPUT type=submit value=详细报告></TD>"
Response.Write " </FORM>"
Response.Write " </TR>"
Response.Write " <TR class=TBTD>"
Response.Write " <FORM action="
Response.Write "?Action=ScFolder&Folder="
Response.Write FSO.GetSpecialFolder(2)
Response.Write " method=Post> "
Response.Write " <TD align=middle><B>系统临时文件夹</B></TD>"
Response.Write " <TD colspan=3>"
Response.Write FSO.GetSpecialFolder(2)
Response.Write "</TD>"
Response.Write " <TD align=middle><INPUT type=submit value=详细报告></TD>"
Response.Write " </FORM>"
Response.Write " </TR>"
Response.Write "</TABLE><BR>"
Response.Write "<DIV align=center>"
Response.Write "<b>当前网站绝对路径:"&Server.MapPath("/")&"</b>"
Response.Write " <FORM Action="
Response.Write "?Action=ScFolder method=Post>指定文件夹查询："
Response.Write " <INPUT type=text name=Folder>"
Response.Write " <INPUT type=submit value=生成报告> 指定文件夹路径。如：F:ASP"
