기능 : 페이지의 전화 번호를 이미지 형식으로 생성합니다.
코드 사본은 다음과 같습니다.
<%
callcom_creatvalidcode (request.querystring ( "tel"))
publicsubcom_creatvalidcode (ptel)
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
응답 .expires = 0
Response.addheader "Pragma", "No-Cache"
response.addheader "Cache-Ctrol", "No-Cache"
응답 .contentType = "image/bmp"
무작위 화
Dimi, II, III, RNDCOLOR, Strlen, SQL, Rs
ConstcOdds=5'---------------------------------------------------------------------------------------------------------------------
conststr = "0123456789-"
strlen = len (ptel)
rndcolor = chrb (cint (rnd*255)) & chrb (cint (rnd*255)) & chrb (cint (rnd*255)))
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
Dimvcolordata (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)'------ 블루 0, 녹색 0, 빨간색 0 (검은 색)
'vcolordata (1) = chrb (238) & chrb (210) & chrb (193)'-------- 블루 250, 녹색 236, 레드 211 (연한 파란색)
vColorData(0)=ChrB(0)&ChrB(0)&ChrB(0)'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
vColorData(1)=ChrB(205)&ChrB(237)&ChrB(245)'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
무작위 화
dimvcode ()
redimvcode (strlen-1)
fori = 0ToStrlen-1
vcode (i) = inst (1, str, mid (ptel, i+1,1), 1) -1
다음
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
DimvnumberData (11)
'Verdanafont
VnumberData (0) = "11111111111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111까지 '