admin_db_space.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:2k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#include file=admin_sb.asp--><%
  2. '====================================================================
  3. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  4. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  5. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  6. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  7. '====================================================================
  8. %> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
  9.   <tr> 
  10.     <td height="20"> <p>查看空间占用情况<br>
  11.       <%
  12.    call showspaceinfo
  13.   %>
  14.       </td>
  15.   </tr>
  16. </table>
  17. <%sub showspaceinfo
  18. Set fso = CreateObject("Scripting.FileSystemObject") 
  19. Set f = fso.GetFolder(Server.Mappath("../")) 
  20. txl_Space = f.Size
  21. Set f = Nothing
  22. Set f = fso.GetFolder(Server.Mappath("../"&const_upfile)) 
  23. upfile = f.Size
  24. Set f = Nothing
  25. Set f = fso.GetFolder(Server.Mappath("../"&const_data)) 
  26. data = f.Size
  27. Set f = Nothing
  28. Set f = fso.GetFolder(Server.Mappath("../"&const_bak)) 
  29. bak = f.Size
  30. Set f = Nothing
  31. %>
  32.         <tr> 
  33.           <td><br>
  34.       目录总占用空间:<font color="#FF0000"><%=PrintSpaceValue(txl_Space)%></font> 
  35.       [<font color="#FF0000"><%=txl_Space%></font> Bytes]<br>
  36.       上传文件总占用空间:<font color="#FF0000"><%=PrintSpaceValue(upfile)%></font> 
  37.       [<font color="#FF0000"><%=Upload_Space%></font> Bytes]<br>
  38.       数据库文件大小:<font color="#FF0000"><%=PrintSpaceValue(data)%></font>  [<%=database_Space%> Bytes]<br>
  39.       备份数据库文件大小:<font color="#FF0000"><%=PrintSpaceValue(bak)%></font>  [<%=database_Space%> Bytes]<br> </td>
  40.         </tr>
  41. <%
  42. end sub
  43. Function PrintSpaceValue(vv)
  44. Dim v
  45. v = vv
  46. If v > 1024*1024 Then
  47. v = v/1024/1024
  48. If inStr(v,".") Then
  49. v = Left(v,inStr(v,".")+2)
  50. End If
  51. v = v & " M"
  52. Else
  53. v = Fix(v/1024) & " K"
  54. End If
  55. PrintSpaceValue = v
  56. End Function
  57. %>