验证码
[color=darkgreen][b]1.登陆页加入调用代码:[/b][/color]
验证码 <%response.write"<img src=code.asp>"%>
[color=darkgreen][b]2.code.asp页代码[/b][/color]
<%
Response.buffer=false
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
dim rndnum,i,j
dim Ados,Ados1
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("adminid")=rndnum'把随机产生的数给RNDNUM
dim zimg(4),NStr
NStr=cstr(rndnum)
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.C
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
End Function
'Asp code Created by BlueIdea.COM Web Team V37 2003-7-25
%>
3.在images 下的两个文件
[attach]2139[/attach]
[attach]2140[/attach]
