<%
imgFormat = Request("format")
iFormat = 0
if IsEmpty(Request("format") ) then
imgFormat = "gif"
else
imgFormat = Request("format")
end if
if (imgFormat <> "gif") then
if (imgFormat <> "png") then
imgFormat = "png"
end if
end if
if (imgFormat = "png") then
iFormat = 1
end if
sScriptDir = Request.ServerVariables("SCRIPT_NAME")
sScriptDir = StrReverse(sScriptDir)
sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, "/"))
sScriptDir = StrReverse(sScriptDir)
' Set the virtual Directory
sPath = Server.MapPath(sScriptDir) & "\"
Set h = Server.CreateObject("javaside.Rbl.acxImage")
h.init 250, 130
h.newImage()
' chemin absolue
h.loadImage sPath & "javaside.gif", 0
h.setColor 235, 235, 235
h.fillRect 0, 0, 250, 130
h.setColor 55, 55, 255
h.fillRect 35, 90, 80, 30
h.drawImage 0, 140, 25
h.setColor 255, 55, 55
h.drawOval 135, 90, 80, 30
h.setColor 0, 0, 0
h.setFont "Verdana", 1, 22
h.drawString "JavaSide.com...", 25, 82
h.setFont "TimesRoman", 2, 18
h.drawString "Times 16", 5, 36
h.setColor 0, 0, 255
h.setFont "Courier", 1, 14
h.drawString "Courier 12 gras", 5, 52
' On construit l image (paint suivant les donnees lu)
h.build()
' on genere l image 0 => GIF 1 => PNG
img = h.getArray(iFormat)
' h.saveAs( sPath & "cook2.gif")
' ---- Response format -----------
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Response.contenttype = "image/" & imgFormat
Response.BinaryWrite img
Response.End
' ----- End Response -------------
h.clear()
Set h = nothing
%> |
|