通过loadPicture函数来获取图片的高与宽和缩放,解决客户端再按比例缩小

<%

imgUrl="/skins/nopic.gif"

objUrl=server.MapPath(imgUrl)

on error resume next'防止加载图片出错
        set objPic=loadPicture(objUrl)'通过绝对路径来取得图片的属性
  if err then
      PicHeight1=68
   PicWidth1=68
  else
         PicWidth=round(objPic.width/26.4583)'26.4583什么？这是一个像素转换系数
         PicHeight=round(objPic.height/26.4583)

         if PicWidth>68 or PicHeight>68 then'68是显示的最大值
           if PicHeight>PicWidth then
             PicHeight1=68
             PicWidth1=round(PicWidth*(68/PicHeight))'缩小的倍数
           else
             PicWidth1=68
             PicHeight1=round(PicHeight*(68/PicWidth))'缩小的倍数
           end if
   else
    PicHeight1=68
    PicWidth1=68
         end if
  end if

%>