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

 public sub Polygon(aX,aY,bJoin)
  Dim iTemp
  Dim lUpper

  if UBound(aX) <> UBound(aY) then exit sub
  if UBound(aX) < 1 then exit sub ' Must be more than one point
  
  lUpper = UBound(aX) - 1
  
  ' Draw a series of lines from arrays aX and aY
  for iTemp = 1 to lUpper
   Line aX(iTemp - 1),aY(iTemp - 1),aX(iTemp),aY(iTemp)
  next
  
  if bJoin then
   Line aX(lUpper),aY(lUpper),aX(0),aY(0)
  end if
 end sub

 ' Easy as, err, rectangle?
 public sub PieSlice(lX,lY,lRadius,sinStartAngle,sinArcAngle,bFilled)
  Dim sinActualAngle
  Dim sinMidAngle
  Dim lX2
  Dim lY2
  Dim iTemp
  
  Arc lX,lY,lRadius,lRadius,sinStartAngle,sinArcAngle
  AngleLine lX,lY,lRadius,sinStartAngle
  sinActualAngle = sinStartAngle + sinArcAngle
  if sinActualAngle > 360 then
   sinActualAngle = sinActualAngle - 360
  end if
  AngleLine lX,lY,lRadius,sinActualAngle
  ' Now pick a start flood point at the furthest point from the center
  ' Divide the arc angle by 2
  sinMidAngle = sinStartAngle + (sinArcAngle / 2)
  
  if sinMidAngle > 360 then
   sinMidAngle = sinMidAngle - 360
  end if

  if bFilled then
   for iTemp = 1 to lRadius - 1
    lY2 = CInt(lY + (Sin(DegreesToRadians(sinMidAngle)) * iTemp))
    lX2 = CInt(lX + (Cos(DegreesToRadians(sinMidAngle)) * iTemp))

    Flood lX2,lY2

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