`
isiqi
  • 浏览: 15946163 次
  • 性别: Icon_minigender_1
  • 来自: 济南
社区版块
存档分类
最新评论

利用ASP得到图片尺寸大小

阅读更多

这是动网论坛上一个朋友写的
<%
imgpath="default_22.gif"

set pp=new imgInfo
w = pp.imgW(server.mappath(imgpath))
h = pp.imgH(server.mappath(imgpath))
set pp=nothing

response.write "<img src='"&imgpath&"' border=0><br>宽:"&w&";高:"&h


Class imgInfo
dim aso
Private Sub Class_Initialize
set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
err.clear
set aso=nothing
End Sub

Private Function Bin2Str(Bin)
Dim I, Str
For I=1 to LenB(Bin)
clow=MidB(Bin,I,1)
if ASCB(clow)<128 then
Str = Str & Chr(ASCB(clow))
else
I=I+1
if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
end if
Next
Bin2Str = Str
End Function

Private Function Num2Str(num,base,lens)
dim ret
ret = ""
while(num>=base)
ret = (num mod base) & ret
num = (num - num mod base)/base
wend
Num2Str = right(string(lens,"0") & num & ret,lens)
End Function

Private Function Str2Num(str,base)
dim ret
ret = 0
for i=1 to len(str)
ret = ret *base + cint(mid(str,i,1))
next
Str2Num=ret
End Function

Private Function BinVal(bin)
dim ret
ret = 0
for i = lenb(bin) to 1 step -1
ret = ret *256 + ascb(midb(bin,i,1))
next
BinVal=ret
End Function

Private Function BinVal2(bin)
dim ret
ret = 0
for i = 1 to lenb(bin)
ret = ret *256 + ascb(midb(bin,i,1))
next
BinVal2=ret
End Function

Private Function getImageSize(filespec)
dim ret(3)
aso.LoadFromFile(filespec)
bFlag=aso.read(3)
select case hex(binVal(bFlag))
case "4E5089":
aso.read(15)
ret(0)="PNG"
ret(1)=BinVal2(aso.read(2))
aso.read(2)
ret(2)=BinVal2(aso.read(2))
case "464947":
aso.read(3)
ret(0)="GIF"
ret(1)=BinVal(aso.read(2))
ret(2)=BinVal(aso.read(2))
case "535746":
aso.read(5)
binData=aso.Read(1)
sConv=Num2Str(ascb(binData),2 ,8)
nBits=Str2Num(left(sConv,5),2)
sConv=mid(sConv,6)
while(len(sConv)<nBits*4)
binData=aso.Read(1)
sConv=sConv&Num2Str(ascb(binData),2 ,8)
wend
ret(0)="SWF"
ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)
ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)
case "FFD8FF":
do
do: p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS
if p1>191 and p1<196 then exit do else aso.read(binval2(aso.Read(2))-2)
do:p1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS
loop while true
aso.Read(3)
ret(0)="JPG"
ret(2)=binval2(aso.Read(2))
ret(1)=binval2(aso.Read(2))
case else:
if left(Bin2Str(bFlag),2)="BM" then
aso.Read(15)
ret(0)="BMP"
ret(1)=binval(aso.Read(4))
ret(2)=binval(aso.Read(4))
else
ret(0)=""
end if
end select
ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &""""
getimagesize=ret
End Function

Public Function imgW(pic_path)
Set fso1 = server.CreateObject("Scripting.FileSystemObject")
If (fso1.FileExists(pic_path)) Then
Set f1 = fso1.GetFile(pic_path)
ext=fso1.GetExtensionName(pic_path)
select case ext
case "gif","bmp","jpg","png":
arr=getImageSize(f1.path)
imgW = arr(1)
end select
Set f1=nothing
else
imgW = 0
End if
Set fso1=nothing
End Function

Public Function imgH(pic_path)
Set fso1 = server.CreateObject("Scripting.FileSystemObject")
If (fso1.FileExists(pic_path)) Then
Set f1 = fso1.GetFile(pic_path)
ext=fso1.GetExtensionName(pic_path)
select case ext
case "gif","bmp","jpg","png":
arr=getImageSize(f1.path)
imgH = arr(2)
end select
Set f1=nothing
else
imgH = 0
End if
Set fso1=nothing
End Function
End Class
%>

演示:http://goaler.xicp.net//Doc/Demo/imgwidth/index.asp

分享到:
评论

相关推荐

    ASP.NET上传图片文件

    ASP.NET上传图片文件(在客户端验证大小尺寸类型并且利用滤镜预览欲传图片),兼容多种浏览器

    ASP网上购物系统旗舰版

    11)管理员可以开启商品大小图功能,开启大小图可以优化显示效果同时加快打开速度 管理员可设置首页、分类页、产品内页商品缩略图尺寸 12)商品库存在客户成功订购自动减少,库存为0的商品无法订购 后台管理员...

    ASP.NET开发实战1200例(第Ⅰ卷)第二十章

    第20章 图文验证与图片处理技术 770 20.1 网站常用验证码...实例541 用Ajax滑块扩展控件调整图片大小 819 实例542 为相册中的照片加上淡入淡出效果 (AJAX) 821 实例543 使用AJAX可调整大小控件拖曳图片 调大小 823

    NetShop网店系统 v2.0 Beta

    NetShop软件特点介绍: 1、使用ASP.Net(c#)2.0、多层结构开发 2、前台设计不采用任何.NET...15、灵活的开关及图片大小尺寸控制,防盗版图片水印设计 16、在线系统更新升级,轻点鼠标升级成功 后台帐号密码均为admin

    zzzcms企业建站系统 1.5.0.zip

    6.上传文件支持直接选择,图片可重复利用;7.上传文件管理功能中增加一键清除冗余文件;8.后台UI细节调整,不再窜行;9.后台选择分类功能修正;10.在线模板及在线插件中增加建议搜索功能;10.百度编辑器更换位置,放...

    JavaScript网页特效范例宝典源码

    实例298 在ASP中利用Word自动打印指定格式的会议记录 470 实例299 在PHP中调用Word自动打印指定格式的会议记录 472 11.3 利用Excel打印报表 474 实例300 将Web页面中的数据导出到Excel 474 实例301 将Web页面中的...

    免费netshop网店系统,基于.NET平台开发

    15、灵活的开关及图片大小尺寸控制,防盗版图片水印设计 16、在线系统更新升级,轻点鼠标升级成功 欢迎体验NetShop提供的网店系统软件,在你使用体验有任何的建议或意见请与我们联络! 在此希望能够获得更多的经验...

    超漂亮的网上购物系统 2012 v1.0 正式版

    11)管理员可以开启商品大小图功能,开启大小图可以优化显示效果同时加快打开速度 管理员可设置首页、分类页、产品内页商品缩略图尺寸 12)商品库存在客户成功订购自动减少,库存为0的商品无法订购 后台管理员...

    3Zcms免费开源建站系统含手机 v1.5.0 Build20171107.zip

    6.上传文件支持直接选择,图片可重复利用。 7.上传文件管理功能中增加一键清除冗余文件。 8.后台UI细节调整,不再窜行。 9.后台选择分类功能修正。 10.在线模板及在线插件中增加建议搜索功能。 10.百度编辑器...

    环平网上购物系统2012 V1.0版

    11)管理员可以开启商品大小图功能,开启大小图可以优化显示效果同时加快打开速度 管理员可设置首页、分类页、产品内页商品缩略图尺寸 12)商品库存在客户成功订购自动减少,库存为0的商品无法订购 后台管理员...

    PHP程序开发范例宝典III

    实例095 应用JavaScript实现指定尺寸的无边框窗口 142 实例096 应用CSS+DIV实现无边框窗口 143 实例097 通过双击鼠标实现页面自动滚屏 145 3.10 其他 146 实例098 设置主页 147 实例099 收藏本站 147 ...

    C#编程经验技巧宝典

    104 &lt;br&gt;0171 如何只允许输入指定图片格式 105 &lt;br&gt;0172 如何设置录入图片统一图片大小 105 &lt;br&gt;5.4 数组处理技巧 105 &lt;br&gt;0173 如何转换数组类型 105 &lt;br&gt;0174 如何复制数组中一系列元素的...

    94KKBBS v1.19 简体中文版

    获得上传图片大小,长宽数据 [124].获得上传其他类型文件大小数据 [125].新的图片验证码。更加安全 [126].论坛联盟以及部分菜单生成静态js,减少服务器负担。 [127].使用缓存缓存模板,加快浏览速度,减少服务器负担...

    w78cms企业网站管理系统 2.8 gbk版

    广告管理:增加图片、文字、FLASH广告,定义尺寸、类型、生成JS调用。 幻灯管理:新闻幻灯、幻灯修改等。 招聘管理:在线发布招聘信息、修改、删除、管理职位。查看前台用户投至简历。 友情链接:增加文字或图片链接...

    NetShop网店系统 v2.0

    软件介绍 NetShop软件特点介绍: 1、使用ASP.Net(c#)2.0、多层结构开发 2、前台设计不采用任何.NET内置控件读取...15、灵活的开关及图片大小尺寸控制,防盗版图片水印设计 16、在线系统更新升级,轻点鼠标升级成功

    仿京东商城购物系统正式版

    11)管理员可以开启商品大小图功能,开启大小图可以优化显示效果同时加快打开速度 管理员可设置首页、分类页、产品内页商品缩略图尺寸 12)商品库存在客户成功订购自动减少,库存为0的商品无法订购 后台管理员...

Global site tag (gtag.js) - Google Analytics