查看虚拟主机空间剩余与使用代码急在线等谢谢各位大虾了！
查看虚拟主机空间剩余与使用代码急在线等谢谢各位大虾了！
比如说虚拟主机空间在
e:\web\111
111是500M的怎么查看他用了多少剩余多少啊！谢谢了。


------解决方案--------------------
ASP获取目录空间大小函数：

Function FunFileSize()
dim FSO,dir,strSize
set FSO = server.CreateObject( "Scripting.FileSystemObject ")
set dir = FSO.GetFolder(Server.MapPath( "../ "))
strSize = cSize(dir.Size)
Set dir = Nothing
Set FSO = Nothing
FunFileSize = strSize
End Function

注：您的空间必须支持FSO
------解决方案--------------------
<%
Dim t
t=FunFileSize
Response.Write "当前空间的大小为： "&t
%>