让Asp.Net输出图形

1@ Page Language="vb" Debug="True" 

1@ import namespace="system.drawing" 

1@ import namespace="system.drawing.imaging" 

1@ import namespace="system.drawing.drawing2d" 

 1 ''''''''''''''''''''''''''''   
 2'让Asp.Net输出图形.   
 3'欧阳东杰(oydj)原创.   
 4'QQ:2596812   
 5'E-mail:[email protected]   
 6'MSN:[email protected]   
 7'欢迎大家联系我交流技术   
 8''''''''''''''''''''''''''''' 
 9
10dim strFilename as string '声明变量,用于图片路径   
11dim i as System.Drawing.Image '创建.net框架图像处理对象实例   
12dim imgg1 as Integer =CInt(Int((6 * Rnd()) + 1)) '生成1-6的随机数   
13dim oydj as string=imgg1 
14
15strFilename ="d:\o123\"+oydj+".jpg" '载入的图片路径,这里的oydj代表随机生成的变量,用于生成随机图片   
16  
17i = System.Drawing.Image.FromFile(strFilename)   
18  
19dim b as New system.drawing.bitmap(i.width, i.height, pixelformat.format24bpprgb)   
20dim g as graphics = graphics.fromimage(b)   
21  
22g.clear(color.blue) '背景色为蓝色   
23
24
25dim sss=Request.ServerVariables("REMOTE_ADDR")   
26g.drawimage(i,New point(0,0))   
27'这里表示生成一个字符,9号宋体加粗白色,pointF(160,50)为在屏幕的坐标   
28g.drawString(sss, New font("宋体",9,fontstyle.bold),new SolidBrush(Color.White),New pointF(160,50))   
29g.drawString(sss, New font("宋体",9,fontstyle.bold),new SolidBrush(Color.White),New pointF(161,51))   
30
31
32  
33response.contenttype="image/jpeg" '指定输出格式为图形   
34  
35b.save(response.outputstream, imageformat.jpeg)   
36  
37b.dispose()   
38