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

 public sub Rectangle(ByVal lX1,ByVal lY1,ByVal lX2,ByVal lY2)
  ' Easy as pie, well, actually pie is another function... draw four lines
  Line lX1,lY1,lX2,lY1
  Line lX2,lY1,lX2,lY2
  Line lX2,lY2,lX1,lY2
  Line lX1,lY2,lX1,lY1
 end sub

 public sub Circle(ByVal lX,ByVal lY,ByVal lRadius)
  Ellipse lX,lY,lRadius,lRadius
 end sub

 ' Bresenham ellispe, pretty quick also, uses reflection, so rotation is out of the
 ' question unless we perform a matrix rotation after rendering the ellipse coords
 public sub Ellipse(ByVal lX,ByVal lY,ByVal lRadiusX,ByVal lRadiusY)
  ' Draw a circle at point lX,lY with radius lRadius
  Dim lAlpha,lBeta,S,T,lTempX,lTempY
  
  lAlpha = lRadiusX * lRadiusX
  lBeta = lRadiusY * lRadiusY
  lTempX = 0
  lTempY = lRadiusY

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