admin_dbsize.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

<%
'==================================
'=文 件 名：Admin_dbsize.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：文件占用空间图列
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then	
	errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
	response.End
elseif cur_adminsuper<>1 then
	errmsg=""&cur_adminname&"，您不是超级管理员，没有权限进行此操作！"
response.write "<script>window.alert('"&errmsg&"');window.location='javascript:history.go(-1);';</script>"
	response.End
end if
call main()
sub main()
		Set fso = CreateObject("Scripting.FileSystemObject") 
		Set f = fso.GetFolder(Server.Mappath("../")) 
		wap = f.Size
		Set f = Nothing
		Set f = fso.GetFolder(Server.Mappath("../admin")) 
		admin = f.Size
		Set f = Nothing
		Set f = fso.GetFolder(Server.Mappath("../Upload")) 
		Upload = f.Size
		Set f = Nothing
		Set f = fso.GetFolder(Server.Mappath("../logo")) 
		logo = f.Size
		Set f = Nothing
		Set f = fso.GetFolder(Server.Mappath("../mdb")) 
		mdb = f.Size
		Set f = Nothing
		Set f = fso.GetFolder(Server.Mappath("../Skins")) 
		Skins = f.Size
		Set f = Nothing

size=0.1	'图列放大倍数
%>
<table cellspacing="1" cellpadding="4" align="center" class="tableborder" align="center">
<tr class="tablebody"><td class="td_title" align="center">空 间 占 用 情 况 </td></tr>

<tr class="tablebody"><td>图象文件占用空间资源</td></td></tr>
<tr class="tablebody"><td><img src="images/loadingfront.gif" height="12"><img src="images/load.gif" width="<%=formatdsize(logo*size)%>" height="12"><img src="images/loadingend.gif" height="12"></td></tr>
<tr class="tablebody"><td>[<font color="#FF0000"><%=formatdsize(logo)%></font>]</td></tr>

<tr class="tablebody"><td>模版文件占用空间资源</td></td></tr>
<tr class="tablebody"><td><img src="images/loadingfront.gif" height="12"><img src="images/load.gif" width="<%=formatdsize(Skins*size)%>" height="12"><img src="images/loadingend.gif" height="12"></td></tr>
<tr class="tablebody"><td>[<font color="#FF0000"><%=formatdsize(Skins)%></font>]</td></tr>

<tr class="tablebody"><td>后台文件占用空间资源</td></td></tr>
<tr class="tablebody"><td><img src="images/loadingfront.gif" height="12"><img src="images/load.gif" width="<%=formatdsize(admin*size)%>" height="12"><img src="images/loadingend.gif" height="12"></td></tr>
<tr class="tablebody"><td><p>[<font color="#FF0000"><%=formatdsize(admin)%></font>]</p></td></tr>

<tr class="tablebody"><td>上传文件占用空间资源</td></tr>
<tr class="tablebody"><td><img src="images/loadingfront.gif" height="12"><img src="images/load.gif" width="<%=formatdsize(Upload*size)%>" height="12"><img src="images/loadingend.gif" height="12"></td></tr>
<tr class="tablebody"><td>[<font color="#FF0000"><%=formatdsize(Upload)%></font>]</td></tr>

<tr class="tablebody"><td>数据文件占用空间资源</td></td></tr>
<tr class="tablebody"><td><img src="images/loadingfront.gif" height="12"><img src="images/load.gif" width="<%=formatdsize(mdb*size)%>" height="12"><img src="images/loadingend.gif" height="12"></td></tr>
<tr class="tablebody"><td><p>[<font color="#FF0000"><%=formatdsize(mdb)%></font>]</p></td></tr>

<tr class="tablebody"><td>全部文件占用空间资源</td></td></tr>
<tr class="tablebody"><td><img src="images/loadingfront.gif" height="12"><img src="images/load.gif" width="<%=formatdsize(wap*size)%>" height="12"><img src="images/loadingend.gif" height="12"></td></tr>
<tr class="tablebody"><td>[<font color="#FF0000"><%=formatdsize(wap)%></font>]</td></tr>

<tr class="tablebody"><td>您可以用这个功能来了解您的网站内容的大小，仅作为参考！与空间的大小，数据库的能力大小无任何关联！</td></tr>
</table>
<%
end sub
Function formatdsize(dsize)
    if dsize>=1073741824 then
		formatdsize=Formatnumber(dsize/1073741824,2) & " GB"
    else
    	formatdsize=Formatnumber(dsize/1048576,2) & " MB"
	end if
End Function
%>
<!--#include file="wapls_admin_bottom.asp"-->
</body>
</html>