makepic.aspx

asp做的新闻系统

<%@ page language="vb" contenttype="image/jpeg" %>  
<%@ import namespace="system.drawing" %>  
<%@ import namespace="system.drawing.imaging" %>  
<%@ import namespace="system.drawing.drawing2d" %>  
<%  
'清空Response  
response.clear  
'建立一个120*30大小，24bit的BMP图像； 
dim imgOutput as New bitmap(120, 30, pixelformat.format24bpprgb)  
'根据以上BMP建立一个新图像； 
dim g as graphics = graphics.fromimage(imgOutput) 
g.clear(color.Green) 
g.smoothingMode = smoothingMode.antiAlias 
g.drawString("看见了吗？", New font("黑体",16,fontstyle.bold),new SolidBrush(Color.White),New pointF(2,4))  
g.FillRectangle(New linearGradientBrush(New point(0,0), New point(120,30), color.fromArgb(0,0,0,0), color.fromArgb(255,255,255,255)),0,0,120,30)
imgOutput.save(response.outputstream, imageformat.jpeg)
g.dispose()  
imgOutput.dispose()  
response.end  
%>