通过Adodb.Stream取得图像(BMP JPG PNG GIF SWF)的高度和宽度

基本原理使用adodb.stream读二进制文件然后进行解析，然后返回一数组
第一个元素为类型(bmp jpg png gif swf)
第二个元素为宽度{width}
第三个元素为高度{height}
第四个元素为width={width},height={height}式字符串

1. <%
2. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
3. '上传图片或显示SWF的时候都希望得到它的高度和宽度   
4. '----------------------------------------------
5. '基本原理使用Adodb.Stream读二进制文件然后进行解析，然后返回一数组   
6. '第一个元素为类型(BMP   JPG   PNG   GIF   SWF)   
7. '第二个元素为宽度{width}   
8. '第三个元素为高度{height}   
9. '第四个元素为width={width},height={height}式字符串   
10. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
11. Class qswhImg 
12. dim aso 
13. Private Sub Class_Initialize 
14. set aso=CreateObject("Adodb.Stream") 
15. aso.Mode=3   
16. aso.Type=1   
17. aso.Open   
18. End Sub 
19. Private Sub Class_Terminate 
20. set aso=nothing 
21. End Sub 
23. Private Function Bin2Str(Bin) 
24. Dim I, Str 
25. For I=1 to LenB(Bin) 
26.     clow=MidB(Bin,I,1) 
27.     if ASCB(clow)<128 then 
28.     Str = Str & Chr(ASCB(clow)) 
29.     else 
30.     I=I+1 
31.     if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow)) 
32.     end if 
33. Next   
34. Bin2Str = Str 
35. End Function 
37. Private Function Num2Str(num,base,lens) 
38. dim ret 
39. ret = "" 
40. while(num>=base) 
41.     ret = (num mod base) & ret 
42.     num = (num - num mod base)/base 
43. wend 
44. Num2Str = right(string(lens,"0") & num & ret,lens) 
45. End Function 
47. Private Function Str2Num(str,base) 
48. dim ret 
49. ret = 0 
50. for i=1 to len(str) 
51.     ret = ret *base + cint(mid(str,i,1)) 
52. next 
53. Str2Num=ret 
54. End Function 
56. Private Function BinVal(bin) 
57. dim ret 
58. ret = 0 
59. for i = lenb(bin) to 1 step -1 
60.     ret = ret *256 + ascb(midb(bin,i,1)) 
61. next 
62. BinVal=ret 
63. End Function 
65. Private Function BinVal2(bin) 
66. dim ret 
67. ret = 0 
68. for i = 1 to lenb(bin) 
69. ret = ret *256 + ascb(midb(bin,i,1)) 
70. next 
71. BinVal2=ret 
72. End Function 
74. Function getImageSize(filespec)   
75. dim ret(3) 
76. aso.LoadFromFile(filespec) 
77. bFlag=aso.read(3) 
78. select case hex(binVal(bFlag)) 
79. case "4E5089": 
80.     aso.read(15) 
81.     ret(0)="PNG" 
82.     ret(1)=BinVal2(aso.read(2)) 
83.     aso.read(2) 
84.     ret(2)=BinVal2(aso.read(2)) 
85. case "464947": 
86.     aso.read(3) 
87.     ret(0)="GIF" 
88.     ret(1)=BinVal(aso.read(2)) 
89.     ret(2)=BinVal(aso.read(2)) 
90. case "535746": 
91.     aso.read(5) 
92.     binData=aso.Read(1) 
93.     sConv=Num2Str(ascb(binData),2 ,8) 
94.     nBits=Str2Num(left(sConv,5),2) 
95.     sConv=mid(sConv,6) 
96.     while(len(sConv)<nBits*4) 
97.     binData=aso.Read(1) 
98.     sConv=sConv&Num2Str(ascb(binData),2 ,8) 
99.     wend 
100.     ret(0)="SWF" 
101.     ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20) 
102.     ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20) 
103. case "FFD8FF": 
104.     do   
105.     do: p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS 
106.     if p1>191 and p1<196 then exit do else aso.read(binval2(aso.Read(2))-2) 
107.     do:p1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS 
108.     loop while true 
109.     aso.Read(3) 
110.     ret(0)="JPG" 
111.     ret(2)=binval2(aso.Read(2)) 
112.     ret(1)=binval2(aso.Read(2)) 
113. case else: 
114.     if left(Bin2Str(bFlag),2)="BM" then 
115.     aso.Read(15) 
116.     ret(0)="BMP" 
117.     ret(1)=binval(aso.Read(4)) 
118.     ret(2)=binval(aso.Read(4)) 
119.     else 
120.     ret(0)="" 
121.     end if 
122. end select 
123. ret(3)="width=""" & ret(1) """ height=""" & ret(2) """" 
124. getimagesize=ret 
125. End Function 
126. End Class
129. '使用范例（读某目录下所有图片的宽度）： 
130. set qswh=new qswhImg 
132. Set fso = CreateObject("Scripting.FileSystemObject")
133. 'Set f = fso.GetFolder(server.mappath("/update/pic_tem/")) 
134. 'Set fc = f.Files 
135. 'For Each f1 in fc 
136. 'ext=fso.GetExtensionName(f1.path) 
137. 'select case ext 
138. 'case "gif","bmp","jpg","png": 
139. ' arr=qswh.getImageSize(f1.path) 
140. ' response.write "<br>" & arr(0) & " " & arr(3) & ":" & f1.name & " width:" & arr(1) & " height:" & arr(2) 
141. 'case "swf" 
142. ' arr=qswh.getimagesize(f1.path) 
143. ' response.write "<br>" & arr(0) & " " & arr(3) & ":" & f1.name & " width:" & arr(1) & " height:" & arr(2) 
144. 'end select 
145. 'Next
147. response.write("<HR>")
148. show_picWH=qswh.getImageSize(server.mappath("/update/pic_tem/200852414295626.jpg"))
149. response.write("图片路径："&server.mappath("/update/pic_tem/200852414295626.jpg")"<BR>图片格式：" & show_picWH(0) & "<BR>图片宽度：" & show_picWH(1) & "<BR>图片高度：" & show_picWH(2))
150. Set fc=nothing 
151. Set f=nothing 
152. Set fso=nothing 
153. Set qswh=nothing 
154. %>
156. ============================================================================
158. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
159. '函数名：RETURN_QSWHIMG_STR
160. '函数作用：
161. '    配合Class qswhImg 把一张图片按比例缩小到一个值
162. '    如果图片的尺寸小于设定值，图片则按原尺寸，不作处理
163. '说明：
164. '    URL 图片的地址
165. '    WH 图片的尺寸范围
166. '    返回 图片的 width=__ or height=__ 字符串
167. '    调用实例：<img src="url/image.jpg" <%=call RETURN_QSWHIMG_STR("url/image.jpg",200)%> border="0">
168. '日期：2008-06
169. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
170. function RETURN_QSWHIMG_STR(URL,WH)
171. on error resume next
172. if URL="" or isnull(URL) or WH="" then exit function
173. set qswh=new qswhImg 
174. Set fso = CreateObject("Scripting.FileSystemObject")
175. show_picWH=qswh.getImageSize(server.mappath("/"&URL))
176. if cint(show_picWH(1))>=cint(show_picWH(2)) and cint(show_picWH(1))>WH then
177.    if show_picWH(1)>WH then show_picWH_str=" width="
178. elseif cint(show_picWH(1))<cint(show_picWH(2)) and cint(show_picWH(2))>WH then
179.    if show_picWH(2)>WH then show_picWH_str=" height="
180. else
181.    show_picWH_str=""
182. end if
183. set fso=nothing
184. set qswh=nothing
185. RETURN_QSWHIMG_STR=show_picWH_str
186. end function