asp万能验证码 能有效防止垃圾信息

新建一张空白的gif图片命名bgcode.gif 大小100 * 25 图片跟验证码文件放在同目录底下

直接复制<% … %> 的代码

<%

'**---------------------------------------------------------------------------*/

'** ASP验证码能有效的防止灌水垃圾信息

'** Persits.Jpeg组件大部分的主机都有安装

'** 需要Persits.Jpeg组件bgcode.gif背景图片(空白的图片就行)

'** @版权注释

'** 原创张灿庭如果您有任何疑问和想法可以发邮件(123294587@https://www.360docs.net/doc/4111981912.html,)

'** 本类允许转载、复制和修改，但转载、复制和修改的同时请保留原始的出处和作者声明，这也是对作者劳动成果的一种尊重！

'**---------------------------------------------------------------------------*/

Option Explicit

session.CodePage = "65001"

response.Charset = "utf-8"

Response.Expires = -1

session.Timeout = 5

response.ContentType = "image/bmp"

dim code

set code = new Jpeg_Code_Class '调用类

code.codetype = 0 '0 数字, 1 英文字母2. 混合3 中文成语

code.fontfamily = "黑体" '字体

code.fontweight = false '文字加粗

code.fontstyle = 0.5 '斜体机率

code.fontsize = 16 '字体大小

code.solid = true '图片边框

code.noise = 10 '噪点

code.OutPut = "AuthCode" '输出

set code = nothing

Class Jpeg_Code_Class

private jpeg, width, height, background

public fontfamily, fontsize, fontweight, fontstyle, solid, noise, codetype

'初始化

Private Sub Class_Initialize

Randomize '随机数

width = 80 '高度

height = 20 '宽度

background = "bgcode.gif" '背景图片

codetype = 0 '类型'0 数字, 1 英文字母 2. 混合3 中文成语

fontfamily = "Arial Black" '字体

fontweight = false '加粗

fontsize = 14 '字体大小

fontstyle = 0 '斜体机率

solid = false '边框

noise = 5 '噪点

set jpeg = Server.CreateObject("Persits.Jpeg")

jpeg.RegKey = "48958-77556-02411" '破解

jpeg.open server.MapPath(background)

jpeg.width = width

jpeg.height = height

End Sub

'析构函数

Private Sub Class_Terminate()

jpeg.close : set jpeg = nothing

End Sub

'获取验证码

Public Property Let OutPut (Byval name)

'边框

if solid then

jpeg.canvas.pen.color = &HCCCCCC '灰色边框

jpeg.canvas.Pen.Width = 1 '画笔宽度

jpeg.canvas.brush.solid = False '是否加粗处理

jpeg.canvas.bar 0, 0, width, height

end if

jpeg.canvas.Font.Bold = fontweight '字体加粗

jpeg.canvas.Font.Quality = 5 '文字清晰度

'jpeg.canvas.Font.BkMode = "transparent"' 透明背景

dim i, text, str, sessiontext, x, y

text = outtext '文字

x = int(rnd * 5) '出生点

y = int(rnd * 5) '出生点

'写入文字

select case codetype

'成语

case 3

text = split(text, "|")(int(rnd * ubound(split(text, "|"))))

For i = 1 To 4

y = Int(Rnd * 5)

str = mid(text, i, 1)

jpeg.canvas.font.family = fontfamily '字体

jpeg.canvas.font.color = TextColor '颜色

jpeg.canvas.font.size = FontSize '字体大小

jpeg.canvas.font.italic = TextStyle '斜体

jpeg.canvas.font.shadowcolor =&HFFFFFF '阴影颜色

jpeg.canvas.font.shadowxoffset = 0 '文字阴影X 轴

jpeg.canvas.font.shadowyoffset = 0 '文字阴影Y 轴

jpeg.canvas.print x, y, str '绘制字符

x = x + 20

sessiontext = sessiontext & str

Next

'其他

Case Else

For i = 1 To 4

str = mid(text, int(rnd * len(text) + 1), 1)

jpeg.canvas.font.family = FontFamily '字体

jpeg.canvas.font.color = TextColor '颜色

jpeg.canvas.font.size = FontSize '字体大小

jpeg.canvas.font.italic = TextStyle '斜体

jpeg.canvas.Print x, y, str '绘制字符

x = x + 20

sessiontext = sessiontext & str

Next

End Select

drawnoise = noise '噪点

drawline = 1 '干扰线

'DrawEllipse= 1 '椭圆

'DrawCircle = 1 '圆

session(name) = sessiontext

response.BinaryWrite jpeg.binary

End Property

'验证码文字

Private Property Get OutText

dim text(3)

'数字

text(0) = "0123456789"

'英文

text(1) = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

'混合

text(2) = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

'汉字

text(3) = "新年快乐|万事如意|合家欢乐|身体健康|生日快乐|事事顺利"

select case codetype

case 0, 1, 2, 3

OutText = text(codetype)

case else

OutText = text(0)

end select

End Property

'干扰点

Private Property Let DrawNoise (Byval point)

Dim i, x, y

For i = 1 To point

x = int(rnd * width)

y = int(rnd * height)

jpeg.canvas.brush.solid = false '填充

jpeg.canvas.pen.color = TextColor '颜色

jpeg.canvas.bar x, y, x + 1, y + 2

Next

End Property

'干扰线

Private Property Let DrawLine (Byval line)

dim i

for i = 1 to line

jpeg.canvas.pen.color = textcolor

jpeg.canvas.line int(rnd * width), 0, int(rnd * width), height

next

End Property

'椭圆

Private Property Let DrawEllipse (Byval line)

dim i

for i = 1 to line

jpeg.canvas.pen.color = textcolor

jpeg.canvas.ellipse int(rnd * width), int(rnd * height), int(rnd * width), int(rnd * height)

next

End Property

'圆

Private Property Let DrawCircle (Byval line)

dim i

for i = 1 to line

jpeg.canvas.pen.color = textcolor

jpeg.canvas.circle int(rnd * width), int(rnd * height), int(rnd * width) next

End Property

'文字文字

Private Property Get TextColor

dim Color(17)

Color(0) = &H000000

Color(1) = &HFF0000

Color(2) = &HFF6600

Color(3) = &H0000FF

Color(4) = &H6699FF

Color(5) = &H0000C6

Color(6) = &H0066CC

Color(7) = &H005757

Color(8) = &H019858

Color(9) = &H007500

Color(10)= &H467500

Color(11)= &H5B5B00

Color(12)= &H844200

Color(13)= &HA23400

Color(14)= &H613030

Color(15)= &H336666

Color(16)= &H484891

Color(17)= &H6C3365

TextColor = Color(int(rnd * 18)) End Property

'文字斜体

Private Property Get TextStyle

IF Rnd > fontstyle Then

TextStyle = true

Else

TextStyle = false

End IF

End Property

End Class

%>