asp生成缩略图代码 [aspjpeg]

 asp生成缩略图   asp 自动生成缩略图   生成缩略图   asp代码生成器 
 aspjpeg是免费的,下一个就能用,现在一般的空间都支持这个组件


  无组件的原理和在图片上写一样的,只是宽高等比了,体积还是没有压缩,估计无组件做不了这个吧

   call compressphoto(photopath,120,90)        '原图路径 缩略图宽 缩略图高

   function compressphoto(photopath,widthx,heighty)

   set jpeg1=server.createobject("persits.jpeg")
   jpeg1.open server.mappath(photopath)

   jpeg1.width=widthx
   jpeg1.height=heighty

   jpeg1.save server.mappath("111cn/" & photopath) '保存缩略图

   End function       



   '判断服务器是否支持aspjpeg

    on error resume next
    set jpeg1=server.createobject("persits.jpeg")
    if err.number0 then
     Response.write "服务器不支持ASPJPEG组件!"
    else
     Response.write "服务器支持ASPJPEG组件!"
    End if