Информатика. Лекции. Краткая история компьютерной техники Первые компьютеры: Z3, Colossus, eniac
| Вид материала | Лекции |
- Лекция Развитие компьютерной техники, 430.69kb.
- 1. Что такое информатика?, 205.32kb.
- Положение о проведении Всероссийского игрового конкурса «Кит компьютеры, информатика,, 59.05kb.
- Учебной дисциплины «Компьютерная графика» для направления 010400 «Прикладная математика, 36.03kb.
- Урок подготавливается и проводится учителем информатики совместно с учителем предметником, 138.11kb.
- Врассказе «Краткая история парикмахерского дела», 191.64kb.
- Передача информации между компьютерами существует, наверное, с самого момента возникновения, 65.58kb.
- Характеристика предмета «Радиоприемные устройства», взаимосвязь с другими, 3189.29kb.
- Реферат по информатике История вычислительной техники, 158.06kb.
- Общие принципы построения вычислительных сетей, 1480.56kb.
" strOut = strOut & "That's it!" RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing Response.Write strOut %> Если команда SQL не возвращает данных, тогда Recordset не нужен, и надо пользоваться методом Conn.Execute(SQL_COMMAND). А если необходимо вызывать хранимые процедуры сервера базы данных с параметрами, то нужно воспользоваться объектом Command, который в свою очередь содержит объекты Parameter. Perl — POP3 аутентификация Простой и безопасный метод проверки подлинности пользователя можно построить на основе pop3 аутентификации. С помощью библиотека Net::POP3 и стандартных методов можно попытаться войти в почтовый ящик с указанными именем и паролем. Если вход удается, значит имя и пароль верны, если не удается — не верны. Модуль Net::POP3 предоставляет пользователю объект и 14 методов. Главный метод, который нас интересует, — login($user,$passwd). Он возвращает значение undef в случае неудачной аутентификации, или, в случае удачного входа в почтовый ящик, количество писем в нем, или строку "0E0", если писем нет. Использовать его можно следующим образом: use Net::POP3; &parse_form # Читаем из формы переданные пароль/логин # Создаем объект $pop = Net::POP3->new('popserver') || print "Cannot create connection\n"; # пробуем влогиниться # в $res будет возвращен результат логина $res = $pop->login($form{'login'},$form{'password'}); if ($res == undef) { # неудача print "Incorrect username or password!\n"; } else { # влогинились # делаем, что надо # # следующий код нарисован для того, чтобы хоть что-то # делалось. if ($res eq "0E0") { # писем нет print "You have $res messages in mailbox.\n"; } else { # письма есть print "You have $res messages in mailbox.\n"; } } #закрываем соединение. $pop->quit(); В любом случае данная функция может оказаться полезной, когда понадобится написать клиентское почтовое приложение. ASP — работа с электронной почтой В работе каждого web-программиста наверняка встречалась задача – отправить письмо электронной почты с web-страницы. Можно, конечно, воспользоваться следующей командой: |