Когда вы входите в систему онлайн, вы часто видите код подтверждения, который просит вас ввести, часть из которых представляет собой текст, а часть — изображения. Например, когда вы оставляете сообщение в каталоге выпускников chinaren.com, мы его отправим. см. код проверки цифрового изображения; об Интернете Существует много информации о том, как реализовать коды проверки цифрового текста, и здесь мы представляем, как реализовать коды проверки, которые случайным образом состоят из цифр и букв и генерируют изображения. Это выглядит сложно, но на самом деле очень просто. Следуйте за мной и читайте дальше:
Сначала представим идею дизайна. Случайная комбинация цифр и букв генерирует проверочный код, а затем генерирует изображение проверочного кода. «Комбинация цифр и букв» здесь должна быть выбрана случайным образом, если она особенная; цифровой проверочный код, мы. Этого можно добиться следующим образом:
ycodenum=4 'Количество цифр в коде проверки или число
для i=1 до ycodenum
Randomize 'Инициализировать генератор случайных чисел
ycode=ycode&Int((9*Rnd)) 'rnd — случайное число, любое действительное число от 0 до 1, здесь вы получаете целое число от 0 до 9
следующий
response.write ycode 'выведет цифровой проверочный код (4 цифры)
Однако мы хотим, чтобы числа и буквы генерировались одинаково случайно. Здесь мы можем использовать массив для достижения этого эффекта следующим образом:
ychar="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N ,O,P,Q,R,S,T,U,V,W,X,Y,Z" 'Объединить числа и заглавные буквы в строку
yc=split(char,",") 'Создать строку в массив
ycodenum=4
для i=1 до ycodenum
Рандомизировать
ycode=ycode&yc(Int((35*Rnd))) 'Массивы обычно начинают читать с 0, поэтому здесь 35*Rnd)))
следующий
ответ.записать ycode
Теперь давайте посмотрим, является ли вывод случайной комбинацией цифр и букв?
Давайте посмотрим, как создавать изображения. Некоторые друзья могут знать следующее: ASP не может создавать изображения, и необходимо использовать компоненты ASP. Да, здесь мы используем снимок компонента изображения ASP. Одна вещь, на которую каждый должен обратить внимание: вы не можете использовать сервер, если он не ваш, потому что вы не можете установить этот компонент.
Адрес загрузки компонента: yc=split(char,",") 'Сгенерировать строку в массив
ycodenum=4
для i=1 до ycodenum
Рандомизировать
ycode=ycode&yc(Int((35*Rnd))) 'Массивы обычно начинают читать с 0, поэтому здесь 35*Rnd)))
следующий
Ответ.Очистить
Response.ContentType="изображение/гиф"
set obj=Server.CreateObject("shotgraph.image")
x=55 'Ширина изображения
y=26 'Высота изображения
obj.CreateImage x,y,8 '8 — цвет изображения в 8 битах.
obj.SetColor 0,55126222
obj.SetColor 1 255 255 255
obj.CreatePen "PS_SOLID",1,0
obj.SetBgColor 0
obj.Rectangle 0,0,x-1,y-1
obj.SetBkMode «ПРОЗРАЧНЫЙ»
obj.CreateFont "Arial",136,18,1,False,False,False,False
obj.SetTextColor 1
obj.TextOut 5,4,ycode&" "
img=obj.GifImage(-1,1,"")
Response.BinaryWrite(img)
Приведенный выше код, то есть принцип обычного рисования снимков, см. по адресу: http://www.pconline.com.cn/pcedu/empolder/wz/asp/10204/45207.html.