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               

    申明

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

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

  • 相关阅读:
    Golang 爬虫02
    Golang使用正则
    gin框架对接快递100 查询快递跟踪记录 Golang实现快递查询
    Jetbrains系列产品2019.3.4最新激活方法[持续更新]
    Linux下安装Fiddler
    Golang 爬虫01
    Github进行fork后如何与原仓库同步
    Pr 的导出视频
    Linux-平均负载指数
    Linux-进程管理命令
  • 原文地址:https://www.cnblogs.com/Athrun/p/638878.html
Copyright © 2011-2022 走看看