admin_data.asp

这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主

<!--#include file="seeadmin.asp"-->
<%

call gadmin
%>
<%
statroom
%>
<%
sub statroom
set fso=server.createobject("scripting.filesystemobject")
datadir=server.mappath(".././fn")
set d=fso.getfolder(datadir)
datasize=d.size
'数据库占用空间大小

imagesdir=server.mappath(".././images")
set d=fso.getfolder(imagesdir)
imagessize=d.size
'系统图片占用空间大小
newsdir=server.mappath(".././news")
set d=fso.getfolder(newsdir)
newssize=d.size
'新闻占用空间大小
mobandir=server.mappath(".././moban")
set d=fso.getfolder(mobandir)
mobansize=d.size
'模板占用空间大小
uploaddir=server.mappath(".././upload")
set d=fso.getfolder(uploaddir)
uploadsize=d.size
'上传文件占用空间大小




toldir=server.mappath("../.")
set d=fso.getfolder(toldir)
tolsize=d.size

totalBytes=tolsize



%>
<style type="text/css">
<!--
body {
	background-color: #CCCCFF;
}
.style1 {
	color: #FF0000;
	font-weight: bold;
	font-size: 18px;
}
-->
</style>

<table cellspacing="1" cellpadding="2" width="600" border="0" class="a2" align="center">
  <tr align="center" height=25>
    <td height="25" colspan="2" bgcolor="#A6CAF0" class=a1><span class="style1">统计占用空间</span></td>
  </tr>
   <tr bgcolor="#D4BFFF" height=25>
    <td width="29%" class=a3>
    

数据库文件占用空间<br>




</td>
    <td width="69%" class=a3>
    

<IMG height=10 src="../images/bar/6.gif" width=<%=Int(datasize/totalBytes*80)%>%> <%totalsize(datasize)%></td>
  </tr>
     
   <tr bgcolor="#D4BFFF" height=25>
    <td width="29%" class=a3>
    

    

系统图片占用空间</td>
    <td width="69%" class=a3>
    

<IMG height=10 src="../images/bar/2.gif" width=<%=Int(imagessize/totalBytes*80)%>%> <%totalsize(imagessize)%></td></tr>



   <tr bgcolor="#D4BFFF" height=25>
    <td width="29%" class=a3>
    

新闻文件占用空间</td>
    <td width="69%" class=a3>
    

<IMG height=10 src="../images/bar/4.gif" width=<%=Int(newssize/totalBytes*80)%>%> <%totalsize(newssize)%></td></tr>
<tr bgcolor="#D4BFFF" height=25>
    <td width="29%" class=a3>
    

模板文件占用空间</td>
    <td width="69%" class=a3>
    

<IMG height=10 src="../images/bar/4.gif" width=<%=Int(mobansize/totalBytes*80)%>%> <%totalsize(mobansize)%></td></tr>
<tr bgcolor="#D4BFFF" height=25>
    <td width="29%" class=a3>
    

上传文件占用空间<br>




</td>
    <td width="69%" class=a3>
    

<IMG height=10 src="../images/bar/4.gif" width=<%=Int(uploadsize/totalBytes*80)%>%> <%totalsize(uploadsize)%></td></tr>
<tr bgcolor="#D4BFFF" height=25>
    <td width="29%" class=a3>
    

系统总共占用空间<br>




</td>
    <td width="69%" class=a3>
    

<IMG height=10 src="../images/bar/0.gif" width=<%=Int(tolsize/totalBytes*80)%>%> <%totalsize(tolsize)%></td></tr>
</table>


<%
end sub
sub totalsize(size)
if size<1024 then
response.write size&" Bytes"
elseif size<1048576 then
response.write Int(size/1024)&" KB"
else
response.write Int(size/1024/1024)&" MB"
end if
end sub
%>