asp仿漂亮的discuz论坛验证码(MysucCode)

    
‘注：以下代码为该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