获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP

时间：2021-10-23 13:59:34
  1. <%  
  2. Class ImgWHInfo ''获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP  
  3. Dim ASO  
  4. Private Sub Class_Initialize  
  5. Set ASO=Server.CreateObject("ADODB.Stream")  
  6. ASO.Mode=3  
  7. ASO.Type=1  
  8. ASO.Open  
  9. End Sub  
  10. Private Sub Class_Terminate  
  11. Err.Clear  
  12. Set ASO=Nothing  
  13. End Sub  
  14.  
  15. Private Function Bin2Str(Bin)  
  16. Dim I, Str  
  17. For I=1 To LenB(Bin)  
  18. clow=MidB(Bin,I,1)  
  19. If ASCB(clow)<128 Then  
  20. Str = Str & Chr(ASCB(clow))  
  21. Else  
  22. I=I+1  
  23. If I <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))  
  24. End If  
  25. Next  
  26. Bin2Str = Str  
  27. End Function  
  28.  
  29. Private Function Num2Str(Num,Base,Lens)  
  30. Dim Ret  
  31. Ret = ""  
  32. While(Num>=Base)  
  33. Ret = (Num Mod Base) & Ret  
  34. Num = (Num - Num Mod Base)/Base  
  35. Wend  
  36. Num2Str = Right(String(Lens,"0") & Num & Ret,Lens)  
  37. End Function  
  38.  
  39. Private Function Str2Num(Str,Base)  
  40. Dim Ret,I  
  41. Ret = 0  
  42. For I=1 To Len(Str)  
  43. Ret = Ret *base + Cint(Mid(Str,I,1))  
  44. Next  
  45. Str2Num=Ret  
  46. End Function  
  47.  
  48. Private Function BinVal(Bin)  
  49. Dim Ret,I  
  50. Ret = 0  
  51. For I = LenB(Bin) To 1 Step -1  
  52. Ret = Ret *256 + AscB(MidB(Bin,I,1))  
  53. Next  
  54. BinVal=Ret  
  55. End Function  
  56.  
  57. Private Function BinVal2(Bin)  
  58. Dim Ret,I  
  59. Ret = 0  
  60. For I = 1 To LenB(Bin)  
  61. Ret = Ret *256 + AscB(MidB(Bin,I,1))  
  62. Next  
  63. BinVal2=Ret  
  64. End Function  
  65.  
  66. Private Function GetImageSize(filespec)  
  67. Dim bFlag  
  68. Dim Ret(3)  
  69. ASO.LoadFromFile(filespec)  
  70. bFlag=ASO.Read(3)  
  71. Select Case Hex(binVal(bFlag))  
  72. Case "4E5089":  
  73. ASO.Read(15)  
  74. ret(0)="PNG"  
  75. ret(1)=BinVal2(ASO.Read(2))  
  76. ASO.Read(2)  
  77. ret(2)=BinVal2(ASO.Read(2))  
  78. Case "464947":  
  79. ASO.read(3)  
  80. ret(0)="gif"  
  81. ret(1)=BinVal(ASO.Read(2))  
  82. ret(2)=BinVal(ASO.Read(2))  
  83. Case "535746":  
  84. ASO.read(5)  
  85. binData=ASO.Read(1)  
  86. sConv=Num2Str(ascb(binData),2 ,8)  
  87. nBits=Str2Num(left(sConv,5),2)  
  88. sConv=mid(sConv,6)  
  89. While(len(sConv)<nBits*4)  
  90. binData=ASO.Read(1)  
  91. sConv=sConv&Num2Str(AscB(binData),2 ,8)  
  92. Wend  
  93. ret(0)="SWF"  
  94. ret(1)=Int(Abs(Str2Num(Mid(sConv,1*nBits+1,nBits),2)-Str2Num(Mid(sConv,0*nBits+1,nBits),2))/20)  
  95. ret(2)=Int(Abs(Str2Num(Mid(sConv,3*nBits+1,nBits),2)-Str2Num(Mid(sConv,2*nBits+1,nBits),2))/20)  
  96. Case "FFD8FF":  
  97. Do  
  98. Do: p1=binVal(ASO.Read(1)): Loop While p1=255 And Not ASO.EOS  
  99. If p1>191 And p1<196 Then Exit Do Else ASO.read(binval2(ASO.Read(2))-2)  
  100. Do:p1=binVal(ASO.Read(1)):Loop While p1<255 And Not ASO.EOS  
  101. Loop While True  
  102. ASO.Read(3)  
  103. ret(0)="JPG"  
  104. ret(2)=binval2(ASO.Read(2))  
  105. ret(1)=binval2(ASO.Read(2))  
  106. Case Else:  
  107. If left(Bin2Str(bFlag),2)="BM" Then  
  108. ASO.Read(15)  
  109. ret(0)="BMP"  
  110. ret(1)=binval(ASO.Read(4))  
  111. ret(2)=binval(ASO.Read(4))  
  112. Else  
  113. ret(0)=""  
  114. End If  
  115. End Select  
  116. ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &""""  
  117. getimagesize=ret  
  118. End Function  
  119.  
  120. Public Function imgW(IMGPath)  
  121. Dim FSO,IMGFile,FileExt,Arr  
  122. Set FSO = Server.CreateObject("Scripting.FileSystemObject")  
  123. If (FSO.FileExists(IMGPath)) Then  
  124. Set IMGFile = FSO.GetFile(IMGPath)  
  125. FileExt=FSO.GetExtensionName(IMGPath)  
  126. Select Case FileExt  
  127. Case "gif","bmp","jpg","png":  
  128. Arr=GetImageSize(IMGFile.Path)  
  129. imgW = Arr(1)  
  130. End Select  
  131. Set IMGFile=Nothing  
  132. Else  
  133. imgW = 0  
  134. End If  
  135. Set FSO=Nothing  
  136. End Function  
  137.  
  138. Public Function imgH(IMGPath)  
  139. Dim FSO,IMGFile,FileExt,Arr  
  140. Set FSO = server.CreateObject("Scripting.FileSystemObject")  
  141. If (FSO.FileExists(IMGPath)) Then  
  142. Set IMGFile = FSO.GetFile(IMGPath)  
  143. FileExt=FSO.GetExtensionName(IMGPath)  
  144. Select Case FileExt  
  145. Case "gif","bmp","jpg","png":  
  146. Arr=getImageSize(IMGFile.Path)  
  147. imgH = Arr(2)  
  148. End Select  
  149. Set IMGFile=Nothing  
  150. Else  
  151. imgH = 0  
  152. End If  
  153. Set FSO=Nothing  
  154. End Function  
  155. End Class  
  156. %> 
  157. <% 
  158. IMGPath="Test.jpg"  
  159.  
  160. Set PP = New ImgWHInfo  
  161. W = PP.imgW(Server.Mappath(IMGPath))  
  162. H = PP.imgH(Server.Mappath(IMGPath))  
  163. Set pp = Nothing  
  164. %> 
  165. <% 
  166. Dim W,PXHeight 
  167. Dim Pp '//Proportion 
  168. If W=0 or W="" Then 
  169. PXWidth=0 
  170. PXHeight=0 
  171. Else 
  172. Pp=FormatNumber(W/H,2) '//长宽比 
  173. End If 
  174. If W>=H Then 
  175. If W>=300 Then 
  176. PXWidth=300 
  177. PXHeight=FormatNumber(300/Pp,0) 
  178. Else 
  179. PXWidth=W 
  180. PXHeight=H 
  181. End If 
  182. Else 
  183. If PHeight>=260 Then 
  184. PXHeight=260 
  185. PXWidth=FormatNumber(260*Pp,0) 
  186. Else 
  187. PXWidth=W 
  188. PXHeight=H 
  189. End If 
  190. End If 
  191. response.Write(PXWidth) 
  192. %> 
  193. <img src="Test.jpg" border="0" width=<%=PXWidth%>  
  194. height=<%=PXHeight%>>  
标签：

相关文章