Рекомендуется: как реализовать сжатие RAR и декомпрессия исходного кода в ASP ASP реализует сжатие RAR и декомпрессию исходного кода и может быть сделан только одним файлом. ASP сжимает каталоги или файлы, распаковывает файлы RAR, удаляет определенные файлы и другие функции. Этот исходный код удобен для каждого развития второстепенного и поделиться им. Ниже приведено код winrar.asp:
Функция: Используйте программу ASP для генерации формата изображения для номеров телефонных номеров на странице.
Ниже приведен котированный фрагмент:
Ниже приведено цитируемое содержание:
<%
Вызовать 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) = 111111111111111111111111111111111111111111111111111111111Ж1111111Ж11111Я1111111111111111111111111
VnumberData (2) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberdata (3) = 111111111111111111111111111111111111111111111111111111111h11111Ж111111111н
VnumberData (4) = 1111111111111111111111101111011101111111111111111111111100111111111111111111111111111111111111111111111111
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) MOD 256)) & CHRB (((Strlen*8*10*3 54)/ 256) мод 256) & Chrb ((((strlen*8*10*3 54)/ 256)/ 256) Mod 256) & chrb (0 (0 (0 (0 (0 (0 (0) & chr (0) & chr (0) & chr (0) & chr (0) & chr (0) & chr (0) & chr (0) & chr (0) & chr ((0) & chr (0) & chr (((0 8*10*3 54)/ 256)/ 256)/ хрб (((strlen*8*10*3 54)/ 256)/ 256) и CHRB
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 = 010-000000> в месте, где должен отображаться номер телефона.
Share: ASP реализует операции с добавлением и вычитанием в формате даты оператора SQL Сегодня я столкнулся с проблемой на работе, и мне нужно было запросить по времени, но результаты запроса были отображены неправильно. Например, чтобы узнать участников, зарегистрированных на веб-сайте в период с 2007-10-12 и 2007-10-31, после выбора даты, нажмите «Query & R