空间查看大小FSO

asp

2008-05-24 14:09

<title>空间查看</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin/style.css" rel="stylesheet" type="text/css">
<BODY>
<table cellpadding=0 cellspacing=0 border=0 width=95% class="tableBorder" align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
   <tr>
     <th height=25 colspan=2 align="center" class="tableHeaderText">空间使用情况</th>
   </tr>
   <tr>
          <td width="80%" align="center" valign=top   class="TableBody1">
            <%
   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 & "&nbsp;Byte"
    if size>1024 then
      size=(size\1024)
      showsize=size & "&nbsp;KB"
    end if
    if size>1024 then
      size=(size/1024)
      showsize=size & "&nbsp;MB"  
    end if
    if size>1024 then
      size=(size/1024)
      showsize=size & "&nbsp;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("pic")
    drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
    set d=fso.getfolder(drvpath)   
   
    if method="All" then   
     size=d.size
    elseif method="Program" then
     set fc=d.Files
     for each f1 in fc
      size=size+f1.size
     next
    end if
   
    showsize=size & "&nbsp;Byte"
    if size>1024 then
      size=(size\1024)
      showsize=size & "&nbsp;KB"
    end if
    if size>1024 then
      size=(size/1024)
      showsize=size & "&nbsp;MB"  
    end if
    if size>1024 then
      size=(size/1024)
      showsize=size & "&nbsp;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("pic")
    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)*100)
    Drawbar=barsize
   End Function
  
   Function Drawspecialbar()
    dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
    set fso=server.createobject("scripting.filesystemobject")
    drvpathroot=server.mappath("pic")
    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)*100)
    Drawspecialbar=barsize
   End Function
%>
    <table width=90% cellspacing=1 cellpadding=0 ALIGN="CENTER" >
   <tr>
    <td WIDTH="100%">
   <%
     fsorank=1
     if fsorank=1 then
     %> <br> <%Function GetPP
      dim s
      s=Request.ServerVariables("path_translated")
      GetPP=left(s,instrrev(s,"\",len(s)))
     End function
     if sPP="" then sPP=GetPP
     if right(sPP,1)<>"\" then sPP=sPP&"\"
     set fso=server.createobject("scripting.filesystemobject")
     Set f = fso.GetFolder(sPP)
     Set fc = f.SubFolders
     i=1
                        i2=1
     For Each f in fc%> 目录<b><%=f.name%></b>占用空间：&nbsp;<img src="images/bar<%=i2%>.gif" width=<%=drawbar(""&f.name&"")%> height=10>&nbsp;<%showSpaceinfo(""&f.name&"")%><br><br>
   <%i=i+1
                          if i2<10 then
        i2=i2+1
                          else
                            i2=1
                          end if
       Next%>
     程序文件占用空间：&nbsp;<img src="images/bar8.gif" width=<%=drawspecialbar%> height=10>&nbsp;<%showSpecialSpaceinfo("Program")%><br>
                </td>
         </tr>
           </table>
            <font color="#FF0066">系统占用空间总计：
            <%showspecialspaceinfo("All")%>
            </font>
            <%
     else
      response.write "<br><li>本功能暂时关闭"
     end if
     %>
       </td>
     </tr>
   </table>
</td>
</tr>
</table>