通过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

%>