이 기사는 ASP를 사용하여 구현 된 검증 코드 기능을 공유하며, 이는 매우 간결하고 실용적입니다.
별도의 페이지 checkcode.asp에 다음 코드를 넣으십시오
- <%
- 옵션 출현
- 응답 .buffer = true
- callcom_creatvalidcode (validatecode)
- subcom_creatvalidcode (PSN)
- '캐싱 없음
- 응답 .expires = -9999
- 응답 .addheaderpragma, no-cache
- Response.AddHeaderCache-Ctrol, No-Cache
- 응답 .contentType = 이미지/bmp
- 무작위 화
- 디미, II, III
- constcodds = 2 '기타 반점이 나타날 확률
- constcamount = 10'number of 텍스트
- constccode = 0123456789
- '색상 데이터 (캐릭터, 배경)
- Dimvcolordata (1)
- vcolordata (0) = chrb (0) & chrb (0) & chrb (211) 'blue 0, green 0, red 0 (검은 색)
- vcolordata (1) = chrb (255) & chrb (255) & chrb (255) 'blue 250, green 236, red 211 (연한 파란색)
- '무작위로 생성 된 문자
- Dimvcode (4), vcodes
- fori = 0to3
- vcode (i) = int (rnd*camount)
- vcodes = vcodes & mid (ccode, vcode (i) +1,1)
- 다음
- 세션 (PSN) = vcodes의 기록에 대한 기록
- '문자 데이터
- DimvnumberData (9)
- vnumberdata (0) =
- 1110000111111111111111111111111101001111110010111101111110111111111111111111110111
- 110000111
- vnumberdata (1) =
- 11110111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111까지까지
- 100000111
- vnumberdata (2) =
- 1110000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 청 청고가 111111111111111111111111111111111음까지 10.
- 1000000011
- vnumberdata (3) =
- 1110000111111111111111111111111111111111111111111111111111111111111111111111111111
- 110000111
- vnumberdata (4) =
- 11111011111111111111111111111111111111111011011111111111100001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111음는지도
- 111000011
- vnumberdata (5) =
- 110000001111111111111111111111111111100111100111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111는지까지하십시오
- 110000111
- vnumberdata (6) =
- 111100011111111111111111111111111111111111100100111001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 청 청고가 11111111111111111111111111111111111 모음
- 110000111
- vnumberdata (7) =
- 1100000011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111까지까지
- 111011111
- vnumberdata (8) =
- 11100001111111111111111111111111111111111100001111111111111111111111111111111101111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 환자 개인 환자 국 환자 국 환자 환자 환자 환자 환자 환자 환자 .신리리
- 110000111
- vnumberdata (9) =
- 11100011111111111111111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 명 청고가 1111111111111111111111111111111음까지
- 110001111
- '출력 이미지 파일 헤더
- response.binarywritechrb (66) & chrb (77) & chrb (230) & chrb (4) & chrb (0) & chrb (0) & chrb (0)
- & chrb (0) & _
- chrb (0) & chrb (0) & chrb (54) & chrb (0) & chrb (0) & chrb (0) & chrb (40) & chrb (0) & _
- chrb (0) & chrb (0) & chrb (40) & chrb (0) & chrb (0) & chrb (0) & chrb (10) & chrb (0) & chrb (0) & _
- chrb (0) & chrb (0) & chrb (1) & chrb (0)
- '출력 이미지 정보 헤더
- response.binarywritechrb (24) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (176)
- & chrb (4) & _
- chrb (0) & chrb (0) & chrb (18) & chrb (11) & chrb (0) & chrb (0) & chrb (18) & chrb (11) & _
- chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & _
- chrb (0) & chrb (0)
- fori = 9to0step-1 '는 모든 줄을 통과했습니다
- forii = 0to3 '는 모든 단어를 통과했습니다
- foriii = 1to10 '은 모든 픽셀을 통과했습니다
- '출력 이미지 데이터 데이터 라인 별, 단어 별 단어, 픽셀 별 픽셀
- ifrnd*99+1 <CoddSthen '은 기타 점을 무작위로 생성합니다
- 응답 .BinaryWriteVcolorData (0)
- 또 다른
- Response.binaryWriteVcolorData (MID (VnumberData (vcode (ii)), i*10+iii, 1))
- endif
- 다음
- 다음
- 다음
- Endsub
- %>
사용해야 할 페이지는 다음과 같은 방식으로 인용됩니다.
검증 코드 : SRC = CheckCode.asp CellPadding = "0"CellPacing = "0"Style = "Border-Collapse : Collapse; Border-Spacing : 0px; 너비 : 780px; Clear : 0px! 중요; 마진 : 0px. ! 경계-왼쪽-층 : 0px! 중요; 라인-오르기 : 0px! 수직-정상 : 기준선 크기 : Consolas, 'Consolas', 'Courier', Minospace : Minherit! ">
위는이 기사의 전체 내용입니다. 나는 당신이 그것을 좋아하기를 바랍니다.