?? spacesize.asp
字號:
<!--#include file=Include/check.asp-->
<% CheckAdmin3%>
<html>
<title>系統空間占用</title>
<link href="Img/Admin.css" rel="stylesheet" type="text/css">
<BODY topmargin="20">
<%
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("pic")
drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
set d=fso.getfolder(drvpath)
if method="All" then
size=d.size
elseif 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("pic")
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)*400)
Drawbar=barsize
End Function
Function Drawspecialbar()
dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
set fso=server.createobject("scripting.filesystemobject")
drvpathroot=server.mappath("pic")
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)*400)
Drawspecialbar=barsize
End Function
%>
<table width="90" align="center">
<tr>
<th width="447" height=25 colspan="2">系統空間的使用情況 </th>
</tr>
<tr>
<td width="447" height="140" valign=top >
<table width=550 cellpadding=0 cellspacing=1 >
<tr><td>
<%
fsoflag=1
if fsoflag=1 then
%>
<br>
<%Function GetPP
dim s
s=Request.ServerVariables("path_translated")
GetPP=left(s,instrrev(s,"\",len(s)))
End function
if sPP="" then sPP=GetPP
if right(sPP,1)<>"\" then sPP=sPP&"\"
set fso=server.createobject("scripting.filesystemobject")
Set f = fso.GetFolder(sPP)
Set fc = f.SubFolders
i=1
i2=1
For Each f in fc%>
目錄<b><%=f.name%></b>占用空間：<img src="Images/vote/VoteL.gif" width="8" height="9"><img src="Images/vote/VoteM.gif" width="<%=drawbar(""&f.name&"")%>" height="9"><img src="Images/vote/VoteR.gif" width="4" height="9">
<%showSpaceinfo(""&f.name&"")%><br><br>
<%i=i+1
if i2<10 then
i2=i2+1
else
i2=1
end if
Next%>
程序文件占用空間：<img src="Images/vote/VoteL.gif" width="8" height="9"><img src="Images/vote/VoteM.gif" width="<%=drawspecialbar%>" height="9"><img src="Images/vote/VoteR.gif" width="4" height="9">
<%showSpecialSpaceinfo("Program")%><br><br>
系統占用空間總計：<br>
<img src="Images/vote/VoteL.gif" width="8" height="9"><img src="Images/vote/VoteM.gif" width="400" height="9"><img src="Images/vote/VoteR.gif" width="4" height="9">
<%showspecialspaceinfo("All")%>
<%
else
response.write "<br><li>本功能已經被關閉"
end if
%>
</td>
</tr>
</table></td>
</tr>
</table>
</body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -