?? data.asp
<%Admin="SysSee"%>
<!--#include file="check.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>2Flash.Net - 管理中心</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: #4D9CC8; text-decoration: none }
a:hover { color: #4D9CC8; text-decoration: underline}
.style1 {
color: #0066FF;
font-weight: bold;
}
.style2 {
color: #FF9900;
font-weight: bold;
}
</style>
</head>
<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 border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#cococo">
<tr>
<td width="100%" bgcolor="#4D9CC8"><font color="#FFFFFF"><b>系統空間占用情況</b></font></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>
<span class="style2">動畫園</span>{<span class="style1">2Flash.Net</span>}
- 管理中心占用空間： <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("../Flash_Dir")%> height=10> <%showSpaceinfo("../Flash_Dir")%><br><br>
連接頁面占用空間： <img src="images/bar.gif" width=<%=drawbar("../flash")%> height=10> <%showSpaceinfo("../flash")%>
<br>
<br>
更新排行占用空間： <img src="images/bar.gif" width=<%=drawbar("../Dir")%> height=10> <%showSpaceinfo("../Dir")%><br><br>
上傳SWF占用空間： <img src="images/bar.gif" width=<%=drawbar("../flash_swf")%> height=10> <%showSpaceinfo("../flash_swf")%><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 + -