📄 allspace.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5
💻 ASP
字号:
<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<%
'==========================================
'
'  
'
'  
'
'==========================================
'
'此程序作用：备份数据
'程序创建时间：2002-11-02
'程序完成时间：2002-11-02
'最后修改时间：2002-11-02
'==========================================
  set fso=Server.CreateObject("Scripting.FileSystemObject")
  DirName=left(server.mappath("."),instrRev(server.mappath("."),"\")-1)
  DirName=left(server.mappath("."),instrRev(server.mappath("."),"\"))
  set GetFolder=fso.GetFolder(DirName)
  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("..")&"\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 rs=conn.execute("select BigClassEN from BigClass")
  while not rs.eof
    set GetClassSpace=fso.GetFolder(Server.mappath("..")&"\"&rs("BigClassEN")&"")
    ClassSpace=GetClassSpace.size
    AllClassSpace=ClassSpace+AllClassSpace
	rs.movenext
  wend
  SAllClassSpace=AllClassSpace
  if formatnumber(AllClassSpace,2)=0 then ShowAllClassSpace="0&nbsp;KB" 
  if AllClassSpace>1024 then
     AllClassSpace=AllClassSpace/1024
	 ShowAllClassSpace=formatnumber(AllClassSpace,2)&"&nbsp;KB"
  end if
  if AllClassSpace>1024 then
     AllClassSpace=AllClassSpace/1024
	 ShowAllClassSpace=formatnumber(AllClassSpace,2)&"&nbsp;MB"
  end if

  OtherSpace=SAllSpace-SProgramSpace-SUpfileSpace-SAllClassSpace
  SOtherSpace=SAllSpace-SProgramSpace-SUpfileSpace-SAllClassSpace
  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 background="images/BLogo.gif">
<p>&nbsp;</p>
  <p>&nbsp;</p>
  
<table width="348" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
  <tr> 
    <td onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; height="16" colspan="7" valign="middle" ><!--#include file = topMenu.htm--></td>
  </tr>
  <tr> 
    <td onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; height="16" bgcolor="#FFFFFF" colspan="7" >系统总占用空间： 
    <img src=images/space.gif width=200 height=10><%=ShowAllSpace%></td>
  </tr>
  <tr> 
    <td onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; height="16" bgcolor="#FFFFFF" colspan="7" >主程序占用空间： 
    <img src=images/space.gif width=<%=SProgramSpace/SAllSpace*200%> height=10><%=ShowProgramSpace%></td>
  </tr>
  <tr> 
    <td onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; height="16" bgcolor="#FFFFFF" colspan="7" >图&nbsp;&nbsp;片占用空间：
    <img src=images/space.gif width=<%=SUpfileSpace/SAllSpace*200%> height=10><%=ShowUpfileSpace%></td>
  </tr>
  <tr> 
    <td onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; height="16" bgcolor="#FFFFFF" colspan="7" >各栏目占用空间： 
    <img src=images/space.gif width=<%=SAllClassSpace/SAllSpace*200%> height=10><%=ShowAllClassSpace%></td>
  </tr>
  <tr> 
    <td onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; height="16" bgcolor="#FFFFFF" colspan="7" >其它&nbsp;&nbsp;占用空间： 
    <img src=images/space.gif width=<%=SOtherSpace/SAllSpace*200%> height=10><%=ShowOtherSpace%></td>
  </tr>
  <tr> 
    <td onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; height="60" colspan="7" bgcolor="#FFFFFF" > 
      <p>&nbsp;</p>
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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