用asp实现无组件生成验证码的办法2种

无组件生成验证码-GIF格式：

代码如下:

<%

Option Explicit ' 显示声明

Class Com_GifCode_Class

'''''''''''''''''''''''''''''''''''''''''''''

' Author: Layen support@ssaw.net 84815733(QQ)

' Thanks: Laomi, Laomiao, NetRube

' 2006-01-02

'''''''''''''''''''''''''''''''''''''''''''''

Public Noisy, Count, Width, Height, Angle, Offset, Border

Private Graph(), Margin(3)

Private Sub Class_Initialize()

Randomize

Noisy = 16 ' 干扰点出现的概率

Count = 4 ' 字符数量

Width = 80 ' 图片宽度

Height = 20 ' 图片高度

Angle = 2 ' 角度随机变化量

Offset = 20 ' 偏移随机变化量

Border = 1 ' 边框大小

End Sub

Public Function Create()

Const cCharSet = "123456789"

Dim i, x, y

Dim vValidCode : vValidCode = ""

Dim vIndex

ReDim Graph(Width-1, Height-1)

For i = 0 To Count - 1

vIndex = Int(Rnd * Len(cCharSet))

vValidCode = vValidCode + Mid(cCharSet, vIndex+1 , 1)

SetDraw vIndex, i

Next

Create = vValidCode

End Function

Sub SetDot(pX, pY)

If pX * (Width-pX-1) >= 0 And pY * (Height-pY-1) >= 0 Then

Graph(pX, pY) = 1

End If

End Sub

Public Sub SetDraw(pIndex, pNumber)

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!