zoukankan      html  css  js  c++  java
  • 一個統計空間使用了多大的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)*1.05 & " Byte" 
        
    if size>1024 then
           size
    =(size\1024)*1.035
           showsize
    =size & " KB"
        
    end if
        
    if size>1024 then
           size
    =(size/1024)*1.025
           showsize
    =formatnumber(size,2& " MB"        
        
    end if
        
    if size>1024 then
           size
    =(size/1024)*1.015
           showsize
    =formatnumber(size,2& " GB"       
        
    end if   
        
    set d=nothing 
        
    set fso=nothing   
        response.write 
    "<font color=red>" & showsize & "</font>"
    end sub               

    申明

    非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!

    博文欢迎转载,但请给出原文连接。

  • 相关阅读:
    js 置顶操作
    js input输入数量控制
    js 时间倒计时
    html内容垂直居中
    大图片随浏览器水平居中显示
    img,display:inline相关间隙样式问题
    js淡入淡出轮换思想(1)
    js 禁止|阻止滚动条滚动
    kotlin学习--第一个kotlin项目
    jdk8+Mybatis3.5.0+Mysql读取LongBlob失败
  • 原文地址:https://www.cnblogs.com/Athrun/p/638878.html
Copyright © 2011-2022 走看看