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

[internet0532]

<?php
header ("Content-type: image/png");
$IP=$_SERVER[REMOTE_ADDR];
$image = ImageCreate(200,80);
$colorbk=ImageColorAllocate($image,58,110,165);
$colorGreen=ImageColorAllocate($image,255,128,64);
$colorB=ImageColorAllocate($image,255,255,255);
$colorBlack=ImageColorAllocate($image,0,0,0);
$colorBb=ImageColorAllocate($image,192,192,192);
ImageFill($image,0,0,$colorbk);
ImageFilledRectangle($image,5,5,195,75,$colorBb);
ImageFilledRectangle($image,7,7,193,73,$colorB);
ImageString($image,7,23,15,$IP,$colorBlack);
ImagePNG($image);
?>
需要PHP的GD库支持

[edward0716]

up learn

[zsyk]

明显看出ASP比PHP烦琐.

[sailor001]

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

[mabro]

代码马上来了！

[mabro]

<%
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
%>



这个可以了吧！

[mabro]

IP地方你自己加吧！