Помогите написать запрос пожалуйста
есть подклбчение к базе в SQL:
<%
Dim sServer
Dim sLoginID
Dim sPassword
Dim cn
sServer = "xxx.xxx.xxx.xxx"
sLoginID = "xxx"
sPassword = "xxx"
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = "DRIVER=SQL Server" & _
";SERVER=" & sServer & _
";UID=" & sLoginID & _
";PWD=" & sPassword & _
";DATABASE=Web_base"
cn.Open
В базе есть таблица Useri в которой 3 колонки: Id, Name, Pass
есть переменные типа Name и Pass, которые вводятся пользователем
Надо: код на ASP который бы проверял в базе соответствие имени и пароля и если все ОК то заносил в переменную типа Id его Id из базы.
Буду очень благодарен всем, кто поможет.
<%
Dim sServer
Dim sLoginID
Dim sPassword
Dim cn
sServer = "xxx.xxx.xxx.xxx"
sLoginID = "xxx"
sPassword = "xxx"
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = "DRIVER=SQL Server" & _
";SERVER=" & sServer & _
";UID=" & sLoginID & _
";PWD=" & sPassword & _
";DATABASE=Web_base"
cn.Open
В базе есть таблица Useri в которой 3 колонки: Id, Name, Pass
есть переменные типа Name и Pass, которые вводятся пользователем
Надо: код на ASP который бы проверял в базе соответствие имени и пароля и если все ОК то заносил в переменную типа Id его Id из базы.
Буду очень благодарен всем, кто поможет.
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("User_Login"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization="User_Polling"
MM_redirectLoginSuccess="Ok.asp"
MM_redirectLoginFailed="Error.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_Zakaz_STRING
MM_rsUser.Source = "SELECT User_Login, User_Password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Users WHERE User_Login='" & MM_valUsername &"' AND User_Password='" & CStr(Request.Form("User_Password")) & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
Попробуй разобраться в этом коде, здесь даже больше чем тебе надо.
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("User_Login"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization="User_Polling"
MM_redirectLoginSuccess="Ok.asp"
MM_redirectLoginFailed="Error.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_Zakaz_STRING
MM_rsUser.Source = "SELECT User_Login, User_Password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Users WHERE User_Login='" & MM_valUsername &"' AND User_Password='" & CStr(Request.Form("User_Password")) & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
Попробуй разобраться в этом коде, здесь даже больше чем тебе надо.
Спасибо конечно, но разобраться вероятно будет сложно, т.к. с этим делом никогда не сталкивался.
Но конечно попробую, мож чё и получиться...
Но конечно попробую, мож чё и получиться...