asp仿漂亮的discuz论坛验证码

以下是引用片段：


' 注：以下代码为该asp Mysuccode验证码的部分，不可独立运行使用
' 函数（drawBackGroud）：打开背景图片
Function
drawBackGroud(srandom,swidth,sheight)
Jpeg.Open
Server.MapPath("background/background"&srandom&".jpg")

Jpeg.Width = swidth
Jpeg.Height = sheight
End
Function

' 函数（drawLines）：绘制随机线
Sub drawLines

jpeg.Canvas.Pen.Color = &HADCD3C
jpeg.Canvas.DrawLine 0, Int(Rnd
* jpeg.Height), jpeg.Width, Int(Rnd * jpeg.Height)
End Sub


' 函数（drawBar）：绘制随机矩形框
Sub drawBar
jpeg.Canvas.Brush.Solid =
False '填充
'矩形边框颜色
jpeg.Canvas.Pen.Color =
&H9CCF00
'绘制矩形框
jpeg.Canvas.Bar Int(Rnd * jpeg.Width),
Int(Rnd * jpeg.Height), Int(Rnd * 50)+20,Int(Rnd * 50)+20
End
Sub
' 函数（drawCircle）：绘制随机圆
Sub
drawCircle
jpeg.Canvas.Brush.Solid = False '填充

jpeg.Canvas.Pen.Color = &H8080FF
jpeg.Canvas.Circle Int(Rnd *
jpeg.Width), Int(Rnd * jpeg.Height), Int(Rnd * 10)+5

jpeg.Canvas.Pen.Color = &HEEEEEE
jpeg.Canvas.Circle Int(Rnd *
jpeg.Width), Int(Rnd * jpeg.Height), Int(Rnd * 10)+10
End Sub
' 函数（addLetter）在验证码图片当前位置打印字符
Sub
addLetter(theLetter)

' 字体的颜色

jpeg.Canvas.Font.Color = textColour
' 字体阴影
jpeg.Canvas.Font.ShadowColor =
&HFFFFFF

'
是否为粗体　此处个人感觉加粗效果更好，故不做随机判断，而是直接设定加粗
'if doTextStyle
then
jpeg.Canvas.Font.Bold = True
'End If


' 是否增加下划线 此处个人感觉很丑，注释掉！
'if doTextStyle then

' jpeg.Canvas.Font.Underlined = True
'End If


' 是否为斜体
if doTextStyle then

jpeg.Canvas.Font.Italic = True
End If


' 字体
jpeg.Canvas.Font.Family = "Arial
Black"'randomFont()

' 字体大小

jpeg.Canvas.Font.Size = randomFontSize()

'
文字清晰度
jpeg.Canvas.Font.Quality = 4

'
背景色　当前使用了背景图，故此处注释掉
'jpeg.Canvas.Font.BkColor = backColour


' 字体背景模式(处理平滑)
jpeg.Canvas.Font.BkMode =
"transparent"

' 绘制字符
jpeg.canvas.print
pixelsAcross, Int(Rnd * 5), theLetter

' 字符宽度

pixelsAcross = pixelsAcross + Int(Rnd * 10)+30

End
Sub