在Z-BLOG可用的新版ASP的GIF验证码[V70404](4)

  For x = 0 To Width - 1
   If Rnd < Noisy / 100 Then
    Response.BinaryWrite ChrB(1-Graph(x, y))
   ElseIf x * (x-Width) = 0 Or y * (y-Height) = 0 Then
    Response.BinaryWrite ChrB(Graph(x, y))
   ElseIf Graph(x-1, y) = 1 Or Graph(x, y) Or Graph(x, y-1) = 1 Then
    Response.BinaryWrite ChrB(1)
   Else
    Response.BinaryWrite ChrB(0)
   End If

   If (y * Width + x + 1) Mod 126 = 0 Then
    Response.BinaryWrite ChrB(128)
    i = i + 1
   End If
   If (y * Width + x + i + 1) Mod 255 = 0 Then
    If (Width*Height - y * Width - x - 1) > 255 Then
     Response.BinaryWrite ChrB(255)
    Else
     Response.BinaryWrite ChrB(Width * Height Mod 255)
    End If
   End If
  Next
 Next
 Response.BinaryWrite ChrB(128) & ChrB(0) & ChrB(129) & ChrB(0) & ChrB(59)
End Sub
End Class
Dim mCode
Dim code
Set mCode = New Com_GifCode_Class
mCode.Create(GetVerifyNumber)
mCode.Output()
Set mCode = Nothing
%>