家庭/个人应用

开发平台：
ASP/ASPX

webdata.asp：源码内容
							<!--#include file="../checkpost.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<%
if session("flag")>1 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if
%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>系统状态</title>
<link href="inc/Admin_STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file="top1.asp"-->
<br>
<%
	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=(size1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&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(".")
 		set d=fso.getfolder(drvpath) 		
 		
 		if method="All" then 		
 			size=d.size
 		end if	
 		
 		showsize=size & "&nbsp;Byte" 
 		if size>1024 then
 		   size=(size1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;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 & "&nbsp;Byte" 
 		if size>1024 then
 		   size=(size1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&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(".")
 		drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"")-1))
 		set d=fso.getfolder(drvpathroot)
 		totalsize=d.size
 		
 		drvpath=server.mappath(".") 		
 		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 class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr class="title"> 
    <td align="center" height="22" valign="middle"><b>系统空间占用情况</b></td>
  </tr>
  <tr class="tdbg"> 
    <td align="center" height="150" valign="middle"><div align="left">　管理中心占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawspecialbar%> height=10>&nbsp; 
        <%showSpecialSpaceinfo2("Program")%>
        <br>
        <br>
        　电影数据占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("../mclass")%> height=10>&nbsp; 
        <%showSpaceinfo("../data")%>
        <br>
        <br>
        　系统图片占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("../html")%> height=10>&nbsp; 
        <%showSpaceinfo("../images")%>
        <br>
        <br>
        　上传图片占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("../upload/imgwsf")%> height=10>&nbsp; 
        <%showSpaceinfo("../tupian")%>
        <br>
        <br>
        　系统占用空间总计：&nbsp;<img src="images/bar.gif" width=350 height=10> 
        <%showspecialspaceinfo("All")%>
      </div></td>
  </tr>
</table>
</body>
</html>

						