谁能把他下列代码翻译成ASP啊？？？

Question

纯ASP搞不定这种东西
需要用到ASP中的图像处理组件

Answer 1

<%
   Response.Expires = 0
   Response.Buffer = TRUE
   Response.ContentType = "image/jpeg"   Set DelphiASPObj = Server.CreateObject("iNotes.Images")   '指定图象宽，高，背景(RGB)
   DelphiASPObj.width 48
   DelphiASPObj.height 48
   DelphiASPObj.BackColor 255,255,255   '指定画笔的风格(0..5),颜色(RGB)
   DelphiASPObj.PenStyle 0
   DelphiASPObj.PenColor 225,225,225   '作图
   '矩形Rectangle[x1,y1,x2,y2]
   '椭圆Ellipse[x1,y1,x2,y2]
   '画线Line[x1,y1,x2,y2]    DelphiASPObj.Rectangle 2,2,46,46   DelphiASPObj.PenColor 225,225,0
   DelphiASPObj.Ellipse 2,2,46,46
   DelphiASPObj.PenColor 225,0,225
   DelphiASPObj.Line 2,2,46,46
   DelphiASPObj.PenColor 0,225,225
   DelphiASPObj.Line 2,46,46,2   '指定字体的名字，大小，颜色(RGB)，风格(I,B,U,S)
   DelphiASPObj.fontname "宋体"
   DelphiASPObj.fontsize 28
   DelphiASPObj.fontcolor 0,0,0
   DelphiASPObj.fontstyle 0,1,0,0   '在指定坐标处写字 
   DelphiASPObj.write 4,4,Request("hz")   '选择质量高
   DelphiASPObj.Compress 100   '将图象存盘
   DelphiASPObj.SaveJpg "c:\" & Request("hz") & ".jpg"   '将图象输出
   Response.BinaryWrite DelphiASPObj.Image
   Set DelphiASPObj = nothing
   Response.end
%>这个可以了吧！