www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/data.asp
<%Admin="SysSee"%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta copy="WWW.2KY.CN 共享世纪">
<title>共享世纪新闻文章管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<!--#include file="check.asp"-->
<!--#include file="top.asp"-->
<body>
<%
'==========================================
'
' 晓宇听幽新闻文章管理系统 2004
'
' 主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
'=====================系统空间参数=========================
Sub ShowSpaceInfo(drvpath)
dim fso,d,size,showsize
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end if
response.write "<font face=verdana>" & showsize & "</font>"
End Sub
Sub Showspecialspaceinfo(method)
dim fso,d,fc,f1,size,showsize,drvpath
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(".\")
drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
set d=fso.getfolder(drvpath)
if method="All" then
size=d.size
end if
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end if
response.write "<font face=verdana>" & showsize & "</font>"
end sub
Sub Showspecialspaceinfo2(method)
dim fso,d,fc,f1,size,showsize,drvpath
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath("data")
drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
set d=fso.getfolder(drvpath)
if method="Program" then
set fc=d.Files
for each f1 in fc
size=size+f1.size
next
end if
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end if
response.write "<font face=verdana>" & showsize & "</font>"
end sub
Function Drawbar(drvpath)
dim fso,drvpathroot,d,size,totalsize,barsize
set fso=server.createobject("scripting.filesystemobject")
drvpathroot=server.mappath(".\")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
barsize=cint((size/totalsize)*350)
Drawbar=barsize
End Function
Function Drawspecialbar()
dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
set fso=server.createobject("scripting.filesystemobject")
drvpathroot=server.mappath("d")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
set fc=d.files
for each f1 in fc
size=size+f1.size
next
barsize=cint((size/totalsize)*350)
Drawspecialbar=barsize
End Function
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr>
<th width="100%" bgcolor="#99CCFF"><b> <img border="0" src="images/BULLIST.GIF"> 系统空间占用情况</b></th>
</tr>
<tr>
<td width="100%" class="forumrow">
<blockquote><br>
常规数据占用空间： <img src="images/bar.gif" width=<%=drawbar("data")%> height=10> <%showSpaceinfo("data")%><br><br>
备份数据占用空间： <img src="images/bar.gif" width=<%=drawbar("data_backup")%> height=10> <%showSpaceinfo("data_backup")%><br><br>
管理中心占用空间： <img src="images/bar.gif" width=<%=drawspecialbar%> height=10> <%showSpecialSpaceinfo2("Program")%><br><br>
管理中心图片空间： <img src="images/bar.gif" width=<%=drawbar("images")%> height=10> <%showSpaceinfo("images")%><br><br>
文章页面占用空间： <img src="images/bar.gif" width=<%=drawbar("../html")%> height=10> <%showSpaceinfo("../html")%><br><br>
分类页面占用空间： <img src="images/bar.gif" width=<%=drawbar("../list")%> height=10> <%showSpaceinfo("../list")%><br><br>
分类JS文件占用空间： <img src="images/bar.gif" width=<%=drawbar("../Listjs")%> height=10> <%showSpaceinfo("../Listjs")%><br><br>
专题页面占用空间： <img src="images/bar.gif" width=<%=drawbar("../special")%> height=10> <%showSpaceinfo("../special")%><br><br>
广告JS文件占用空间： <img src="images/bar.gif" width=<%=drawbar("../ads")%> height=10> <%showSpaceinfo("../ads")%><br><br>
上传图片占用空间： <img src="images/bar.gif" width=<%=drawbar("../uploadimg")%> height=10> <%showSpaceinfo("../uploadimg")%><br><br>
自定义JS文件占用空间： <img src="images/bar.gif" width=<%=drawbar("../js")%> height=10> <%showSpaceinfo("../js")%><br><br>
其它文件空间总计： 不统计<br><br>
系统占用空间总计： <img src="images/bar.gif" width=350 height=10> <%showspecialspaceinfo("All")%>
</blockquote></td>
</tr>
</table>
</body>
</html>