Рекомендуется: краткое обсуждение принципа программы приобретения ASP Основные этапы программы сбора следующие: 1.
Скрипт проверки входа в систему пользователя, 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; граница пограничного стиля: твердое;
<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 = checkcode size = 6 maxlength = 4>
'<Img style = щит правой: 40px alt = src = common/getCode.asp> </p>
response.end
Конец, если
%>
Страница для посещения erp.asp
<Ниже приведены цитируемое содержимое:
<!-#Включите файл = CHKPWD.ASP->
<тело>
<div style = 'font-size: 12px; font-weight: bold; граница: 1px solid #001; прокладка: 4px; фон: #ffccff; margin-top: 0;'> Добро пожаловать, чтобы использовать систему запросов ERP, текущий регистрационный пользователь-это:
<%
Если сеанс (прошел) = 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>
Поделиться: ASP и Access Link Эта статья иллюстрирует два способа связывания ASP и доступа в примерах ASP. Ниже приведено указанное содержание: %dd, connstrdd = data.mdbconnstr = & q