Рекомендуется: разделение кода и страницы в ASP Чтобы избежать трудностей с техническим обслуживанием, вызванных смешиванием программ ASP и HTML -кода, в этой статье представлен метод использования шаблонов для разделения программ и страниц для облегчения программирования. При использовании ASP для создания сайта часто существует ситуация, когда программный код и HTML -код смешиваются в файле ASP. Есть много недостатков, чтобы сделать это: 1. Не говоря уже о программировании, вам нужно
Функция: Сгенерируйте номер телефона на странице к формату изображения.
<%
Вызовать com_creatvalidcode (request.querystring (tel))
Public sub com_creatvalidcode (ptel)
'-------------------------------------------------------------------------------------------------------------------------
Response.expires = 0
Ответ
Response.addheader cache-ctrol, без кэша
Response.contenttype = image/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)' ----- Синий 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) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------
Рандомизировать
Dim VCode ()
Redim Vcode (Strlen-1)
Для i = 0 для strlen-1
vcode (i) = instr (1, str, mid (ptel, i+1,1), 1) -1
Следующий
'-------------------------------------------------------------------------------------------------------------------------
Dim vnumberdata (11)
'Verdana Font
vnumberdata (0) = 11111111111111111111101110111011110111011111111111111111111111111111111111111111111111111111111111
vnumberdata (1) = 1111111111111111111111111111111111111111111111111111Я1111111111111111111111111111
VnumberData (2) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberdata (3) = 111111111111111111111111111111111111111111111111111111111h11111Ж111111111н
vnumberdata (4) = 111111111111111111111110111101110111011111111111111001111111111111
VnumberData (5) = 111111111111111111111111110011111111111111111111111h11111Ж11111Ж111111
vnumberdata (6) = 11111111111111111111111100011111111111111111111111111111111111 :1111111
VnumberData (7) = 11111111110000011101111111111111111111111111111111111111111111111111111
vnumberdata (8) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberdata (9) = 111111111111111111111011111111011111111111111111111111111111111
vnumberdata (10) = 111111111111111111111111111111111 :111111111111111111111111111111
VnumberData (11) = 111111111111111111111111111111111Ж1111111Ж1111111Ж11111Ж11111Ж11111Ж
'-------------------------------------------------------------------------------------------------------------------------
Response.binaryWrite Chrb (66) и Chrb (77) и Chrb (((Strlen*8*10*3+54) мод 256)) & Chrb (((Strlen*8*10*3+54)/ 256) Mod 256) & CHRB ((((strlen*8*10*3+54)/ 256)/ 256) Mod 256) и Chr (0. 0) и Chrb (0 (0 (0 8*10*3+54)/ 256) и 256) и хрб (((strlen*8*10*3+54)/ 256) и chr (((strlen*8*10*3+54)/ 256) и CHR & _
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 (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 (0) & _
Chrb ((strlen*8*10*3) mod 256) & chrb (((strlen*8*10*3)/256) Mod 256) & Chrb (((strlen*8*10*3)/256)/256) мод 256) & chrb ((((strlen*8*10*3)/256)/256) & r.
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) и CHRB (0) и CHRB (0)
Для i = от 9 до 0 шаг -1 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Для ii = 0 для strlen-1 '--------- после всех слов
For iii = 1 To 8 '-------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Если rnd * 99 + 1 <кодд, тогда '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Response.binarywrite rndcolor
Еще
Response.binarywrite vcolordata (mid (vnumberdata (vcode (ii)), i * 8 + iii, 1))
Конец, если
Следующий
Следующий
Следующий
Конец суб
%>
Сохраните приведенный выше код как img.asp и вставьте <img src = img.asp? Tel = 0591-26728373> в месте, где должен отображаться номер телефона.
Источник: muziwu Автор: dnawo
Поделиться: Учебник ASP: Советы для ASP, чтобы генерировать псевдопараметры Два дня назад я работал над версией поисковой системы Enterprise и обнаружил, что некоторые сайты могут ссылаться на содержание сайта. Полем Я странно это посмотрел на это и обнаружил, что он был связан в соответствии с правилами автоматической нумерации идентификатора базы данных ~~ Я сделал следующее в свободное время, надеясь, что это будет полезно для всех в будущем, написав программы ASP! % '' // генерировать случайное количество указанных цифр '// Вы также можете использовать GUID