订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

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

深山行者个人网站 2009/8/17 9:00:37 深山行者 字体: 浏览 8007

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>

相关阅读
ios苹果版手机微信内置浏览器$(document).on(
JS自动获取TAGS关键词
湖南乐途旅行社
div默认高度根据内容自动适应高度
css里阴影效果滤镜DropShadow颜色数值的详细设置
网站需要SEO 基本的SEO建站要点
对access数据表进行操作
连云港看网
共有0条关于《asp利用FSO检测服务器空间文件夹大小》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

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

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
更多>>同类信息
asp无限级调用分类显示
实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
做好的网站把http改成https申请SSL域名证书
纯asp根据当前日期计算出当前年份的属相
sql server中前缀为PK、UK、DF、CK、FK表的意思
ASP利用fso读取文件夹里所有文件的名字
更多>>最新添加文章
呼伦贝尔市北天草原旅行社有限公司
四川悠旅地旅游有限公司
连云港五洲旅行社有限公司
邓州市途鸿旅行社
连云港华夏国际旅行社有限公司
重庆长航江山国际旅行社
松原市海航商务旅行社
广西亚太国际旅行社有限公司
更多>>随机抽取信息
利用DIV+CSS制作右下角弹出留言板
支持IE与firefox(火狐)的css写省略号方法
windows颜色选择框
ASP实现不打开直接下载txt,jpg...类文件
asp与数据库sql的种种操作
深山留言板 v7.0.1 bulid2014.11.15更新