当前位置 - 무료 법률 상담 플랫폼 - 법률 문의 - ASP 인증코드는 어떻게 작성하나요?

ASP 인증코드는 어떻게 작성하나요?

문자 제한으로 인해 코드를 붙여넣기가 어렵습니다. 이메일 주소를 알려주시면 이메일을 보내드리겠습니다.

다음은 완전한 검증입니다.

그러면 이 그림을 다른 페이지에서 호출할 수 있습니다.

호출 프로그램은 다음과 같습니다.

p>

?인증 코드:

인증코드 생성 프로그램은 붙여넣기가 불가능합니다.

다음 주소에 verifycode.asp로 프로그램을 저장하시면 됩니다

< %

옵션 명시적

Response.buffer=true

NumCode

함수 NumCode()

응답 만료 = -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

함수 종료

%>