📄 showweb.asp

📁 一个带有后台管理的小偷程序
💻 ASP
字号:
<!--#include file =conn.asp-->
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<title>管理页面</title>
<link rel="stylesheet" type="text/css" href="style.css">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 6.0" Microsoft FrontPage 3.0"" CHARSET="GB2312">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body bgcolor="#488CA0">

<table cellpadding="0" cellspacing="0" border="0" align="center" width="620">
  <tr>
    <td width="623">
    <table cellpadding="3" cellspacing="1" border="0" width="638">
      <tr>
        <td width="715" valign="top">
        <% 	
	on error resume next
 	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("../images")
 		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=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("../images")
 		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("../images")
 		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 	
 %> <br>
        <br>
        <table width="634" cellspacing="1" style="border-collapse: collapse; border-left: .75pt solid teal; border-right: .75pt solid teal; border-top: 1.5pt solid teal; border-bottom: 1.5pt solid teal; background-color: white" fpstyle="24,011111100" cellpadding="0">
          <tr>
            <td height="25" width="632" style="font-weight: bold; color: maroon; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid gray; background-color: silver">
            &nbsp;&nbsp;系统空间占用情况 </td>
          </tr>
          <tr>
            <td width="632" style="color: black; border-style: none">
            <%
 			fsoflag=1
 			if fsoflag=1 then
 			%> <br>
&nbsp; <span lang="zh-cn">程序文件</span>占用空间：&nbsp;<images src="../images/bar1.gif" width="<%=drawspecialbar/10%>" height="10">&nbsp;<%showSpecialSpaceinfo("Program")%><br> 
            <br> 
&nbsp; 数据库占用空间：&nbsp;<images src="../images/bar1.gif" width="<%=drawbar("../../../db/down")/10%>" height="10">&nbsp;<%showSpaceinfo("../../../db/down")%><br> 
            <br> 
&nbsp; 上传文件夹占用空间：&nbsp;<images src="../images/bar1.gif" width="<%=drawbar("../upload/200405/10")%>" height="10">&nbsp;<%showSpaceinfo("../upload/200405")%><br> 
            <br> 
&nbsp; images文件夹占用空间：&nbsp;<images src="../images/bar1.gif" width="<%=drawbar("../images")/10%>" height="10">&nbsp;<%showSpaceinfo("../images")%><br> 
            <br> 
&nbsp; admin文件夹占用空间：&nbsp;<images src="../images/bar1.gif" width="<%=drawbar("../admin")/10%>" height="10">&nbsp;<%showSpaceinfo("../admin")%><br> 
            <br> 
&nbsp; 占用空间总计：  
            <images src="../images/bar1.gif" width="<%=drawbar("../")/10%>" height="10"> 
            <%showspecialspaceinfo("All")%> 
            <% 
 			else 
 				response.write "<br><li>本功能已经被关闭" 
 			end if 
 			%> </td> 
          </tr> 
        </table> 
        </td> 
      </tr> 
    </table> 
    </td> 
  </tr> 
</table> 
 
</body> 
 
</html>
⌨️ 快捷键说明

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