Функция: Сгенерируйте номер телефона на странице к формату изображения.
Кода -копия выглядит следующим образом:
<%
Callcom_creatvalidcode (request.querystring ("tel")))
Publicsubcom_creatvalidcode (ptel)
'-------------------------------------------------------------------------------------------------------------------------
Response.expires = 0
Ответ.
Ответ.
Response.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)' ----- Синий 0, зеленый 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 (светло-голубой)
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) = instr (1, str, mid (ptel, i+1,1), 1) -1
Следующий
'-------------------------------------------------------------------------------------------------------------------------
DimvnumberData (11)
'Верданафонт
vnumberdata (0) = "111111111111111111111111101111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 есть"