<% if Instr(session("AdminPurview"),"|38,")=0 then response.write ("

您没有管理该模块的权限！

") response.end end if '========判断是否具有管理权限 %>

统计栏目	路径	大小	百分比	图示
系统总占用空间	<%=SysRootDir%>	<%=SizeInfo(SizeByte(SysRootDir))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir)),,-1)%>
页面文件夹	<%=SysRootDir&"Ch"%>	<%=SizeInfo(SizeByte(SysRootDir&"Ch"))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&"Ch")),,-1)%>	" height="8">
流量统计文件夹	<%=SysRootDir&"Count"%>	<%=SizeInfo(SizeByte(SysRootDir&"Count"))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&"Count")),,-1)%>	" height="8">
数据库存放文件夹	<%=SysRootDir&"Database"%>	<%=SizeInfo(SizeByte(SysRootDir&"Database"))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&"Database")),,-1)%>	" height="8">
网站常规数据库	<%=SysRootDir&SiteDataPath%>	<%=SizeInfo(SizeByte(SysRootDir&SiteDataPath))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&SiteDataPath)),,-1)%>
网站备份数据库	<%=SysRootDir&SiteDataBakPath%>	<%=SizeInfo(SizeByte(SysRootDir&SiteDataBakPath))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&SiteDataBakPath)),,-1)%>
流量常规数据库	<%=SysRootDir&StatDataPath%>	<%=SizeInfo(SizeByte(SysRootDir&StatDataPath))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&StatDataPath)),,-1)%>
流量备份数据库	<%=SysRootDir&StatDataBakPath%>	<%=SizeInfo(SizeByte(SysRootDir&StatDataBakPath))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&StatDataBakPath)),,-1)%>
在线编辑器文件夹	<%=SysRootDir&"Editor"%>	<%=SizeInfo(SizeByte(SysRootDir&"Editor"))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&"Editor")),,-1)%>	" height="8">
网站包含文件	<%=SysRootDir&"Include"%>	<%=SizeInfo(SizeByte(SysRootDir&"Include"))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&"Include")),,-1)%>	" height="8">
网站前台JS脚本文件	<%=SysRootDir&"Script"%>	<%=SizeInfo(SizeByte(SysRootDir&"Script"))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&"Script")),,-1)%>	" height="8">
管理后台文件夹	<%=SysRootDir&"admin"%>	<%=SizeInfo(SizeByte(SysRootDir&"admin"))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&"admin")),,-1)%>	" height="8">
管理后台图片文件夹	<%=SysRootDir&"admin/Images"%>	<%=SizeInfo(SizeByte(SysRootDir&"admin/Images"))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&"admin/Images")),,-1)%>	" height="8">
文件上传保存目录	<%=SysRootDir&"upload"%>	<%=SizeInfo(SizeByte(SysRootDir&"upload"))%>	<%=FormatPercent(Percent(SizeByte(SysRootDir&"upload")),,-1)%>	" height="8">

<% '============ function SizeByte(Path) dim fso set fso=server.createobject("scripting.filesystemobject") Path=server.mappath(Path) if fso.FileExists(Path) then SizeByte=fso.getfile(Path).size elseif fso.FolderExists(Path) then SizeByte=fso.getfolder(Path).size else SizeByte="PathError" end if end function '============ function SizeInfo(SizeByte) if SizeByte="PathError" then SizeInfo="未找到" else if SizeByte>=1024*1024*1024 then SizeInfo=round(SizeByte/1024/1024/1024,2) & " GB" elseif 1024*1024<=SizeByte and SizeByte<1024*1024*1024 then SizeInfo=round(SizeByte/1024/1024,2) & " MB" elseif 1024<=SizeByte and SizeByte<1024*1024 then SizeInfo=round(SizeByte/1024,2) & " KB" else SizeInfo=SizeByte & " Byte" end if end if end function '============ function Percent(SizeByte) dim fso,SysSizeByte set fso=server.createobject("scripting.filesystemobject") if fso.FolderExists(server.mappath(SysRootDir)) and SizeByte<>"PathError" then SysSizeByte=fso.getfolder(server.mappath(SysRootDir)).size Percent=SizeByte/SysSizeByte else Percent=0 exit function end if end function '============ %>