asp仿漂亮的discuz论坛验证码
C缘网 :: ≡ ※ 电脑技术版块 ※ :: 网页技术交
第1页/共1页
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
C缘网 :: ≡ ※ 电脑技术版块 ※ :: 网页技术交
第1页/共1页
您在这个论坛的权限:
您不能在这个论坛回复主题
周五 18 四月 2014 - 21:30 由 eyke0519
» 12种有毒水果 你一天吃进多少毒? (转载)
周六 26 十月 2013 - 23:31 由 eyke0519
» 老人坚固牙齿方法 (转载)
周六 26 十月 2013 - 23:29 由 eyke0519
» 只喝水不进食 不可能活51天
周六 26 十月 2013 - 23:26 由 eyke0519
» 每天伸展十分钟15天就瘦下来 (转载)
周六 26 十月 2013 - 23:20 由 eyke0519
» [疾病预防] 警惕身体的异常感觉(转载)
周四 24 十月 2013 - 23:30 由 eyke0519
» [健康饮食] 鸡蛋煮到几分熟最营养美味 (转载)
周四 24 十月 2013 - 23:24 由 eyke0519
» 比香巴佬蛋还要好吃的蛋 (转载)
周四 24 十月 2013 - 23:16 由 eyke0519
» 酒香腐乳蹄 (转载)
周四 24 十月 2013 - 23:15 由 eyke0519