This is a function for ASP to display the remaining disk space. Friends who need it can just use it directly.
Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject(Scripting.FileSystemObject)
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
s = drive&UCase(drvPath) & -
s = s & d.VolumeName &<BR>
s = s & free space: & FormatNumber(d.FreeSpace/1024, 0)
s = s&KB
ShowFreeSpace=s
End Function