查看: 116|回复: 1

[求代码] AspJpeg 组件如何获取当前打开图片的大小

[复制链接]
大熊 发表于 2019-7-9 16:58:45 | 显示全部楼层 |阅读模式
不是长和宽  是图片的容量大小  多少kb
ttasp 发表于 2019-7-10 10:33:17 | 显示全部楼层
  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. Set Jpeg = Server.CreateObject("Persits.Jpeg")
  18. Jpeg.Open "D:\Sites\Site_D\3.jpg"

  19. response.Write(LenB(Jpeg.Binary))/1024
  20. RESPONSE.Write "<br>"
  21. response.Write GetFileSize("3.jpg")

  22. %>
复制代码
demo文件.rar (87.28 KB, 下载次数: 0, 售价: 3 个ASP币)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号