HOME
BBS
深山帮帮欢迎您,您可以注册或者
qq登录只需一步,快速开始
深山旅行社网站管理系统开发完成,欢迎各位网友测试! 点这里测试
565449214 给站长留言
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

asp利用FSO检测服务器空间文件夹大小

深山行者个人网站 2009-8-17 9:00:37 深山行者 字体:  浏览 6241 我要评论

asp利用FSO检测服务器空间文件夹大小

<style type="text/css">
* {margin:0;padding:0;font-size:12px;}
body {padding:15px;}
.size1 {font-weight:bold;color:#f00;}
.size2 {font-weight:bold;color:#00f;}
</style>

<%
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 "<span class='size1'>" & showsize & "</span>"
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 & "&nbsp;Byte"
 if size>1024 then
    size=(size\1024)
    showsize=size & "&nbsp;KB"
 end if
 if size>1024 then
    size=(size/1024)
    showsize=formatnumber(size,2) & "&nbsp;MB"
 end if
 if size>1024 then
    size=(size/1024)
    showsize=formatnumber(size,2) & "&nbsp;GB"
 end if  
 response.write "<span class='size2'>" & showsize & "</span>"
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
%>

系统空间的使用情况<br>

<%
fsoflag=1
if fsoflag=1 then

    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>占用空间:

<div class="sizediv" style="width:<%=drawbar(""&f.name&"")%>px;"></div><%showSpaceinfo(""&f.name&"")%><br>

<%
    i=i+1
    if i2<10 then
    i2=i2+1
    else
    i2=1
    end if
    Next
%>
程序文件占用空间:
<div class="sizediv" style="width:<%=drawspecialbar%>px;"></div><%showSpecialSpaceinfo("Program")%><br>

系统占用空间总计:
<div class="sizediv" style="width:400px;"></div><%showspecialspaceinfo("All")%>

<%
    else
    response.write "本功能已经被关闭"
    end if
%>

<style>
.sizediv {height:10px;background:#91d65c;border-left:solid 2px #91d65c;}
</style>

Ads loading...
相关阅读
( 2018-5-9 10:29:10 )ASP网站打开特别卡 提示:msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法
( 2018-4-16 10:27:32 )asp中Request.ServerVariables能获取的信息整理总结
( 2018-4-10 11:59:10 )通过设置iis的进程池让网站的并发数,性能提升几个档次
( 2018-4-10 11:26:02 )asp通过多次获得来取得用户的真实IP
( 2016-6-16 11:49:35 )access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
( 2015-12-11 22:28:01 )在服务器上新建网站,在服务器用域名能访问,但是外网访问不了的解决办法
( 2015-10-16 19:52:57 )httpd.ini中的RewriteRule、RewriteCond规则了解以有二级域名解析实例
( 2015-10-16 19:46:27 )httpd.ini一些参数说明
共有0条关于《asp利用FSO检测服务器空间文件夹大小》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 400 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

Ads loading...
更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
批量删除access字段里面fld.Properties.Delete
ASP操作access或sqlserver数据库的函数库
asp中求两个数的百分比(利用百分比函数FormatPercent就可以自带%的符号)
asp利用sql操作数据表、数据库的一些方法
rs操作数据表记录集对象的方法
[转载]中国行政区划数据(省市区街道)
ASP版通过身份证信息获取对应的生日性别年龄
ASP网站打开特别卡 提示:msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法
Ads loading...
更多>>最新添加文章
批量删除access字段里面fld.Properties.Delete
ASP操作access或sqlserver数据库的函数库
asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法
asp中求两个数的百分比(利用百分比函数FormatPercent就可以自带%的符号)
asp利用sql操作数据表、数据库的一些方法
rs操作数据表记录集对象的方法
asp利用dateadd获得上个月、本月、下个月的第一天和最后一天
asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)
  • 业务 QQ:565449214
  • 手机:139 6134 7334
更多>>随机抽取信息
给个photoshopcs下载地址,大家可能用到
静态页面在文本框中输入数字,表格直接算出相应的结果
深山留言板系统(七夕情人节留言板专用模板) v3.7
关于我们
深山行者V1.2旅行社网站管理系统
防止网站内容被人小偷和采集的ASP代码
javascript 根据汉字拼音首字母快速定位下拉列表
计算ASP页面执行时间
Ads loading...