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

  lOffset = lWidth * (lY - 1)

  if lX <= lWidth and lY <= lHeight and lX > 0 and lY > 0 then ' Clipping
   ' Set the pixel value at this point
   sImage = LeftB(sImage,lOffset + (lX - 1)) & ChrB(lValue) & RightB(sImage,LenB(sImage) - (lOffset + lX))
  end if  
 end property

 ' Read only width and height, to change these, resize the image
 public property get Width()
  Width = lWidth
 end property

 public property get Height()
  Height = lHeight
 end property

 public sub Replace(ByVal lOldColour,ByVal lNewColour)
  Dim lTempX
  Dim lTempY
  
  for lTempy = 1 to lHeight
   for lTempX = 1 to lWidth
    if Pixel(lTempX,lTempY) = lOldColour then
     Pixel(lTempX,lTempY) = lNewColour
    end if
   next
  next
 end sub

 ' Copy a section of the picture from one location to the other
 public sub Copy(ByVal lX1,ByVal lY1,ByVal lX2,ByVal lY2,ByVal lX3,ByVal lY3)
  Dim sCopy
  Dim lTemp1
  Dim lTemp2
  Dim lStartX
  Dim lStartY
  Dim lFinishX
  Dim lFinishY
  Dim lWidth
  Dim lHeight
  
  if lX1 > lX2 then
   lStartX = lX2
   lFinishX = lX1
  else
   lStartX = lX1
   lFinishX = lX2
  end if
  
  if lY1 > lY2 then

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