<%
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
%>