AspJpeg 组件如何获取当前打开图片的大小

不是长和宽  是图片的容量大小  多少kb

1. <%
   
2. 'FSO获取文件大小，效果最佳，强烈推荐
   
3. Public Function GetFileSize(FileName)
   
4. Dim fso,drvpath,d,size,showsize
   
5. set fso=server.createobject("scripting.filesystemobject")
   
6. filepath=server.mappath(FileName)
   
7. if fso.FileExists(filepath) then
   
8. set d=fso.getfile(filepath)
   
9.     size=d.size
   
10.         GetFileSize=SIZE/1024 'FormatSize(size)
    
11. Else
    
12.     GetFileSize=FileName&"file error！"
    
13. End If
    
14. set fso=nothing
    
15. End Function
    
16. 
    
17. '//数据流方式，不太精准，不推荐。
    
18. Set Jpeg = Server.CreateObject("Persits.Jpeg")
    
19. Jpeg.Open "D:\Sites\Site_D\3.jpg"
    
20. 
    
21. response.Write(LenB(Jpeg.Binary))/1024
    
22. RESPONSE.Write "<br>"
    
23. response.Write GetFileSize("3.jpg")
    
24. 
    
25. %>

复制代码

demo文件.rar (87.28 KB, 下载次数: 0, 售价: 3 个ASP币)

2019-7-10 10:33 上传

点击文件名下载附件

没有深入研究，参考下：http://www.aspjpeg.com/object_aspjpeg.html#Binary