这是一个ASP显示剩余磁盘空间的函数
需要的朋友可以拿去直接用就可以了
Function ShowFreeSpace(drvPath)
Dim fso d s
Set fso = CreateObject(ScriptingFileSystemObject)
Set d = fsoGetDrive(fsoGetDriveName(drvPath))
s = 驱动器 & UCase(drvPath) &
s = s & dVolumeName &<BR>
s = s & 可用空间 & FormatNumber(dFreeSpace/ )
s = s & KB
ShowFreeSpace = s
End Function
