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

Set cn = New ADODB.Connection

cn.Open "DSN=reg" 'Установим соединение

Set rs = New ADODB.Recordset

End Sub

Private Sub Class_Terminate()

Set rs = Nothing

Set cn = Nothing

End Sub

'Регистрирует пользователей

Public Sub Register()

On Error GoTo Er

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

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

If rs.RecordCount <> 0 Then

sResult = 1 'Возвращаемрезультат

rs.Close

cn.Close

Exit Sub 'Выход

End If

Dim crypt_obj As ECRYPTLib.Cryptor

Dim crypt_pass As String

Set crypt_obj = New ECRYPTLib.Cryptor

crypt_obj.Key = "Visual+Basic+6 !" 'Ключшифрования

crypt_obj.Text = sPasswd 'Пароль

crypt_pass = crypt_obj.coder() 'Шифруем

'Добавляемновуюзапись

cn.Execute "INSERT INTO TUSERS (S_NAME,S_PASSWORD) VALUES ('" & Replace(sName, "'", "''") & _

"','" & Replace(crypt_pass, "'", "''") & "')"

sResult = 0 'Все прошло успешно