admin_db_space.asp
资源名称:wap.rar [点击查看]
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:2k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#include file=admin_sb.asp--><%
- '====================================================================
- ' 请你保留这段说明,这并不会影响你的速度. 电脑交流:http://www.cnscu.cn
- ' 程序制作:横云 掌上校园收倾心整理收集于互联网,感谢你的支持!
- ' 升级时间: 2008-2-5 主页地址:HTTP://wap.cnscu.cn
- ' E-Mail: cnscu@126.com 客服QQ:554904632 QQ群:30493504 QQ群2:46659883
- '====================================================================
- %> <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
- %>