📄 admin_allspace.asp

📁 新闻发布系统
💻 ASP
字号:
<!--#include file = include.asp-->
<!--#include file = admin_checkmana.asp-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://BBS.COOIN.COM)
'=========================================================
%>
<%
 set fso=Server.CreateObject("Scripting.FileSystemObject")
  allsize=Server.mappath(".")
  set GetFolder=fso.GetFolder(allsize)
  AllSpace=getfolder.size
  SAllSpace=getfolder.size
  if AllSpace>1024 then
     AllSpace=AllSpace/1024
	 ShowAllSpace=formatnumber(AllSpace,2)&"&nbsp;KB"
  end if
  if AllSpace>1024 then
     AllSpace=AllSpace/1024
	 ShowAllSpace=formatnumber(AllSpace,2)&"&nbsp;MB"
  end if
  set GetProgramSpace=fso.GetFolder(Server.mappath("."))
  ProgramSpace=GetProgramSpace.size
  SProgramSpace=GetProgramSpace.size
  if ProgramSpace>1024 then
     ProgramSpace=ProgramSpace/1024
	 ShowProgramSpace=formatnumber(ProgramSpace,2)&"&nbsp;KB"
  end if
  if ProgramSpace>1024 then
     ProgramSpace=ProgramSpace/1024
	 ShowProgramSpace=formatnumber(ProgramSpace,2)&"&nbsp;MB"
  end if
  set GetUpfileSpace=fso.GetFolder(Server.mappath("..")&"\Files\Upfile")
  UpfileSpace=GetUpfileSpace.size
  SUpfileSpace=GetUpfileSpace.size
  if UpfileSpace>1024 then
     UpfileSpace=UpfileSpace/1024
	 ShowUpfileSpace=formatnumber(UpfileSpace,2)&"&nbsp;KB"
  end if
  if UpfileSpace>1024 then
     UpfileSpace=UpfileSpace/1024
	 ShowUpfileSpace=formatnumber(UpfileSpace,2)&"&nbsp;MB"
  end if
  '-------------------
   set GetDataSpace=fso.GetFolder(Server.mappath("database"))
  DataSpace=GetDataSpace.size
  SDataSpace=GetDataSpace.size
  if DataSpace>1024 then
     DataSpace=DataSpace/1024
	 ShowDataSpace=formatnumber(DataSpace,2)&"&nbsp;KB"
  end if
  if DataSpace>1024 then
     DataSpace=DataSpace/1024
	 ShowDataSpace=formatnumber(DataSpace,2)&"&nbsp;MB"
  end if
  '----------
   '-------------------
  set GethtmSpace=fso.GetFolder(Server.mappath("../"&year(date())&""))
  htmSpace=GethtmSpace.size
  ShtmSpace=GethtmSpace.size
  if htmSpace>1024 then
     htmSpace=htmSpace/1024
	 ShowhtmSpace=formatnumber(htmSpace,2)&"&nbsp;KB"
  end if
  if htmSpace>1024 then
     htmSpace=htmSpace/1024
	 ShowhtmSpace=formatnumber(htmSpace,2)&"&nbsp;MB"
  end if
  '----------

  OtherSpace=SAllSpace-SDataSpace-ShtmSpace-SUpfileSpace
  SOtherSpace=SAllSpace-SDataSpace-SUpfileSpace-ShtmSpace
  if OtherSpace>1024 then
     OtherSpace=OtherSpace/1024
	 ShowOtherSpace=formatnumber(OtherSpace,2)&"&nbsp;KB"
  end if
  if OtherSpace>1024 then
     OtherSpace=OtherSpace/1024
	 ShowOtherSpace=formatnumber(OtherSpace,2)&"&nbsp;MB"
  end if	
%>
<body bgcolor="#FFFFFF">
<p>&nbsp;</p>
  <p>&nbsp;</p>
  
<table width="509" height="146" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
  <tr> 
    <td width="446"  height="16" colspan="7" bgcolor="#F7FFF4" >　系统总占用空间： <img src=images/count.gif width=277 height=10><%=ShowAllSpace%></td>
  </tr>
  <tr> 
    <td height="16" bgcolor="#F7FFF4" colspan="7" >　数据库占用空间： <img src=images/count.gif width=<%=SDataSpace/SAllSpace*200%> height=10><%=ShowDataSpace%></td>
  </tr>
  <tr> 
    <td height="16" bgcolor="#F7FFF4" colspan="7" > 　新闻　占用空间： <img src=images/count.gif width=<%=ShtmSpace/SAllSpace*200%> height=10><%=ShowhtmSpace%></td>
  </tr>
  <tr> 
    <td height="16" bgcolor="#F7FFF4" colspan="7" >　上传图片 占 用： <img src=images/count.gif width=<%=SUpfileSpace/SAllSpace*200%> height=10><%=ShowUpfileSpace%></td>
  </tr>
  <tr> 
    <td  height="16" bgcolor="#F7FFF4" colspan="7" >　主程序占用空间： <img src=images/count.gif width=<%=SOtherSpace/SAllSpace*200%> height=10><%=ShowOtherSpace%></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -