答案:'利用JPEG来自动缩小图片的。
'fileName为图片的路径
'w为图片的最大宽
'h为图片的最大高度
'
<img src="q.jpg" <%=SetRangw("q.jpg",250,250)%>>
function SetRangw(fileName,w,h)
'fileName="admin/bookpic/2008651444726127.gif"
'w=200
'h=150
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(server.MapPath(fileName)) then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.RegKey = "48958-77556-02411"
Jpeg.Open server.MapPath(fileName)
Width=Jpeg.OriginalWidth
height=Jpeg.OriginalHeight
Jpeg.close
Set Jpeg = Nothing
end if
Set fso = nothing
if ((Width>w) or (height>h )) thenif (Width/height)>(w/h) then
SetRangw = "Width="&w
else
SetRangw = "height="&h
end if
end if
end function
上一个:取得控件的绝对位置
下一个:asp验证第一个字符是否为字母