📄 data.asp

📁 Flash动画园
💻 ASP
字号:
<%Admin="SysSee"%>
<!--#include file="check.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>2Flash.Net - 管理中心</title>
<style>
td{font-size:9pt;line-height:160%} 
body{font-size:9pt;line-height:160%} 

a:link       { color: #0033CC; text-decoration: none }
a:visited    { color: #0033CC; text-decoration: none }
a:active     { color: #4D9CC8; text-decoration: none }
a:hover      { color: #4D9CC8; text-decoration: underline}
.style1 {
	color: #0066FF;
	font-weight: bold;
}
.style2 {
	color: #FF9900;
	font-weight: bold;
}
</style>
</head>
<body>
<%
'=====================系统空间参数=========================
	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=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(".\")
 		drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
 		set d=fso.getfolder(drvpath) 		
 		
 		if method="All" then 		
 			size=d.size
 		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=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=(size\1024)
 		   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(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 border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#cococo">
    <tr>
      <td width="100%" bgcolor="#4D9CC8"><font color="#FFFFFF"><b>系统空间占用情况</b></font></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#FFFFFF">      
      <blockquote><br>
 			法规数据占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("data")%> height=10>&nbsp;<%showSpaceinfo("data")%><br><br>
 			备份数据占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("data_backup")%> height=10>&nbsp;<%showSpaceinfo("data_backup")%><br><br>
            <span class="style2">动画园</span>{<span class="style1">2Flash.Net</span>}

 - 管理中心占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawspecialbar%> height=10>&nbsp;
 <%showSpecialSpaceinfo2("Program")%><br><br>
 			图片文件占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("../images")%> height=10>&nbsp;<%showSpaceinfo("../images")%>
 			<br>
 			<br>
 			连接分类占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("../Flash_Dir")%> height=10>&nbsp;<%showSpaceinfo("../Flash_Dir")%><br><br>
 			连接页面占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("../flash")%> height=10>&nbsp;<%showSpaceinfo("../flash")%>
 			<br>
            <br>
 			更新排行占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("../Dir")%> height=10>&nbsp;<%showSpaceinfo("../Dir")%><br><br>
 			上传SWF占用空间：&nbsp;<img src="images/bar.gif" width=<%=drawbar("../flash_swf")%> height=10>&nbsp;<%showSpaceinfo("../flash_swf")%><br><br>
 			其它文件空间总计：&nbsp;不统计<br><br>
 			系统占用空间总计：&nbsp;<img src="images/bar.gif" width=350 height=10> <%showspecialspaceinfo("All")%>
 	</blockquote></td>
    </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -