📄 check.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<html>
<title>空间查看</title>
<LINK href="yqj_admin/style.css" rel=stylesheet type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<BODY>
<div align="center">
<table class="tableBorder" width="100%" border="0" cellspacing="1" bgcolor="#FFFFFF" cellpadding="4" style="border: 1px solid #183789; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px">
<tr> 
<td colspan="4" align="center" background="images/admin_bg_1.gif" height="25">
<font color="#FFFFFF"><b><span style="font-size: 14px">空间的使用情况统计</span></b></font></td>
</tr>
<tr>
<td valign=top bgcolor=#E8F1FF> 
<% 	
 	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)*400)
 		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)*400)
 		Drawspecialbar=barsize
 	End Function 	
	%>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
			<%
 			fsorank=1
 			if fsorank=1 then
 			%>
			<%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%>
			<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr bgcolor="#ffffff"> 
			<td width="20%"><span style="font-size: 12px">&nbsp;目录 <%=f.name%></span></td>
			<td width="80%"><span style="font-size: 12px">&nbsp;<img src="images/bar<%=i2%>.gif" width=<%=drawbar(""&f.name&"")%> height=10>&nbsp;<%showSpaceinfo(""&f.name&"")%></span></td>
			</tr>
			</table>
			<table width="100%" border="0" cellpadding="0" cellspacing="0">
			<tr><td height="2"></td></tr>
			</table>
			<span style="font-size: 12px">
			<%i=i+1
			if i2<10 then
			i2=i2+1
			else
			i2=1
			end if
			Next%>
			</span>
			<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr bgcolor="#ffffff"> 
			<td width="20%"><span style="font-size: 12px">&nbsp;程序文件占用空间</span></td>
			<td width="80%"><span style="font-size: 12px">&nbsp;<img src="images/bar8.gif" width=<%=drawspecialbar%> height=10>&nbsp;<%showSpecialSpaceinfo("Program")%></span></td>
			</tr>
			</table>
			<table width="100%" border="0" cellpadding="0" cellspacing="0">
			<tr><td height="2"></td></tr>
			</table>
			<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr bgcolor="#ffffff"> 
			<td width="20%"><span style="font-size: 12px">&nbsp;系统占用空间总计</span></td>
			<td width="80%"><span style="font-size: 12px">&nbsp;<img src="images/bar9.gif" width=400 height=10> <%showspecialspaceinfo("All")%> 
			</span> </td>
			</tr>
			</table>
			<%
 			else
			response.write "<br><li>本功能已经被关闭"
 			end if
 			%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明

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