Function Drawbar(drvpath)
         dim fso,drvpathroot,d,size,totalsize,barsize
         set fso=server.createobject("scripting.filesystemobject")
         drvpathroot=server.mappath("images")
         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)*150)
         Drawbar=barsize
     End Function

我 急需一个cms最好能关于社区那样的版面,在此万分感谢,

Function Drawbar(drvpath)
        dim fso,drvpathroot,d,size,totalsize,barsize
        set fso=server.createobject("scripting.filesystemobject")
        drvpathroot=server.mappath("images")
        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)*150)
        Drawbar=barsize
    End Function
这个函数应该是在获得某个文件夹的大小。

哦.我明白了谢谢