网页中的验证码是如何产生的,我要源代码,那位高手会,请指教。或加我QQ 和我聊:597312943

来源:百度知道 编辑:UC知道 时间:2024/05/30 20:51:32

我这代码比较简单,但需要你空间支持ASPJPEG,还有一张背景图片CODEBG.JPG大小为88*30

<%
Set Jpeg=Server.CreateObject("Persits.Jpeg")
path=server.mappath("codebg.jpg")
jpeg.open path
jpeg.canvas.font.color=&HFFFFFF
jpeg.canvas.font.family="黑体"
jpeg.canvas.font.bold=true
dim code(6)
dim codestr
for i=0 to 5
randomize()
code(i)=int(rnd()*122)+48
do while (code(i)>57 and code(i)<65) or (code(i)>90 and code(i)<97) or code(i)>124 or code(i)<48
code(i)=int(rnd()*122)+48
loop

codestr=codestr&chr(code(i))
next

Jpeg.Canvas.Print 0,0, codestr
jpeg.save Server.MapPath("code.jpg")

%>
<img src="code.jpg" alt="验证码" border="0">

ASP验证码
http://art.todo.net.cn/HTML/article/884.html

ASP 生成彩