📄 admin_space.asp
字号:
<!--#include file="Inc/Level012.asp" -->
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>" onLoad="MM_preloadImages('<%=Forum_Pic_Write2%>','<%=Forum_Pic_Vote2%>')">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td height="20" bgcolor="<%=Forum_ColorList_BgColor%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
<tr>
<td> 您所在的位置： <a href="../" onfocus="this.blur()">首页</a> >>
<a href="List.asp" onFocus="this.blur()">讨论组</a> >> <font color="<%=Forum_ColorList_NavFontColor%>">论坛管理系统</font></td>
<td width="18">
<div align="center"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
<tr>
<td valign="top" width="102" bgcolor="<%=Forum_ColorList_BgColor%>">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>
<!--#include file="Inc/Menu.asp" -->
</td>
</tr>
</table>
</td>
<td bgcolor="<%=Forum_ColorList_BgColor%>" valign="top"> <br>
<table width="80%" border="0" cellspacing="1" cellpadding="2" align="center" class="font" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td bgcolor="<%=Forum_ColorList_TitleColor%>" height="20"> 论坛占用空间</td>
</tr>
<tr>
<td bgcolor="<%=Forum_ColorList_BgColor%>" valign="top"> 1.仅显示论坛占用空间,有利于管理者查看服务器使用空间,与服务商即使联系处理相关事宜.
<%
'Liann Modify 2002-10-29
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 & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " 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="Code" then
set fc=d.Files
for each f1 in fc
size=size+f1.size
next
pathinc=Server.Mappath("Inc")
set e=fso.getfolder(pathinc)
size=size+e.size
pathcon=Server.Mappath("Connections")
set e=fso.getfolder(pathcon)
size=size+e.size
pathjs=Server.Mappath("Js")
set e=fso.getfolder(pathjs)
size=size+e.size
end if
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " 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)*300)
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
pathinc=Server.Mappath("Inc")
set e=fso.getfolder(pathinc)
size=size+e.size
pathcon=Server.Mappath("Connections")
set e=fso.getfolder(pathcon)
size=size+e.size
pathjs=Server.Mappath("Js")
set e=fso.getfolder(pathjs)
size=size+e.size
barsize=cint((size/totalsize)*300)
Drawspecialbar=barsize
End Function
%>
<br>
-------------------------------------------------------------------------------<br>
标准数据库占用空间 <img src="Images/Line.gif" width="<%=drawbar("Data")%>" height="10"> <%showSpaceinfo("Data")%><br>
<br>
备份数据库占用空间 <img src="Images/Line.gif" width="<%=drawbar("BackupData")%>" height="10"> <%showSpaceinfo("BackupData")%><br>
<br>
图片占用空间 <img src="Images/Line.gif" width="<%=drawbar("Images")%>" height="10"> <%showSpaceinfo("Images")%><br>
<br>
程序占用空间 <img src="Images/Line.gif" width="<%=drawspecialbar%>" height="10">
<%showSpecialSpaceinfo("Code")%>
<br>
<br>
上传图片占用空间 <img src="Images/Line.gif" width="<%=drawbar("UploadImages")%>" height="10">
<%showSpaceinfo("UploadImages")%>
<br>
<br>
总占用空间 <img src="Images/Line.gif" width="300" height="10">
<%showspecialspaceinfo("All")%>
</td>
</tr>
</table>
<div align="center"><br>
</div>
<div align="center"></div>
</td>
</tr>
</table>
<!--#include file="Inc/Bottom.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -