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

  for iTemp2 = lStartY to lFinishY
   for iTemp1 = lStartX to lFinishX
    sCopy = sCopy & ChrB(Pixel(iTemp1,iTemp2))
   next
  next
  
  for iTemp2 = 1 to lHeight
   for iTemp1 = 1 to lWidth
    Pixel(lX3 + iTemp1,lY3 + iTemp2) = AscB(MidB(sCopy,(iTemp2 - 1) * lWidth + iTemp1,1))
   next
  next
 end sub

 ' Non-recursive flood fill, VBScript has a short stack (200 bytes) so recursion won't work
 public sub Flood(ByVal lX,ByVal lY)
  Dim aPixelStack
  Dim objPixel
  Dim lOldPixel

  Set aPixelStack = New PixelStack
  
  aPixelStack.Push lX,lY
  
  lOldPixel = Pixel(lX,lY)
  
  while(aPixelStack.Size > 0)
   Set objPixel = aPixelStack.Pop
   
   if objPixel.X >= 1 and objPixel.X <= lWidth and objPixel.Y >= 1 and objPixel.Y <= lHeight then
    if Pixel(objPixel.X,objPixel.Y) <> ForegroundColourIndex and Pixel(objPixel.X,objPixel.Y) = lOldPixel then
     Pixel(objPixel.X,objPixel.Y) = ForegroundColourIndex
     
     aPixelStack.Push objPixel.X + 1,objPixel.Y
     aPixelStack.Push objPixel.X - 1,objPixel.Y
     aPixelStack.Push objPixel.X,objPixel.Y + 1
     aPixelStack.Push objPixel.X,objPixel.Y - 1

上一页 [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防止网页频繁刷新的方法介绍