Login oplysninger vises.
Jeg har et loginscript som virker. Nu skal det bare udbygges lidt...Jeg vil bare gerne på min menulogin.asp - som brugeren bliver sendt til ved godkendt login - have oplysniger om den pågældende vist.
Noget ala: Hej xxxx. Du var her sidst bla bla.
Og hvordan gør jeg det? Jeg synes jeg er gået lidt sukkerkold...
Men det er vel noget med select * from kunder where id = " & id og så udskrive de pågældende poster. Hvordan smider jeg dette id videre til menulogin?
<!-- #INCLUDE file="db.asp" -->
<%
IF (Session("Authorized") = ("True")) THEN
Response.Redirect "menulogin.asp"
END IF
%>
<%
' Hvis der er blevet trykket på knappen "Login"
If Request.Form("Action") = "Login" Then
' Her forberedes de indtastede værdier til validering
strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
' Hvis der er skrevet noget i både brugernavn og adgangskode
If Len(strUID) > 0 And Len(strPWD) > 0 Then
dim objConn
dim objRS
set objConn = Server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open dbConnString
objRS.ActiveConnection = objConn
' Opbygning af SQL streng
strSQL = "SELECT * FROM user"&_
" WHERE (brugernavn = '" & strUID & "')"&_
" AND (Pass = '" & strPWD & "')"
Set rs = objConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis brugeren fandtes i databasen
intUID = rs("id")
trin = rs("trin")
Session("Authorized") = "True"
Else
' Hvis brugeren ikke fandtes i databasen
strERR = "Du blev ikke godkendt af systemet"
End If
' Rydder op i vores connection objekt
objConn.Close
Set objConn = Nothing
If Len(intUID) Then
' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
Session("UserID") = intUID
If trin = 1 THEN
Response.Redirect "menulogin.asp"
elseif trin = 2 THEN
Response.Redirect "menulogin.asp"
END IF
End If
Else
' Hvis der ikke var angivet brugernavn og adgangskode
strErr = "Du skal skrive både brugernavn og adgangskode"
End If
If Len(strErr) > 0 Then
' Her laves fejlmeddelsen om til rød skrift
strErr = "<font color=red>" & strErr & "</font>"
End If
End If
%>
