ASP显示剩余磁盘空间函数

ASP显示剩余磁盘空间函数,标签：unix网络编程,java网络编程,http://www.xxk123.com

    有时候我们在用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:\")
%>