^{<noscript id="wikir"></noscript>}

在Z-BLOG可用的新版ASP的GIF驗證碼[V70404]

2024-05-04 10:58:00

字體：大中小

來源：轉(zhuǎn)載

供稿：網(wǎng)友

復(fù)制下面代碼，存為c_validcode.asp上傳到function下就可以了
復(fù)制代碼代碼如下:

<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog
'// 作 者: 朱煊(zx.asd),sipo
'// 版權(quán)所有: RainbowSoft Studio
'// 技術(shù)支持: rainbowsoft@163.com
'// 單元名稱: c_validcode.asp
'// 開始時間: 2007-4-4
'// 最后修改: 2007-4-4
'// 備 注: www.dc9.cn
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>


<%
'.VerifyCode GetVerifyNumber, False
Class Com_GifCode_Class
Public Noisy, Count, Width, Height, Angle, Offset, Border
Private Graph(), Margin(3)
Private Sub Class_Initialize()
Randomize
Noisy = 7 ' 干擾點出現(xiàn)的概率
Count = 5 ' 字符數(shù)量
Width = 60 ' 圖片寬度
Height = 20 ' 圖片高度
Angle = 3 ' 角度隨機變化量
Offset = 10 ' 偏移隨機變化量
Border = 2 ' 邊框大小
End Sub
Public Function Create(str)
Dim i
Dim vIndex
ReDim Graph(Width-1, Height-1)
For i = 0 To Count - 1
 vIndex=CInt(Mid(str,i+1,1)-1)
 SetDraw vIndex, i
Next
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)
' 字符數(shù)據(jù)字典
If pIndex=-1 Then pIndex=9
Dim DotData(9)
DotData(0) = Array(30, 15, 50, 1, 50, 100)
DotData(1) = Array(1 ,34 ,30 ,1 ,71, 1, 100, 34, 1, 100, 93, 100, 100, 86)
DotData(2) = Array(1, 1, 100, 1, 42, 42, 100, 70, 50, 100, 1, 70)
DotData(3) = Array(100, 73, 6, 73, 75, 6, 75, 100)
DotData(4) = Array(100, 1, 1, 1, 1, 50, 50, 35, 100, 55, 100, 80, 50, 100, 1, 95)
DotData(5) = Array(100, 20, 70, 1, 20, 1, 1, 30, 1, 80, 30, 100, 70, 100, 100, 80, 100, 60, 70, 50, 30, 50, 1, 60)
DotData(6) = Array(6, 26, 6, 6, 100, 6, 53, 100)
DotData(7) = Array(100, 30, 100, 20, 70, 1, 30, 1, 1, 20, 1, 30, 100, 70, 100, 80, 70, 100, 30, 100, 1, 80, 1, 70, 100, 30)
DotData(8) = Array(1, 80, 30, 100, 80, 100, 100, 70, 100, 20, 70, 1, 30, 1, 1, 20, 1, 40, 30, 50, 70, 50, 100, 40)
DotData(9) = Array(100, 20, 70, 1, 20, 1, 1, 30, 1, 80, 30, 100, 70, 100, 100, 80, 100, 60, 90, 20, 80,3)

上一篇：關(guān)于無限分級(ASP+數(shù)據(jù)庫+JS)的實現(xiàn)代碼

下一篇：ASP操作Excel相關(guān)技術(shù)總結(jié)

發(fā)表評論

共有條評論