利用ASP获取设置图片尺寸大小

< %imgpath = " default_22.gif " response.write  " <img src=' " & imgpath & " ' border=0  " & SetAutoImg( 280 , 260 ,imgpath) & " ><br>宽: " & GetImgW(ImgPath) & " ;高: " & GetImgH(ImgPath) function  GetImgW(ImgPath)     set  pp = new  imgInfo     w = pp.imgW(server.mappath(ImgPath))      set  pp = nothing      GetImgW = w end function function  GetImgH(ImgPath)     set  pp = new  imgInfo     h = pp.imgH(server.mappath(ImgPath))      set  pp = nothing      GetImgH = h end function function  SetAutoImg(fitWidth,fitHeight,ImgPath)    hhRtn = 0     wwRtn = 0      set  pp = new  imgInfo     ww = pp.imgW(server.mappath(ImgPath))     hh = pp.imgH(server.mappath(ImgPath))          set  pp = nothing       if  ww > 0   and  hh > 0   then          if  ww / hh >= FitWidth / FitHeight  then             wwRtn = fitWidth            hhRtn = (hh * FitWidth) / ww         else             hhRtn = fitHeight            wwRtn = (ww * FitHeight) / hh         end   if      end   if     SetAutoImg = "  height=' " & hhRtn & " ' " & "  width=' " & wwRtn & " '  " end function class imgInfo      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    err.clear      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)      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)      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)      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)      dim  ret     ret  =   0       for  i  =   1   to  lenb(bin)     ret  =  ret  * 256   +  ascb(midb(bin,i, 1 ))      next      BinVal2 = ret      End Function           Private   Function  getImageSize(filespec)      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           Public   Function  imgW(pic_path)      Set  fso1  =  server.CreateObject(  " Scripting.FileSystemObject " )      If  (fso1.FileExists(pic_path))  Then       Set  f1  =  fso1.GetFile(pic_path)     ext = fso1.GetExtensionName(pic_path)      select   case  ext      case   " gif " , " bmp " , " jpg " , " png " :     arr = getImageSize(f1.path)     imgW  =  arr( 1 )      end   select       Set  f1 = nothing       else      imgW  =   0       End   if       Set  fso1 = nothing       End Function           Public   Function  imgH(pic_path)      Set  fso1  =  server.CreateObject(  " Scripting.FileSystemObject " )      If  (fso1.FileExists(pic_path))  Then       Set  f1  =  fso1.GetFile(pic_path)     ext = fso1.GetExtensionName(pic_path)      select   case  ext      case   " gif " , " bmp " , " jpg " , " png " :     arr = getImageSize(f1.path)     imgH  =  arr( 2 )      end   select       Set  f1 = nothing       else      imgH  =   0       End   if       Set  fso1 = nothing       End Function   End  Class% >