ASP不需要组件生成图片验证码的方法

Class Canvas
' Public data
 public GlobalColourTable()
 public LocalColourTable()
 public ForegroundColourIndex ' Current foreground pen
 public BackgroundColourIndex ' Current background pen
 public TransparentColourIndex ' Current transparency colour index
 public UseTransparency ' Boolean for writing transparency
 public GIF89a ' Write GIF89a data
 public Comment ' Image comment 255 characters max
 
' Private data
 private sImage
 private lWidth
 private lHeight
 private iBits
 private lColourResolution
 private bSortFlag
 private bytePixelAspectRatio
 private byteSeperator
 private byteGraphicControl
 private byteEndOfImage
 private lLeftPosition
 private lTopPosition
 private lLocalColourTableSize
 private lGlobalColourTableSize
 private lReserved
 private bInterlaceFlag
 private bLocalColourTableFlag
 private bGlobalColourTableFlag
 private lCodeSize
 private bTest
 
' ***************************************************************************
' ************************ Raster management functions **********************
' ***************************************************************************

 public property get Version()
  Version = CURRENT_VER
 end property

 ' Get a specific pixel colour
 public property get Pixel(ByVal lX,ByVal lY)
  if lX <= lWidth and lX > 0 and lY <= lHeight and lY > 0 then
   Pixel = AscB(MidB(sImage,(lWidth * (lY - 1)) + lX,1))
  else ' Out of bounds, return zero
   Pixel = 0
  end if
 end property
 
 ' Set a specific pixel colour, look at speeding this up somehow...

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:取汉字拼音首字母的存储过程

下一篇:ASP防止网页频繁刷新的方法介绍