Содержание
- 2. Состав программного комплекса Скрипт для создания серверной части(SQL) Интерфейс пользователя (HTML) Скрипт для отправки сообщений с
- 3. Скрипт для создания серверной части(SQL) CREATE TABLE T_WORDS ( KEY varchar(50) NOT NULL ); INSERT INTO
- 4. T_USERS CREATE TABLE T_USERS ( N_ID_USER int NOT NULL PRIMARY KEY, C_EMAIL varchar(50) NOT NULL, C_TELEFON
- 5. T_SMS CREATE TABLE T_SMS ( N_ID_SMS int NOT NULL PRIMARY KEY, N_ID_USER int NOT NULL FOREIGN
- 6. Создание последовательностей CREATE SEQUENCE SEQ_USERS INCREMENT BY 1 START WITH 1 ; CREATE SEQUENCE SEQ_SMS INCREMENT
- 7. Создание представления CREATE OR REPLACE VIEW BAD_USERS ( EMAIL, TELEFON, COUNT_SMS, COUNT_BAD ) AS SELECT C_EMAIL,
- 8. Функция вставки нового user (или изменения параметров старого) CREATE OR REPLACE FUNCTION INS_USER (EMAIL varchar2,TELEFON varchar2,
- 9. Текст функции --Вычисляем наличие плохих слов в sms SELECT COUNT(*) into count_bad FROM T_WORDS WHERE INSTR(KEY,SMS)>0;
- 10. Ищем этого юзера в базе -- В n_usr будет кол-во юзеров с таким мылом SELECT count(*)
- 11. Вставляем или обновляем информацию о юзере IF n_usr > 0 THEN UPDATE T_USERS SET N_COUNT_ERR =
- 12. Возвращаем номер юзера SELECT N_ID_USER into n_usr FROM T_USERS WHERE C_EMAIL = EMAIL; RETURN n_usr; END;
- 13. Процедура вставки сообщения в базу CREATE OR REPLACE PROCEDURE NEW_SMS(EMAIL varchar2, TELEFON1 varchar2, TELEFON2 varchar2, SMS
- 14. Интерфейс пользователя Отправка SMS-сообщений через почту Введите ваш email: Введите ваш пароль для email: Введите ваш
- 16. Скрипт для отправки сообщений send sms email = Request.Form("email"); pass = Request.Form("pass"); tel1 = Request.Form("telefon1"); tel2
- 17. objCon = Server.CreateObject("ADODB.Connection"); objCon.Open("intranet", "iren", "iren40"); Server.ScriptTimeout = 1800; cSQL = "begin NEW_SMS('"+email+"', '"+tel1+"', '"+tel2+"', '"+sms+"');
- 18. Set SMS = Server.CreateObject("SMS_Gateway.clsSMS_Gateway") x = SMS.Send_SMS(email, pass,tel1, tel2, sms) objCon.Close(); Set SMS = Nothing; %>
- 19. Скрипт выводит в окно браузера список «плохих» юзеров send sms
- 20. Получаем список objCon = Server.CreateObject("ADODB.Connection"); objCon.Open("intranet", "iren", "iren40"); Server.ScriptTimeout = 1800; cSQL = ""; cSQL =
- 21. Выводим список while (!RecSet.EOF) { Response.write('Пользователь:' + RecSet("EMAIL") ); Response.write('['+RecSet("TELEFON")+']'); Response.write(' проколов: '+ RecSet("COUNT_BAD")); Response.write(' сообщений
- 22. Текст предупреждения Рассылка всем предупреждений Текст предупреждения: RecSet.Close(); objCon.Close(); %>
- 24. Скачать презентацию