ASP图象组件shotgraph生成图片验证码的代码

最新推荐文章于 2014-05-11 18:34:23 发布

yxk980

最新推荐文章于 2014-05-11 18:34:23 发布

阅读量293

点赞数

分类专栏：技术文章标签： asp c

本文链接：https://blog.csdn.net/yxk980/article/details/6333606

版权

技术专栏收录该内容

17 篇文章 0 订阅

订阅专栏

文本文字过程如下：
使用时，请注意FontSmoothing这个属性：
它是用来定义文字是否防锯齿的。
0 - 使用系统默认设置
1 - 不防锯齿
2 - 防锯齿

<%
Response.Contenttype="image/gif"
Set g=CreateObject("shotgraph.image")
g.CreateImage 320,200,16
g.SetColor 0,255,255,255
g.SetColor 1,0,0,0
g.SetBgColor 0
g.SetTextColor 1
g.FillRect 0,0,320,200
g.FontSmoothing=1
g.CreateFont "Arial",0,42,0,True,False,False,False
g.TextOut 0,30,"Non-Antialiased"
g.FontSmoothing=2
g.CreateFont "Arial",0,42,0,True,False,False,False
g.TextOut 0,120,"Antialiased"
g.BuildPalette 2
Response.BinaryWrite g.GifImage(-1,0,"")
%>ychar="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z" '将数字和大写字母组成一个字符串
   yc=split(char,",") '将字符串生成数组
   ycodenum=4
   for i=1 to ycodenum
   Randomize
   ycode=ycode&yc(Int((35*Rnd))) '数组一般从0开始读取，所以这里为35*Rnd
   next

   Response.Clear
   Response.ContentType="image/gif"
   set obj=Server.CreateObject("shotgraph.image")
   x=55 '图片的宽
   y=26 '图片的高
   obj.CreateImage x,y,8 '8是图片的颜色8位
   obj.SetColor 0,55,126,222
   obj.SetColor 1,255,255,255

   obj.CreatePen "PS_SOLID",1,0
   obj.SetBgColor 0
   obj.Rectangle 0,0,x-1,y-1
   obj.SetBkMode "TRANSPARENT"
   obj.CreateFont "Arial",136,18,1,False,False,False,False
   obj.SetTextColor 1
   obj.TextOut 5,4,ycode&" "

   img=obj.GifImage(-1,1,"")
   Response.BinaryWrite (img)