📄 4-7.asp
字号:
<html>
<head>
<title>4-7.asp</title>
</head>
<body>
<%
TestDrive="C:"
set fs = Server.CreateObject("Scripting.FileSystemObject")
'调用它的GetDrive方法，将驱动器赋给一个变量
set f = fs.GetDrive(TestDrive)
'显示根目录
Response.Write("根目录: ")
Response.Write(f.RootFolder)
Response.Write("<BR>")
'显示磁盘类型 如软盘，硬盘等
Response.Write("驱动器类型: ")
if f.DriveType=2 then
Response.Write("Fixed")
end if
if f.DriveType=1 then
Response.Write("Removable")
end if
Response.Write("<BR>")
'显示磁盘文件系统类型 如NTFS,FAT32或FAT16等
Response.Write("文件系统 ")
Response.Write(f.FileSystem)
Response.Write("<BR>")
'显示磁盘总空间
Response.Write("驱动器大小: ")
Response.Write(f.TotalSize)
Response.Write("<BR>")
'显示剩余空间
Response.Write("驱动器剩余空间: ")
Response.Write(f.freespace)
Response.Write("<BR>")
'显示序列号
Response.Write("驱动器序列号: ")
Response.Write(f.SerialNumber)
set f=nothing
set fs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -