admin_db_space.asp

来自「一个用ASP和ACCESS做的网络建站系统 1.WAP站长论坛网站系统【测试版」· ASP 代码 · 共 53 行

<!--#include file=admin_login_check.asp-->
<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
%>