[ASP]如何弄个图片验证码 前段时间刚搞懂了一个数字的验证码，但现在这个东东好像又流行用图片的了，哪位朋友有没有这个图片验证码的代码文件，我想借鉴学习一下

搜索下，不少帖子都有讨论

新建个Code.asp，内容为 <% Option Explicit Response.buffer=true NumCode Function NumCode()         Response.Expires = -1         Response.AddHeader "Pragma","no-cache"         Response.AddHeader "cache-ctrol","no-cache"         dim zNum,i,j         dim Ados,Ados1         Randomize timer         zNum = cint(8999*Rnd+1000)         Session("GetCode") = zNum         dim zimg(4),NStr                 NStr=cstr(zNum)                 For i=0 to 3                         zimg(i)=cint(mid(NStr,i+1,1))                 Next         dim Pos         set Ados=Server.CreateObject("Adodb.Stream")                 Ados.Mode=3                 Ados.Type=1                 Ados.Open         set Ados1=Server.CreateObject("Adodb.Stream")                 Ados1.Mode=3                 Ados1.Type=1                 Ados1.Open                 Ados.LoadFromFile(Server.mappath("images/body.Fix"))                 Ados1.write Ados.read(1280)                 for i=0 to 3                         Ados.Position=(9-zimg(i))*320                         Ados1.Position=i*320                         Ados1.write ados.read(320)                 next                        Ados.LoadFromFile(Server.mappath("images/head.fix"))                 Pos=lenb(Ados.read())                 Ados.Position=Pos                 for i=0 to 9 step 1                         for j=0 to 3                                 Ados1.Position=i*32+j*320                                 Ados.Position=Pos+30*j+i*120                                 Ados.write ados1.read(30)                         next                 next                 Response.ContentType = "image/BMP"                 Ados.Position=0                 Response.BinaryWrite Ados.read()                 Ados.Close:set Ados=nothing                 Ados1.Close:set Ados1=nothing End Function %> 再需要输出验证码的地方写 <img src=Code.asp>

[ 关闭窗口 ]