ASP 프로그램을 사용하여 페이지에서 전화 번호에 대한 이미지 형식을 생성하십시오.

저자：Eve Cole 업데이트 시간：2025-06-06 12:48:02

권장 : ASP에서 RAR 압축 및 소스 코드 감압을 구현하는 방법
ASP는 소스 코드의 RAR 압축 및 압축 압축을 구현하며 하나의 파일만으로 수행 할 수 있습니다. ASP는 디렉토리 또는 파일을 압축하고 RAR 파일을 압축 해제하고 특정 파일 및 기타 기능을 삭제합니다. 이 소스 코드는 모든 사람이 보조를 개발하고 공유하기에 편리합니다. 다음은 winrar.asp 코드입니다.

기능 : ASP 프로그램을 사용하여 페이지에서 전화 번호에 대한 이미지 형식을 생성하십시오.

다음은 인용 된 스 니펫입니다.

다음은 인용 된 내용입니다.

COM_CREATVALIDCODE를 호출합니다 (request.queryString (tel))

public sub com_creatvalidcode (ptel)

응답 .expires = 0

응답. ADDHEADER PRAGMA, NO 캐시

응답. ADDHEADER CACHE-CTROL, NO-CACHE

응답 .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))

Dim Vcolordata (1)

'vcolordata (0) = chrb (0) & chrb (0) & chrb (0)'----- blue 0, green 0, 빨간색 0 (검은 색)

'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'vcolordata (0) = chrb (197) & chrb (106) & chrb (49)'--- Blue 0, Green 0, Red 0 (검정)

'vcolordata (1) = chrb (238) & chrb (210) & chrb (193)'------- Blue 250, Green 236, Red 211 (Light Blue)

vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

무작위 화

dim vcode ()

Redim vcode (strlen-1)

i = 0에서 strlen-1

vcode (i) = inst (1, str, mid (ptel, i 1,1), 1) -1

Dim vnumberdata (11)

'베르 다나 글꼴

vnumberData (0) = 111111111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111는지까지

vnumberData (1) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111음까지

vnumberData (2) = 11111111111001001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111음까지는 vnumberdata입니다

vnumberData (3) = 11111111110001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111오까지

vnumberData (4) = 1111111111111101111111111111111111111111111111111111111001111111111111111111111111111111111111111111111111111111111111111까지까지

vnumberData (5) = 1111111000001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111음까지

vnumberData (6) = 111111111110001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111음까지

vnumberData (7) = 1111111110000000011101111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111음 모음

vnumberData (8) = 111111111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111까지까지

vNumberData(9) = 1111111111100011111011110111101111011110111101111000111111111111111

vnumberData (10) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111음 모음

vnumberData (11) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111는지까지

BinaryWrite chrb (66) 및 chrb (77) & chrb (((((()*8*10*3 54) mod 256)) & chrb (((Strlen*8*10*3 54)/ 256) mod 256) & chrb (((((((()))) & chrb (0) & chb (0) & 0) 및 chb (0) 및 chb (0) 및 chb (0) & chb (0) & chb (0) & chb (0)) & chb (0) & chb (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)

response.binarywrite chrb (24) & chrb (0) & 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) Mod 256) Mod 256) & chrb ((((((((), Strlen*8*10*3)/256))/256) Mod 256) Mod) 및 _.

chrb (196) & chrb (14) & chrb (0) & chrb (0) & chrb (196) & chrb (14) & chrb (0) & chb (0) & _

chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0)

i = 9 ~ 0 단계 -1 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

모든 단어 후에 ii = 0에서 strlen-1 '--------

For iii = 1 To 8 '-------------------------------------------------------------------------------------------------------------------

'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

rnd * 99 1 <codds라면 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

응답 .BinaryWrite rndColor

또 다른

Response.BinaryWrite vcolordata (mid (vnumberdata (vcode (ii)), i * 8 iii, 1))

끝 If

종료 서브

위의 코드를 img.asp로 저장하고 전화 번호를 표시 할 위치에 <img src = img.asp? tel = 010-000000> 삽입하십시오.

공유 : ASP는 SQL 명령문 날짜 형식의 추가 및 뺄셈 작업을 구현합니다.
오늘 직장에서 문제가 발생했으며 시간이 지남에 따라 쿼리해야했지만 쿼리 결과가 잘못 표시되었습니다. 예를 들어, 2007-10-12와 2007-10-31 사이에 웹 사이트에 등록 된 회원을 찾으려면 날짜를 선택한 후 "Query & R"을 클릭하십시오.