Реализация сегмента кода входа пользователя ASP

ASP+Код входа пользователя ASP+, из которых

huiyuan.mdb Имя базы данных

Puser213 Название таблицы

Y_USERNAME LIST LIST, поле пароля Y_PASSWORD.

Login.htm Page

<голова>

<metahttp-equiv = content-typecontent = text/html;

<Title> логин </title>

</head>

<тело>

<p> </p>

<Formname = form1method = postaction = loginnew.asp>

<tablewidth=200border=1align=centercellpadding=0cellspacing=0>

<tr>

<tdcolspan=2><divalign=center>登录</div></td>

</tr>

<tr>

<tdwidth=57><divalign=center>用户名</div></td>

<tdwidth=137valign=top><inputname=usernametype=text

id=usernamesize=25></td>

</tr>

<tr>

<td><divalign=center>密码</div></td>

<tdvalign=top><inputname=passwordtype=password

id=passwordsize=25></td>

</tr>

<tr>

<tdcolspan=2><divalign=center>

<inputType = OpportName = OpportValue = отправить>

</div> </td>

</tr>

</table>

</form>

</body>

</html>

LoginNew.asp Веб -страница

<%

Dimusername, пароль

username = request.form (имя пользователя)

пароль = request.form (пароль)

setrs = server.createObject (adodb.oldset)

conn = dbq =+server.mappath (huiyuan.mdb)+;

Driver = {microsoftaccessdriver (*. MDB)};

Sql = select*frombuser213whery_username = '& username &'

Rs.opensql, Conn, 1,1

ifrs.eofthen

response.write <script> alert ('log in login fail "; listory.back (); </script>

response.end

еще

IFRS (y_password) <> пароль.

response.write <script> alert ('log in login fail "; listory.back (); </script>

response.end

эндиф

сеанс (администратор) = имя пользователя

response.write <script> alert ('Login Success');

эндиф

%>