Скрипт проверки входа в систему пользователя, chkpwd.asp
<%
'======== Скрипт проверки входа в систему пользователя ==========
'Если пройденное объект не определен, он определяет его как ложный, указывая, что он не прошел проверку
Если impty (сессия (прошел)), то тогда
Сеанс (прошел) = false
Конец, если
'Session (пройден) = false, указывая на то, что информация о проверке из формы не была передана, она не прошла проверку
Если сеанс (прошел) = false then
Username = request.form (имя пользователя)
Userpwd = request.form (userpwd)
Если имя пользователя = тогда
Errmsg = rample: введите имя пользователя и пароль
Еще
'================== Connect Database =================================================
Установить conn = server.createObject (adodb.connection)
Conn.connectionString = Driver = {SQL Server};
Conn.open
'================== Читать пользовательские данные ======================================
'Определите объект записи
Установить rs = server.createObject (adodb.oldset)
'Установите соединение объекта соединения
Установить Rs.ActiveConnection = conn
'Установите тип курсора
Rs.cursortype = 3
'Откройте набор записей
Rs.oopen выберите имя пользователя, пароль из Erpuseer, где username = '& username &'
'==================================================================
Если rs.eof тогда
Errmsg = tip: пользователи не существуют или ошибки пароля
Еще
Если userpwd <> rs.fields (пароль) тогда
Errmsg = Tip: Войдите в систему!
Иначе вход в систему успешно
Errmsg =
Сеанс (прошел) = true
Session (имя пользователя) = Rs.fields (имя пользователя)
'Определите сеанс разрешений пользователей (userId) = rs.fields (userId)
Конец, если
Конец, если
Конец, если
Конец, если
'После того, как вход в систему не удастся, нарисована форма входа в систему
Если не сеанс (прошел) = true, тогда
%>
<html>
<Head> <Title> не -title Document </title>
<Стиль типа = текст/css>
<!-
.Style1 {Font-Size: 12px;
->
</style>
<Стиль типа = текст/css>
<!-
.Style2 {Font-Size: 12px;
->
</style>
</head>
<Body Leatsmargin = 0 topmargin = 0 marginheight = 0 marginwidth = 0 bgcolor =#000000>
<Div id = parent ckground- Color: #ffffff>
<div Id = Denglu Style = Font-Size: 12px;
<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 = mide name = spect value = система входа в систему>
<name name = rege type = кнопка align = middle onck = location = 'register.asp' id = rege value = зарегистрированный пользователь>
</p>
</form>
</div>
</body>
</html>
<%
'<p class = style1> код проверки: <input name = fectcode type = text id = checkcode size = 6 maxlength = 4>
'<Img style = щит правой: 40px alt = src = common/getCode.asp> </p>
response.end
Конец, если
%>
Page erp.asp для посещения
<!-#включить файл = chkpwd.asp->
<тело>
<div Style = 'font-size: 12px;
<%
Если сеанс (прошел) = true, тогда
Response.write (сеанс (имя пользователя))
Конец, если
%> <A href = logout.asp> Система выхода </a>
</div>
</body>
Каждый раз, когда вы открываете Erp.asp, вы сначала выполняете chkpwd.asp (), который может эффективно помешать несанкционированным пользователям получить доступ к определенным веб -страницам.
Logout.asp System Exit
<тело>
<%
Сеанс (прошел) = false
Сеанс (имя пользователя) =
Response.redirect (index.asp)
%>
</body>
Используйте изображение, чтобы отправить форму
<Form name = form1 method = post action =>
<td align = right> <input type = method = image = отправить имя = отправить src = image/loginin.gif ширина = 70 высота = 21 alt = отправить> </td>
</form>