ASP 인증코드는 어떻게 작성하나요?
문자 제한으로 인해 코드를 붙여넣기가 어렵습니다. 이메일 주소를 알려주시면 이메일을 보내드리겠습니다.
다음은 완전한 검증입니다.
그러면 이 그림을 다른 페이지에서 호출할 수 있습니다.
호출 프로그램은 다음과 같습니다.
p>
인증코드 생성 프로그램은 붙여넣기가 불가능합니다.
다음 주소에 verifycode.asp로 프로그램을 저장하시면 됩니다
< %
옵션 명시적
Response.buffer=true
NumCode
함수 NumCode() p>
응답 만료 = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache "
희미한 zNum,i,j
희미한 Ados,Ados1
타이머 무작위화
zNum = cint(8999*Rnd+1000 )
Session("verifycode") = zNum
희미한 zimg(4),NStr
NStr=cstr(zNum)
i=0 ~ 3
zimg(i)=cint(mid(NStr,i+1,1))
다음
희미한 위치
p>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("comm/body.Fix"))
Ados1.write Ados.read(1280)
i=0~3의 경우
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read (320)
다음
Ados.LoadFromFile(Server.mappath("comm/head.fix"))
Pos =lenb(Ados.read( ))
Ados.Position=Pos
i=0~9의 경우 1단계
j=0~3의 경우
<p> Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
다음
다음
Response.ContentType = "image/BMP"
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
함수 종료
%>