まず、ページ上の写真は次のコードであることがわかります。
<img src = pic.gif border = 0幅= 300高さ= 260>
SRCは画像パス、境界線は画像の幅を制御し、幅は画像の長さ、高さは画像の高さです。狭い図の生成は、実際には元のサイズをズームしています。しかし、できるだけ歪みをするためには、比例して拡大されます。その結果、画像の長さと幅のサイズも、たわみ図の焦点になりました。
以下は、サムネイルを生成するためのコンポーネントなしで書き込むステップです。
1.コンポーネントなしで画像サイズを取得します
ASPを学ぶ前に、ASCIIコードを使用してコンポーネントのない画像サイズを取得する記事を見ました。その後、私はそれを試して、JPGクラスのサイズを取得するとき、それをオンラインで確認した後、多くのウェブサイトがこのプログラムを再現したわけではありませんが、誰もこのプログラムの欠陥を指摘しませんでした。解決策。後に、Googleはadodb.streamを使用して画像サイズのサイズを導入する記事を見つけました
adodb.streamを使用して、一般クラスの画像サイズを取得します
| 以下はコードフラグメントです。 <% '//////// gps:get get Impruer size //////////////////////////////////////// ///////////////////////////////////////////////// ///////////////////////////////////////////////// /////////////////////////////////// '/////////// adodb.streamを使用して画像サイズ//////////を取得する '///////レオン(Xinqing)2005年8月11日//////// クラスGPS 薄暗いアソ private sub class_initialize aso = createObject(adodb.stream)をset aso.mode = 3 aso.type = 1 aso.open End Sub プライベートSub Class_terminate ASO =何も設定しません End Sub プライベート機能bin2str(bin) dim i、str i = 1にレンブ(ビン)へ clow = midb(bin、i、1) ASCB(Clow)<128の場合 str = str&chr(ascb(clow)) それ以外 i = i 1 i <= lenb(bin)の場合、str = str&chr(ascw(bin、i、1)&clow)) ifを終了します 次 bin2str = str エンド関数 プライベート関数num2str(num、base、lens) 'GPS(2005-8-11) dim ret ret = while(num> = base) ret =(num modベース)&ret num =(num -num modベース)/ベース ウェンド num2str = right(string(lens、0)&num&ret、lens) エンド関数 プライベート関数str2num(str、base) 'GPS(2005-8-11) dim ret ret = 0 i = 1 to len(str) ret = ret *base cint(mid(str、i、1)) 次 str2num = ret エンド関数 プライベート機能ビンバル(ビン) 'GPS(2002-8-11) dim ret ret = 0 i = lenb(bin)から1ステップ-1の場合 ret = ret *256 ascb(midb(bin、i、1)) 次 binval = ret エンド関数 プライベート機能binval2(bin) 'GPS(2002-8-11) dim ret ret = 0 i = 1にレンブ(ビン)へ ret = ret *256 ascb(midb(bin、i、1)) 次 binval2 = ret エンド関数 '///次のものはコールコード/// function getImagesize(fileSpec) 'GPS(2002-8-11) dim ret(3) aso.loadfromfile(fileSpec) bflag = aso.read(3) ケースヘックス(binval(bflag))を選択します ケース4E5089: aso.read(15) ret(0)= png ret(1)= binval2(aso.read(2)) aso.read(2) ret(2)= binval2(aso.read(2)) ケース464947: aso.read(3) ret(0)= gif ret(1)= binval(aso.read(2)) ret(2)= binval(aso.read(2)) ケース535746: aso.read(5) bindata = aso.read(1) sconv = num2str(ascb(bindata)、2、8) nbits = str2num(左(sconv、5)、2) sconv = mid(sconv、6) while(len(sconv)<nbits*4) bindata = aso.read(1) sconv = sconv&num2str(ascb(bindata)、2、8) ウェンド 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) ケースFFD8FF: する do:p1 = binval(aso.read(1)):loop while p1 = 255 and not aso.eos p1> 191およびp1 <196の場合、出口はelse.read(binval2(aso.read(2))-2)を行います。 do:p1 = binval(aso.read(1)):loop while p1 <255 and not aso.eos 真実でループ aso.read(3) ret(0)= jpg ret(2)= binval2(aso.read(2)) ret(1)= binval2(aso.read(2)) その他: 残っている場合(bin2str(bflag)、2)= bmその後 aso.read(15) ret(0)= bmp ret(1)= binval(aso.read(4)) ret(2)= binval(aso.read(4)) それ以外 ret(0)= ifを終了します [選択]を終了します ret(3)= width =&ret(1)&height = &ret(2)& getImagesize = ret エンド関数 エンドクラス %> |
上記のコードをコピーしてgps.aspファイルを生成します。これにより、コンポーネントなしで画像サイズの一般的なクラスが問題になります。
2.最初にshowimg.aspページを設計して、タップマップと関連情報を表示します。特定のデザインは次のとおりです。
写真:
画像形式: