📄 spacestat.asp
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
</head>
<%
'=====================系统空间参数=========================
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(".\")
drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
set d=fso.getfolder(drvpath)
if method="All" then
size=d.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(".\")
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
%>
<body topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop07.asp"-->
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" style='BORDER-BOTTOM:#666666 1px solid; BORDER-LEFT:#CECFCE 1px solid; BORDER-RIGHT:#CECFCE 1px solid; BORDER-TOP: #666666 0px solid;'>
<tr>
<td valign="top">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="26" bgcolor="#F2F2F2" ><p><font color="#0000FF"><strong>注意 </strong>：当系统占用空间大时，请注意对数据库进行相关压缩处理！ </font></p></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '><strong> 系统空间占用情况统计</strong></td>
</tr>
<tr>
<td height="135" align="center" bgcolor="#F1F1F1"><br> <table width="98%" height="149" border="0" cellpadding="1" cellspacing="1">
<tr>
<td width="25%" align="right" bgcolor="#CECFCE">常规数据库占用空间：</td>
<td width="75%" bgcolor="#E4E4E4"><img src="images/bar.gif" width=<%=drawbar("Database")%> height=14>
<%showSpaceinfo("Database")%> </td>
</tr>
<tr>
<td align="right" bgcolor="#CECFCE">备份数据库占用空间：</td>
<td bgcolor="#E4E4E4"><img src="images/bar.gif" width=<%=drawbar("Databackup")%> height=14>
<%showSpaceinfo("Databackup")%> </td>
</tr>
<tr>
<td align="right" bgcolor="#CECFCE">流量常规数据占用空间：</td>
<td bgcolor="#E4E4E4"><img src="images/bar.gif" width=<%=drawbar("Database")%> height=14>
<%showSpaceinfo("Database")%> </td>
</tr>
<tr>
<td align="right" bgcolor="#CECFCE">流量数据备份占用空间：</td>
<td bgcolor="#E4E4E4"><img src="images/bar.gif" width=<%=drawbar("Databackup")%> height=14>
<%showSpaceinfo("Databackup")%> </td>
</tr>
<tr>
<td align="right" bgcolor="#CECFCE">管理中心占用空间：</td>
<td bgcolor="#E4E4E4"><img src="images/bar.gif" width=<%=drawbar("../System")%> height=14>
<%showSpaceinfo("../System")%> </td>
</tr>
<tr>
<td align="right" bgcolor="#CECFCE">上传文件占用空间：</td>
<td bgcolor="#E4E4E4"><img src="images/bar.gif" width=<%=drawbar("../UploadFile")%> height=14>
<%showSpaceinfo("../UploadFile")%> </td>
</tr>
<tr>
<td align="right" bgcolor="#CECFCE">eWebE上传占用空间：</td>
<td bgcolor="#E4E4E4"><img src="images/bar.gif" width=<%=drawbar("../WebEditor/UploadFile")%> height=14>
<%showSpaceinfo("../WebEditor/UploadFile")%> </td>
</tr>
<tr>
<td align="right" bgcolor="#CECFCE">系统占用空间总计：</td>
<td bgcolor="#E4E4E4"><img src="images/bar.gif" width=350 height=14>
<%showspecialspaceinfo("All")%></td>
</tr>
</table>
<br>
<br>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -