<% image = request.form("image") width = request.form("width") %> <form method=POST action=index.asp> Une image JPG Une image GIF Une image PNG Une image BMP nb de pixel en largeur </form> <%if image <> "" then %> &width=<%=width%>"> <%=image%> <% end if %>
<% image = request.querystring("image") width = request.querystring("width") Set objImg = Server.CreateObject("GflAx193.GflAx") objImg.EnableLZW = true objImg.LoadBitmap(server.mappath("images"& image)) rapport = width/objImg.Width objImg.Resize width, objImg.Height * rapport response.contenttype = "image/" & right(image,3) response.binarywrite objImg.SendBinary Set objImg = nothing %>