<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open "D:/webcar/wwwroot/ModelPic/"&request("model")&"/"&request("id")
if request("w")<>"" then
if jpeg.OriginalWidth>int(request("w")) then jpeg.Width = request("w")
end if
'jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
if request("h")="" then
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
else
jpeg.Height=request("h")
if request("w")="" then jpeg.Width = jpeg.OriginalWidth * jpeg.Height / jpeg.OriginalHeight end if
end if
Jpeg.Canvas.DrawPNG jpeg.Width-190, jpeg.Height-80, "D:/webcar/wwwroot/image/sy.png"
Jpeg.SendBinary
%>