久久久久成人免费看a含羞草久色_91福利资源站_好色综合网_久久久久国产精品一区二区三区_一级片免费看_久久久久国产精品久久久久

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

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

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

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>

相关阅读
连云港汽车门户网站
使网页右键失效
实时输入数字自动转换为货币形式并计算
26件网站推广网页优化必须的事情
利用DIV+CSS制作浮动广告,没有用到多少javascript,全是css
javascript表单验证!
利用DIV+CSS制作右下角弹出留言板
一个非常实用的当你在关闭任何窗口时都作出提示[推荐]
共有0条关于《asp利用FSO检测服务器空间文件夹大小》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

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

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT
Android移动端自动化测试:使用UIAutomatorViewer与Selenium定位元素
抖音直播音挂载小雪花 懂车帝小程序
javascript获取浏览器指纹可以用来做投票
火狐Mozilla Firefox出现:无法载入您的Firefox配置文件 它可能已经丢失 或是无法访问 问题解决集合处理办法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
更多>>随机抽取信息
深山行者留言系统V1.0 (简称深山留言V1.0)
asp获得当前文件的虚拟物理路径
我们使用的42个著名搜索引擎
Appium获取手机分辨率 & 自适应设备下滑刷新
防止点击空链接时,页面往往重置到页首端
商务会议系统
主站蜘蛛池模板: 亚洲av综合色区在线观看 | 美国免费毛片性视频 | 国产精品成人观看视频免费 | 国产乱码精品一品二品 | 中文字幕专区高清在线观看 | 毛片a级三毛片免费播放 | 国产美女作爱全过程免费视频 | 日韩视频中文字幕 | 高潮毛片无遮挡高清免费视频 | 伊人成人在线视频 | 欧美激情第一区 | 91在线精品中文字幕 | 在线干| 日日舔夜夜摸 | 成人羞羞视频在线观看男生 | 99国产精品永久免费视频 | 日本成人一区二区三区 | 日本久久道一区二区三区 | 色老头成人免费视频天天综合 | 香蕉久久成人网 | 国产精品久久久久免费a∨ 国产精品久久久久免费视频 | 日本牲交大片无遮挡 | 日韩欧 | 久久久久亚洲av综合波多野结衣 | 成人午夜国产内射主播 | 在线观看视频国产 | 国产在线精品一区二区在线观看 | 欧美a级黑粗大硬长爽 | 青青青看免费视频在线 | 四虎影院最新网址 | 一级电影网址 | 免费黄视频网站 | 极品吹潮视频大喷潮tv | 久久这里只有 | 亚洲天堂视频在线 | 亚洲精品久久久久国色天香 | 国产大尺度福利视频在线观看 | 欧美日韩中文一区 | 亚洲av女人18毛片水真多 | 国产美女在线看 | 精品丰满人妻无套内射 |