利用ASP获得图片尺寸大小

• 这是动网论坛上一个朋友写的

  <% 
  imgpath="default_22.gif"

   set  pp=new  imgInfo 
   w = pp.imgW(server.mappath(imgpath)) 
   h = pp.imgH(server.mappath(imgpath))
   set pp=nothing
   
  response.write "<img src='"&imgpath&"' border=0><br>宽:"&w&";高:"&h

  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) 
  

• [1] [2] [3] [4] [5] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 利用ASP获得图片尺寸大小 相关文章：
• ·利用ASP获得图片尺寸大小
• 利用ASP获得图片尺寸大小 相关软件

上一篇:asp关于统计总数的代码

下一篇:考察禁用浏览器后退按钮

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐