ASP显示剩余磁盘空间函数

有时候我们在用ASP编写程序的时候，可能需要了解当前服务器上剩余磁盘空间的情况，以便我们存放更多的东西到服务器上。这个时候可能就需要用到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
'下面是调用ASP显示剩余磁盘空间函数的方法，假设要显示D盘的剩余磁盘空间
response.write ShowFreeSpace("D:\")
%>