12. oktober 2000 - 15:24Der er
2 kommentarer og 1 løsning
Læs fra database!
Jeg vil gerne have udskrevet Umps, Sessionen Username, fra Users fra databasen cusers.mdb! Det skal ske igennem DSNLess! Altså.. Den skal udskrive hvor mange umps brugeren (Sessionen Username) har. Det skal være From Users fra databasen cusers.mdb
Jeg har denne kode: <% \' Hvis der er blevet trykket på knappen \"Login\" If Request.Form(\"Action\") = \"OK\" Then \' Her forberedes de indtastede værdier til validering strUsername = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\")) strPWD = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))
\' Hvis der er skrevet noget i både brugernavn og adgangskode If Len(strUsername) > 0 And Len(strPWD) > 0 Then
\' DSNLess forbindelse til databasen Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../../db/cusers.mdb\")
\' Opbygning af SQL streng strSQL = \"SELECT Username FROM Users\"&_ \" WHERE (Username = \'\" & strUsername & \"\')\"&_ \" AND (Password = \'\" & strPWD & \"\')\"
Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then \' Hvis brugeren fandtes i databasen intUsername = rs(\"Username\") Else \' Hvis brugeren ikke fandtes i databasen strERR = \"Du blev ikke logget ind!\" End If
\' Rydder op i vores connection objekt myConn.Close Set myConn = Nothing
If Len(intUsername) Then \' Hvis variablen intUID indeholder en værdi sættes denne i sessionen \"UserID\" og brugeren bliver sendt videre Session(\"Username\") = intUsername Response.Redirect(\"main.asp\") End If Else \' Hvis der ikke var angivet brugernavn og adgangskode strErr = \"Du skal både skrive brugernavn og kode!\" End If
If Len(strErr) > 0 Then \' Her laves fejlmeddelsen om til rød skrift strErr = \"<p><font color=white>\" & strErr & \"</font></p>\" End If End If %>
Her laver den sessionen Username! Hvordan får jeg den til også oprette sessionen umps, og den skal læses fra databasen kolonne umps.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.