Статья: Аутентификация пользователей с помощью ASP

Exit Sub

End If

sResult = 0 'Всенормально

rs.Close

cn.Close

Exit Sub

Er:

sResult = 2 'Непредвиденная ошибка

End Sub

Компилируем проект и получаем Auth.dll.

4. Следующий шаг - это написание asp и htm страниц.

start.htm - страница с формой для ввода имени и пароля

Имя и пароль должны содержать только английские буквы и символы !!!

<form action="check.asp" method="post" >

<table border=0> <tr><td>Имя</td>

<td><INPUT type="text" name="user">

</td></tr>

<tr><td>Пароль</td><td>

<INPUT type="password" name="passwd"> </td></tr><tr><td> </td><td>

<INPUT type="submit" value="Вход">

</td></tr></table>

</form>

<p> [<ahref= "register.htm">Здесьможнозарегистрироваться</a>]

check.asp - страница для проверки имени и пароля (написана на VBScript)

<%

nm = Request.Form("user")

ps = Request.Form("passwd")

Set obj = CreateObject("Auth.Security")'Создаемобъектнашей DLL

obj.InitName = nm