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

cn.Close

Exit Sub

Er:

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

End Sub

'Проверка пользователей

Public Sub Check()

On Error GoTo Er

rs.Open "SELECT S_NAME,S_PASSWORD FROM TUSERS WHERE S_NAME='" & sName & "'", cn, 1

'Если нет пользователя с таким именем

If rs.RecordCount = 0 Then

sResult = 1

rs.Close

cn.Close

Exit Sub

End If

Dim tmp As String

tmp = rs.Fields("S_PASSWORD")

Dim uncrypt_obj As ECRYPTLib.Cryptor

Dim uncrypt_pass As String

Set uncrypt_obj = New ECRYPTLib.Cryptor

uncrypt_obj.Key = "Visual+Basic+6 !"

uncrypt_obj.Text = tmp

'Расшифровываем пароль из БД

uncrypt_pass = uncrypt_obj.decoder()

'Еслионинесовпадают

If uncrypt_pass <> sPasswd Then

sResult = 3

rs.Close