<!--#include file=admin_sb.asp--><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height="20"> <p>查看空间占用情况<br>
      <%
	  	call showspaceinfo
	  %>
      </td>
  </tr>
</table>
<%sub showspaceinfo
		Set fso = CreateObject("Scripting.FileSystemObject") 
		Set f = fso.GetFolder(Server.Mappath("../")) 
		txl_Space = f.Size
		Set f = Nothing
		Set f = fso.GetFolder(Server.Mappath("../"&const_upfile)) 
		upfile = f.Size
		Set f = Nothing
		Set f = fso.GetFolder(Server.Mappath("../"&const_data)) 
		data = f.Size
		Set f = Nothing
		Set f = fso.GetFolder(Server.Mappath("../"&const_bak)) 
		bak = f.Size
		Set f = Nothing
%>
        <tr> 
          <td><br>
      目录总占用空间：<font color="#FF0000"><%=PrintSpaceValue(txl_Space)%></font> 
      [<font color="#FF0000"><%=txl_Space%></font> Bytes]<br>
      上传文件总占用空间：<font color="#FF0000"><%=PrintSpaceValue(upfile)%></font> 
      [<font color="#FF0000"><%=Upload_Space%></font> Bytes]<br>
      数据库文件大小：<font color="#FF0000"><%=PrintSpaceValue(data)%></font>  [<%=database_Space%> Bytes]<br>
      备份数据库文件大小：<font color="#FF0000"><%=PrintSpaceValue(bak)%></font>  [<%=database_Space%> Bytes]<br> </td>
        </tr>
<%
end sub
Function PrintSpaceValue(vv)

	Dim v
	v = vv
	If v > 1024*1024 Then
		v = v/1024/1024
		If inStr(v,".") Then
			v = Left(v,inStr(v,".")+2)
		End If
		v = v & " M"
	Else
		v = Fix(v/1024) & " K"
	End If
	PrintSpaceValue = v

End Function
%>