snimg.asp

来自「漂亮的模板,商店销售统计,日销售,月销售统计,销售录入」· ASP 代码 · 共 40 行

<%
dim obj
dim img
dim char 
dim no,ch
dim i

char =  ARRAY("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","D","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")

set obj=CreateObject("shotgraph.image")
obj.CreateImage 45,20,8

Response.Clear
Response.ContentType="image/gif"


obj.SetColor 0,251,223,155
obj.SetColor 1,0,0,0

obj.SetBgColor 0
obj.Rectangle 0, 0, 44,19
obj.SetBkMode "TRANSPARENT"
obj.CreateFont "Arial",136,14,1,false,false,false,False
obj.SetTextColor 1

for i=0 to 3
	Randomize
	ch = char(Round(RND * 35))
	obj.TextOut i*10+3,Round(RND*3),ch
	no = no & ch
next

Response.cookies(COOKIE_HEAD & "yanzhengno") = no

'Create the image file named test.gif
img = obj.GifImage(-1,1,"")
Response.BinaryWrite(img)
%>