spacestat.asp

相对于流通企业

    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Language"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >网站前台JS脚本文件</td>
    <td ><%=SysRootDir&"Script"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Script"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Script")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Script"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >简体版前台文件夹</td>
    <td ><%=SysRootDir&"Simplified"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Simplified"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Simplified")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Simplified"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >简体版前台图片文件夹</td>
    <td ><%=SysRootDir&"Simplified/Images"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Simplified/Images"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Simplified/Images")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Simplified/Images"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >管理后台文件夹</td>
    <td ><%=SysRootDir&"System"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"System"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"System")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"System"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >管理后台图片文件夹</td>
    <td ><%=SysRootDir&"System/Images"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"System/Images"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"System/Images")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"System/Images"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >繁体版前台文件夹</td>
    <td ><%=SysRootDir&"Traditional"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Traditional"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Traditional")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Traditional"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >繁体版前台图片文件夹</td>
    <td ><%=SysRootDir&"Traditional/Images"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Traditional/Images"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Traditional/Images")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Traditional/Images"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >文件上传保存目录</td>
    <td ><%=SysRootDir&"Upload"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Upload"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Upload")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Upload"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >图片文件上传保存目录</td>
    <td ><%=SysRootDir&"Upload/PicFiles"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Upload/PicFiles"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Upload/PicFiles")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Upload/PicFiles"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >下载文件上传保存目录</td>
    <td ><%=SysRootDir&"Upload/DownFiles"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Upload/DownFiles"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Upload/DownFiles")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Upload/DownFiles"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >其他文件上传保存目录</td>
    <td ><%=SysRootDir&"Upload/OtherFiles"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Upload/OtherFiles"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Upload/OtherFiles")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Upload/OtherFiles"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >编辑器上传文件保存目录</td>
    <td ><%=SysRootDir&"Upload/EditorFiles"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Upload/EditorFiles"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Upload/EditorFiles")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Upload/EditorFiles"))*260%>" height="8"></td>
  </tr>
  <tr bgcolor="#EBF2F9" onMouseOver = 'this.style.backgroundColor = "#FFFFFF"' onMouseOut = 'this.style.backgroundColor = ""' style="cursor:hand">
    <td height="20" >临时文件</td>
    <td ><%=SysRootDir&"Temp"%></td>
    <td ><%=SizeInfo(SizeByte(SysRootDir&"Temp"))%></td>
    <td ><%=FormatPercent(Percent(SizeByte(SysRootDir&"Temp")),,-1)%></td>
    <td ><img src="images/bar.gif" width="<%=Percent(SizeByte(SysRootDir&"Temp"))*260%>" height="8"></td>
  </tr>
</table>
</body>
</html>

<%
'============
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="<font color='red'>未找到</font>"
  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
'============
%>