📄 察看占用系统空间的程序.asp
字号:
<%Admin="SysSee"%>
<!--#include file="check.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>中国CET考试图文系统</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: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="1">
<%
'=====================系统空间参数=========================
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
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 & " 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
%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555">
<tr>
<td width="100%" bgcolor="#CCCCCC"><b> <img border="0" src="images/BULLIST.GIF"> 系统空间占用情况</b></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<blockquote><br>
常规数据占用空间： <img src="images/bar.gif" width=<%=drawbar("data")%> height=10> <%showSpaceinfo("data")%><br><br>
备份数据占用空间： <img src="images/bar.gif" width=<%=drawbar("data_backup")%> height=10> <%showSpaceinfo("data_backup")%><br><br>
管理中心占用空间： <img src="images/bar.gif" width=<%=drawspecialbar%> height=10> <%showSpecialSpaceinfo2("Program")%><br><br>
管理中心图片空间： <img src="images/bar.gif" width=<%=drawbar("images")%> height=10> <%showSpaceinfo("images")%><br><br>
文章页面占用空间： <img src="images/bar.gif" width=<%=drawbar("../info")%> height=10> <%showSpaceinfo("../info")%><br><br>
分类页面占用空间： <img src="images/bar.gif" width=<%=drawbar("../infosort")%> height=10> <%showSpaceinfo("../infosort")%><br><br>
分类JS文件占用空间： <img src="images/bar.gif" width=<%=drawbar("../infosortjs")%> height=10> <%showSpaceinfo("../infosortjs")%><br><br>
专题页面占用空间： <img src="images/bar.gif" width=<%=drawbar("../special")%> height=10> <%showSpaceinfo("../special")%><br>
<br>
上传图片占用空间： <img src="images/bar.gif" width=<%=drawbar("../infoimg")%> height=10> <%showSpaceinfo("../infoimg")%><br><br>
自定义JS文件占用空间： <img src="images/bar.gif" width=<%=drawbar("../js")%> height=10> <%showSpaceinfo("../js")%><br><br>
其它文件空间总计： 不统计<br><br>
系统占用空间总计： <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 + -