기능: ASP 프로그램을 사용하여 페이지의 전화번호를 이미지 형식으로 생성합니다.
다음은 인용문입니다:
<%
Com_CreatValidCode(Request.QueryString("tel"))을 호출합니다.
공개 하위 Com_CreatValidCode(pTel)
'----------캐싱 비활성화
응답.만료 = 0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "이미지/BMP"
무작위화
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '---------노이즈가 나타날 확률
Const str="0123456789-"
strLen = len(pTel)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'------------색상 데이터(문자, 배경)
희미한 vColorData(1)
'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '----파란색 0, 녹색 0, 빨간색 0(검은색)
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----파란색 250, 녹색 236, 빨간색 211(하늘색)
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- 파란색 0, 녹색 0, 빨간색 0 (검은색)
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '------파란색 250, 녹색 236, 빨간색 211(하늘색)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------파란색 0, 녹색 0, 빨간색 0(검은색)
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------파란색 250, 녹색 236, 빨간색 211(하늘색)
'------ - --------------- 무작위로 문자 생성
무작위화
희미한 vCode()
Redim vCode(strLen-1)
i = 0의 경우 strLen-1로
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
다음
'----------문자 데이터
희미한 vNumberData(11)
'베르다나 글꼴
vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111"
vNumberData(1) = "11111111111101111110011111110111111101111111011111110111111101111110001111111111"
vNumberData(2) = "11111111111000111101110111011101111110111111011111101111110111111100000111111111"
vNumberData(3) = "11111111111000111101110111111101111100111111110111111101110111011110001111111111"
vNumberData(4) = "111111111111101111110011111010111110101111011011111000011111101111111001111111111"
vNumberData(5) = "11111111110000011101111111011111110000111111110111111101110111011110001111111111"
vNumberData(6) = "11111111111000111101101111011111110000111101110111011101110111011110001111111111"
vNumberData(7) = "111111111100000111011011111110111111011111110111111101111111011111110111111111111"
vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111"
vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111"
vNumberData(10) = "11111111111111111111111111111111111111110000011111111111111111111111111111111"
vNumberData(11) = "11111111111111111111111111111111111111111111111111111111111111111111111111111"
'-----------------출력 이미지 파일 헤더<br>
Response.BinaryWrite ChrB(66) & ChrB(77) &chrb(((strLen*8*10*3+54) mod 256)) & chrb(((strLen*8*10*3+54) 256)mod 256 ) & ChrB((((strLen*8*10*3+54) 256)256)mod 256) & ChrB(((((strLen*8*10*3+54) 256)256) 256)모드 256) & 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(strLen*8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)
'------이미지 정보 헤더 출력
응답.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_
ChrB((strLen*8*10*3)mod 256)&ChrB(((strLen*8*10*3)256)mod 256)&ChrB((((strLen*8*10*3)256)256 )mod 256)&ChrB(((((strLen*8*10*3)256)256)256)mod 256)&_
ChrB(196) & ChrB(14) & ChrB(0) & ChrB(0) & ChrB(196) & ChrB(14)&ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)
For i = 9 To 0 Step -1 '------------모든 행을 통과합니다.
For ii = 0 To strLen-1 '------모든 단어를 살펴봅니다.
iii = 1 To 8 '---------모든 픽셀을 통과합니다.
'---------이미지 데이터를 한 줄씩, 단어별로, 픽셀별로 출력합니다.
If Rnd * 99 + 1 < cOdds Then '--------- 무작위로 노이즈 생성
Response.BinaryWrite rndColor
또 다른
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
종료 조건
다음
다음
다음
서브 끝
%>
위 코드를 img.asp로 저장하고 전화번호를 표시하려는 곳에 <img src="img.asp?tel=010-0000000">을 삽입하세요.