首先，我們知道在頁面中顯示圖片是如下代碼：

?

　　<img src="pic.gif" border="0" width="300" height="260">
　　src是圖片路徑，border控制圖片邊緣寬度，width是圖片的長度，height是圖片的高度。縮略圖的生成其實就是在原始尺寸上縮放。但一般為了盡量少失真，我們都會按比例縮放。于是，獲取圖片的長寬尺寸也就成了生成縮略圖的重點。

　　下面便是編寫無組件生成縮略圖的步驟：

　　1.無組件獲取圖片大小

　　以前剛學asp不久時看到過一篇利用ascii碼實現無組件獲取圖片尺寸的文章。后來試了試，發現在獲取jpg類圖片尺寸時總是不能正確顯示，在網上查了查，居然有不少網站轉載這個程序，但沒有一家指出此程序的缺陷，也就更談不上解決缺陷的辦法了。后來又google了一下，終于找到了一篇介紹利用adodb.stream獲取圖片尺寸的文章，按其介紹的方法，修改里面的代碼試了試，效果真的還不錯，現在將其拿出來與大家分享：

　　利用adodb.stream獲取圖片尺寸的通用類
<%
gps：get picture size //
//利用adodb.stream獲取圖片尺寸//
/cited by leon（心晴） 2005年8月11日//

class gps
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
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)
gps (2005-8-11)
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)
gps (2005-8-11)
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)
gps (2002-8-11)
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)
gps (2002-8-11)
dim ret
ret = 0
for i = 1 to lenb(bin)
ret = ret *256 + ascb(midb(bin,i,1))
next
binval2=ret
end function

///以下是調用代碼///
function getimagesize(filespec)
gps (2002-8-11)
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
end class
%>
　　將以上代碼復制生成gps.asp文件，這樣無組件獲取圖片尺寸的通用類就ok了。

文章整理：站長天空 網址：http://www.z6688.com/
以上信息與文章正文是不可分割的一部分,如果您要轉載本文章,請保留以上信息，謝謝!

轉載于:https://www.cnblogs.com/pricks/archive/2010/01/30/1660049.html

總結

以上是生活随笔為你收集整理的【顶】Asp无组件生成缩略图（1）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。