<%@ LANGUAGE=VBScript CodePage=936%>
  <% 
	data_path="../" 'ACC连接数据库路径，对SQL无效
	numid="121"
	dir="err.asp" 
  %>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/filesystem.asp"-->
 <!--#include file="../inc/safe.asp"-->
<!--#include file="../inc/md5.asp"-->
 <!--#include file="rolecheckout.asp"-->
 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站信息设置</title>
<LINK href="css/style.css" rel=stylesheet type=text/css>
</head>
<body><table cellpadding="2" cellspacing="1" border="0" width="98%" class="tableBorder" align=center>
  <tr align="center">
    <th height=25 align="center"><span class="tableHeaderText"><strong>系统空间占用情况</strong></span></th>
  </tr>
</table>
<table cellpadding="2" cellspacing="1" border="0" width="600" align="center" class=tableBorder >
  <tr class="a4"> 
    <td width="100%" height="150" valign="middle" bgcolor="#ECF5FF">
	<blockquote><br>
	<font color="#0099CC">系统总占用空间： </font>&nbsp; &nbsp;
      <font color="red"><%showSpaceinfo(HOPE_InstallDir)%></font><br><br>
	<%
	if Database_type=0 then
	%>
      系统数据库(ACCESS)占用空间：&nbsp;&nbsp;
       <%showSpaceinfo("../database")%>
	  
      <br>
      <br>
      备份数据库占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../databackup")%>
      <br> <br><%
	  end if
	  %>
     
      
       我要销售信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../seller")%>
      <br><br> 
	  我要采购信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../tradeinfo")%>
      <br> <br>
	   产品库信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../productshow")%>
      <br><br> 
	  公司库信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../corporation")%>
      <br><br>
      会员模版信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../skin")%>
      <br><br> 
       系统模版数据信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../skins")%>
      <br>  <br>
       帮助信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../help")%>
      <br><br> 
	  资讯信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../info")%>
      <br><br> 
     
	  会员信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../vipcom")%>
      <br><br> 
      上传文件占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../UploadFile")%><br>
      <br>
       专项商机信息占用空间：&nbsp;&nbsp;
      <%showSpaceinfo("../vipinfo")%>
      <br>
      <br>
  	</blockquote>    </td>
  </tr>
</table>
</body></html>
<%
Sub ShowSpaceInfo(drvpath)
	dim fso,d,sizea,showsize
	set fso=YXFSO 		
	drvpath=server.mappath(drvpath) 		 		
	set d=fso.getfolder(drvpath) 		
	size=d.size
	showsize=size & "&nbsp;Byte" 
	if size>1024 then
	   size=(size\1024)
	   showsize=size & "&nbsp;KB"
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=formatnumber(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=formatnumber(size,2) & "&nbsp;GB"	   
	end if   
	response.write "<font face=verdana>" & showsize & "</font>"
End Sub	
 
%>