有没办法解决？上传图片时获取filewidth?

[zhxzhxzhx]

例如这个能获得图片的大小：
set file=upload.file("small_photo") '上传缩缩图
Download_FileSize=file.Filesize
response.write Filesize

------------------------
这个Filename可获得图片文件的名称。不知有没办法获得图片的高宽？？？？

苦闷

[jerry]

经过我多次试验，发现了JPG及GIF图像的尺寸的存储位置：

GIF：

在文件的第07H，08H，09H，0AH这四个字节就是它的尺寸（设第一个字节是01H）。
宽：07H（低字节），08H（高字节）
高：09H（低字节），0AH（高字节）

JPG：

在文件的A4H，A5H，A6H，A7H这四个字节就是它的尺寸（设第一个字节是01H）。
宽：A4H（高字节），A5H（低字节）
宽：A6H（高字节），A7H（低字节）

注意：JPG和GIF的尺寸的高低字节相反！

截取时注意用字节操作函数对它进行操作。
如：获得GIF图像的尺寸：（ASP）
gifdata 中是图像文件的数据，则
imgW=asc(MidB(gifdata,&H7,1))+asc(MidB(gifdata,&H8,1)) * 256 '宽
imgW=asc(MidB(gifdata,&H9,1))+asc(MidB(gifdata,&HA,1)) * 256 '高

获得JPG图像的尺寸：（ASP）
jpgdata 中是图像文件的数据，则
imgW=asc(MidB(jpgdata,&HA5,1))+asc(MidB(jpgdata,&HA4,1)) * 256 '宽
imgW=asc(MidB(jpgdata,&HA7,1))+asc(MidB(jpgdata,&HA6,1)) * 256 '高

[zhxzhxzhx]

非常谢谢你的回帖
可 asc 应该怎么定义？不好意思，看不到明白：）

gifdata 中是图像文件的数据，则
imgW=asc(MidB(gifdata,&H7,1))+asc(MidB(gifdata,&H8,1)) * 256 '宽
imgW=asc(MidB(gifdata,&H9,1))+asc(MidB(gifdata,&HA,1)) * 256 '高

[popcom]

关注。。。

[zhxzhxzhx]

。。。。