📄 data.asp
字号:
<%Admin="SysSee"%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<title>晓宇听幽网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<!--#include file="check.asp"-->
<body>
<%
'=====================系统空间参数=========================
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 width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr>
<th width="100%" bgcolor="#99CCFF"><b> <img border="0" src="images/BULLIST.GIF"> 系统空间占用情况</b></th>
</tr>
<tr>
<td width="100%" class="forumrow">
<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("../html")%> height=10> <%showSpaceinfo("../html")%><br><br>
分类页面占用空间： <img src="images/bar.gif" width=<%=drawbar("../list")%> height=10> <%showSpaceinfo("../list")%><br><br>
调用JS文件占用空间： <img src="images/bar.gif" width=<%=drawbar("../js")%> height=10> <%showSpaceinfo("../js")%><br><br>
专题页面占用空间： <img src="images/bar.gif" width=<%=drawbar("../special")%> height=10> <%showSpaceinfo("../special")%><br><br>
广告JS文件占用空间： <img src="images/bar.gif" width=<%=drawbar("../ads")%> height=10> <%showSpaceinfo("../ads")%><br><br>
上传图片占用空间： <img src="images/bar.gif" width=<%=drawbar("../upload/newsimg")%> height=10> <%showSpaceinfo("../upload/newsimg")%><br><br>
软件文件占用空间： <img src="images/bar.gif" width=<%=drawbar("../software")%> height=10> <%showSpaceinfo("../software")%><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 + -