这是一个ASP显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了，
Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject(Scripting.FileSystemObject)
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
s = 驱动器 & UCase(drvPath) & -
s = s & d.VolumeName &<BR>
s = s & 可用空间： & FormatNumber(d.FreeSpace/1024, 0)
s = s & KB
ShowFreeSpace = s
End Function