Рекомендуется: несколько способов вызвать хранимые процедуры с параметрами Несколько способов, которыми ASP вызывает сохраненные процедуры с параметрами1.
Есть два способа реализации этой функции:
1. Приложение
Используйте объект приложения: если вы занимаетесь крупным сообществом, вам может потребоваться генерировать приложение для каждого идентификатора входа в систему. Хотя дизайн программы будет проще, пользователь входа в систему слишком много и потребляет ресурсы сервера. Здесь никогда не рекомендуется, потому что объект приложения легко генерировать при входе в систему, но для достижения осознания того, что пользователь выходит из системы и еще не видел лучшего метода ~
Ниже приведено цитируемое содержание: <% ..... Получите имя пользователя имени пользователя .... Если приложение (имя пользователя) <> then response.write Этот пользователь уже вошел в систему response.end конец, если Application (username) = username '' 'Хартировал имя пользователя пользователя %> |
Добавить событие Session Oneend в глобальный файл, приложение (isuserlogin) = false, когда офлайн
Кроме того, нам нужно определить, подвешен ли проволока. Есть особый метод, который является элементом в объекте сервера
(См.: Http://community.csdn.net/expert/faq/faq_index.asp?id=815)
2. База данных ASP
Это может быть сложнее сделать, но он подходит для систем с большим количеством зарегистрированных пользователей.
Во -первых, создайте базу данных для пользователя - используйте доступ для создания нового onlol8.mdb
Данные Таблица 1: Пользователи хранят информацию о регистрации пользователей
Установите таблицу данных ниже: UID (Auto Numbering) Имя пользователя (Тип символа) userPass (Тип символа)
Данные Таблица 2: Только лагин хранит информацию о временном входе в систему пользователя
Установлена следующая таблица данных: olname (тип символа) Oltime (тип даты) OLIP (Тип символов)
После того, как база данных будет создана, добавьте данные вручную в таблицу пользователей пользователей и добавьте TOL8, добавьте 111 в таблицу пользователя.
Давайте сделаем интерфейс входа в систему пользователя ниже и скопируем следующий код, чтобы сохранить его в файл onlogin.asp.
Ниже приведено цитируемое содержание: <html> <голова> <meta http-equiv = content-type content = text/html; charset = gb2312> <Title> запрещайте входить в разные регионы одной и той же учетной записи одновременно </title> </head> <тело> <form name = form1 method = post action = loginpost.asp> Имя пользователя: <Имя ввода = Имя пользователя Тип = Текст ID = Размер имени пользователя = 15 maxlength = 5> Пароль: <Имя ввода = userpass type = password id = userpass size = 15 maxlength = 15> <input type = отправить имя = отправить значение = вход </form> </body> </html> |
После завершения создайте новый файл loginconnon.asp и скопируйте следующий код для сохранения для подключения к базе данных.
Ниже приведено цитируемое содержание: <% Dim conn_tol8 Dim conn_t Dim Mmdd mmdd = onloL8.mdb Установить conn_tol8 = server.createObject (adodb.connection) Conn_t = provider = microsoft.jet.oledb.4.0; при ошибке резюме следующим Conn_tol8.open conn_t %> |
Ниже приведен файл loginpost.asp, который также существует в этом каталоге. Это ключ. Внимательно посмотрите на следующий код:
Ниже приведено цитируемое содержание: <!-#Включите file = loginconn.asp-> <% '' Удалить пользователя, который активен в Maxtime Time, Maxtime был определен в файле loginconn.asp Conn_tol8.execute (Delete From OnlyLogin, где Datediff ('' s '', oltime, теперь ())> & maxtime &) '' ======================================================================================== Dim RS, TS, TXT, SQL, Имя пользователя, пользовательский переход Если request.form (отправить) = вход в систему username = request.form (username) '' Получите имя пользователя userpass = request.form (userpass) '' Получить пароль для входа пользователя формы '' Поскольку мы не обсуждаем проблемы безопасности здесь, пароль пользователя не зашифрован Установить rs = server.createObject (adodb.recordset) sql = select * из пользователей, где username = '' & username & '' and userpass = '' & userpass & '' ' Rs.open SQL, conn_tol8,1,1 Если не rs.eof, то Call Isok (username) '' Имя пользователя и пароль правильно вызываются для процесса, а Isok будет настроен в следующей программе. еще Response.write (<a href = javascript: vistory.go (-1)> Неизвестное имя пользователя или пароль </a>) Response.end () конец, если Rs.close Установить RS = ничего конец, если Subsok (имя пользователя) Dim olip '' IP, сохраненный с помощью текущего имени пользователя входа в систему в базе данных Dim Oltime '' В последний раз, когда веб -страница обновляется сохранена текущим именем пользователя входа в базу данных, является важным данных для вычисления того, является ли пользователь в Интернете. Dim OLIP1 '' Запишите текущий вход пользователей в IP, который используется для различения того, является ли это той же меткой пользователя. OLip1 = request.servervariables (remote_addr) '' Получите IP -адрес пользователя, который представил информацию о входе в систему Установите ts = conn_tol8.execute (select * from onlogin, где olname = '' & username & '') Если не ts. eof, то «Запросите базу данных, независимо от того, зарегистрировал ли этот пользователь информацию Oltime = ts (oltime) Olip = ts (olip) Если Olip1 <> olip и datediff (s, oltime, теперь ()) <maxtime then '' Предыдущее предложение определяет, что если в базе данных и IP- «Последнее время активности пользователя и текущий интервал времени не превышают указанное количество секунд. Убедитесь, что пользователь в настоящее время онлайн. Response.write <a href = javascript: vistory.go (-1)> Этот пользователь в настоящее время находится в Интернете, вы не можете войти в эту учетную запись из других мест! </a> Response.end () еще В противном случае будет установлено, что логин будет успешным, и значение будет выплачено на сессию Session (lgname) = имя пользователя SESSION (LGPASS) = userPass Response.redirect loginok.asp Response.end конец, если еще «Если в базе данных нет записи пользователя входа в систему, выполните следующее оператор Dim ls Установить ls = server.createObject (adodb.recordset) ls.openselect * от onlogin, conn_tol8,2,2 ls.addnew ls (olname) = имя пользователя LS (OLIP) = OLIP1 ls (oltime) = теперь () ls.update ls.close Установить LS = ничего 'Решение о том, что вход в систему успешно и выплачивается сеансу Session (lgname) = имя пользователя SESSION (LGPASS) = userPass Response.redirect loginok.asp Response.end конец, если Конец под %> |
После успешного входа листья прыгнут на Loginok.asp
Ниже приведено цитируемое содержание: <стиль типа = текст/css> <!- Body {foangy-color: #ff9900;} -> </style> < %, Если сеанс (lgname) <> Тогда %> Вы успешно вошли! ! ! Ниже приведен iframe, который проникает на веб -страницу, чтобы обновить веб -страницу в указанное время, чтобы сообщить на сервер, независимо от того, находитесь ли вы в Интернете или нет. Чтобы облегчить различие, мы используем белый в качестве цвета фона веб -страницы кадра. <iframe border = 0 name = new_date marginwidth = 0 Framespacing = 0 marginheight = 0 src = loginframe.asp Frameborder = 0 noresize width = 100 scrolling = no height = 30 vspale = 0> </iframe> < % else %> |
Вы не вошли в систему
Ниже приведено цитируемое содержание: < % end, если %> |
Что делать дальше, это loginframe.asp
Ниже приведено цитируемое содержание: <!-#Включите file = loginconn.asp-> < % Conn_tol8.execute (обновление onlogin set oltime = '' & own () & '', где olname = '' & session (lgname) & '') %> <html> <Head> <meta http-equiv = colresh content = <%= (maxtime-5)%>; url => </head> </html> |
До сих пор программа завершена, и ключом к этой программе является определение того, является ли пользователь в Интернете.
Share: реализация ввода данных ASP -партийных данных Входной записи широко используется в базах данных, и существует много методов для пакетной записи. Далее я расскажу о том, как я достиг этого на основе моего фактического приложения. Основным использованием является концепция сбора форм, которая берет все данные в сборе через цикл. Учитывая, что для всех удобно, я интегрировал его в одну страницу. Ниже приведен конкретный код