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

obj.Check

res = obj.Result

If CInt(res) = 0 Then

Session("user") = "OK" 'Установим сессионную переменную

'Перенаправим зарегистрир. пользователя на секретную страницу...

Response.Redirect "secret.asp"

End If

If CInt(res) = 2

Then Response.Write "<h3>Ошибкабазыданных!</h3>"

Response.End

End If

If CInt(res) = 1

Then Response.Write "<h3>Вы не зарегистрированы!</h3>"

Response.End

End If

If CInt(res) = 3

Then Response.Write "<h3>Парольневерен!</h3>"

Response.End

End If

%>

security.asp - страница, проверяющая сессионную переменную

<%

If Session("user") <> "OK" Then

'Если сессионная переменная неверна

Response.Write "Не зарегистрированный пользователь !"

'Завершаемсценарий

Response.End

End If

%>