Рекомендуется: интерпретировать использование функции объекта regexp в ASP Объекты Regexp обеспечивают простую поддержку регулярного выражения. Использование объекта REGEXP: Ниже приведено указанное содержание: функция regexptest (patrn, strng) Dim re
Скрипт проверки входа в систему пользователя, chkpwd.asp
| Ниже приведено цитируемое содержание: <% '======== Скрипт проверки входа пользователя =========================== «Если пройденный объект не был определен, он определяется как false, указывая на то, что он не прошел проверку Если Isempty (Session (Moder)), тогда Сеанс (прошел) = false Конец, если 'Session (пройден) = false, что означает, что информация о проверке, передаваемая из формы, еще не прошла. Если сеанс (прошел) = false then Username = request.form (имя пользователя) Userpwd = request.form (userpwd) Если имя пользователя = тогда Errmsg = tip: введите свое имя пользователя и пароль Еще '============================================================================ == Установить conn = server.createObject (adodb.connection) Conn.connectionString = Driver = {SQL Server}; Server = 192.168.1.3; uid = sa; pwd =; database = zcmrs Conn.open '=========================== Читать данные пользователя из журнала таблицы =================================================== ========== 'Определите объект записи Установить rs = server.createObject (adodb.recordset) 'Установить ConnectionString объекта соединения Установить Rs.ActiveConnection = conn 'Установите тип курсора Rs.cursortype = 3 'Open Record Set Rs.open Выберите имя пользователя, пароль из Erpuser, где username = '& username &' '============================================================================ == Если rs.eof тогда Errmsg = tip: пользователь не существует, или пароль неверен Еще Если userpwd <> rs.fields (пароль) тогда ERRMSG = TIP: вход в систему не удастся! Иначе вход в систему успешно Errmsg = Session (пройден) = true Session (имя пользователя) = Rs.fields (имя пользователя) 'Идентифицировать сеанс разрешений пользователей (userId) = rs.fields (userId) Конец, если Конец, если Конец, если Конец, если 'После сбоя входа в систему будет нарисована форма входа в систему Если не сеанс (прошел) = true, тогда %> <html> <Head> <Title> UNT назвал документ </title> <стиль типа = текст/css> <!- .Style1 {font-size: 12px; font-weight: bold; margin-left: 120px; upline: double} -> </style> <стиль типа = текст/css> <!- .Style2 {font-size: 12px; font-weight: bold; ounline: double; цвет:#ff3333} -> </style> </head> <Body Leatsmargin = 0 topmargin = 0 marginheight = 0 marginwidth = 0 bgcolor =#000000> <div id = родительский стиль = высота: 300; ширина: 450; граница стиль: твердое; Цвет: #ffffff> <div id = denglu style = font-size: 12px; font-weight: жирный; <form action = <%= request.servervariables (path_info)%> method = post name = myform id = myform> <p class = style1> имя пользователя: <input name = username type = text id = username size = 18 maxlength = 20> </p> <p class = style1> пароль: <name = name = userpwd type = password id = userpwd size = 18 maxlength = 20> </p> <p align = center class = style2> <%= errmsg%> </p> <p> <input type = отправить Align = Среднее имя = отправить значение = Войти в систему> <name name = rege type = кнопка align = middle onclick = location = 'register.asp' id = rege value = user user> </p> </form> </div> </body> </html> <% '<p class = style1> код проверки: <input name = fectcode type = text id = checkco |
Поделиться: ASP регулярное выражение Мы можем легко проверить законность различных данных объектом «регулярное выражение». Во -первых, давайте поймем, что именно является объектом «регулярного выражения» VBScript.
2 страницы в общей сложности предыдущей страницы 12 Следующая страница