网页如何制作验证码

首先要创建三个文件checkcode.aspbody.FixHead.Fix打开checkcode.asp将下面代码复制进去<%Option ExplicitResponse.buffer=trueNumCodeFunction NumCode() Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" On Error Resume Next Dim zNum,i,j Dim Ados,Ados1 Randomize timer zNum = cint(8999*Rnd+1000) Session("CheckCode") = 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("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("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 If Err Then Session("CheckCode") = 9999End Function%>打开body.Fix 保存接下来再用到验证码的地方可以这样写 <img src="checkcode.asp">验证是否正确可以判断 你输入的验证码和 CStr(session("CheckCode"))是否相等即可

每个网站的代码都不一样，当然，本地与服务器也有所不同。而你提供的代码中，有一个是“Ados.Close:set Ados=nothing”，如果你的IE版本是7.0或更高，你可以试着右键本地网页的验证码图片（或服务器的），点击“查看源文件”，把刚才说的代码改成“Ados.Open:set Ados=OK”。若此方法不行，请重装系统，（建议使用Ghost8.3或MaxDosV6重装)也就是把%Systemroot%/System/中的tcpip.sys改成0.0.00版本以上，当然，只有这两个软件才能做到！

---