20. maj 2007 - 10:55Der er
1 kommentar og 1 løsning
Skal bruge session fra andet felt.
Hejsa Eks.
Nedenfor er vist koden som bruges når en bruger logger ind på hjemmesiden. Problemet er nu, at jeg gerne vil have noget session med fra et andet felt i databasen. Så når brugeren er logget ind udfyldes der automatisk nogle oplysnings-felter.
Jeg har prøvet mange ting, ved at flette noget mere kode ind, men jeg kan ikke få det til at virke.
Det jeg skal bruge er fra database-feltet "UserAddOn". Der skal jeg bruge: session("navn") session("adresse") session("bypost")
Her kommer koden: <% If Request.ServerVariables("REQUEST_METHOD") = "POST" THEN fhuskmig = Request.Form("huskmig") if fhuskmig <> "" then Response.Cookies("login")("huskmig") = "yes" else Response.Cookies("login")("huskmig") = "no" end if Response.Cookies("login").Expires = date() + 365 ' Logon Sql = "SELECT user, id, lastlogon, email, aktiv, acode, tekst FROM users WHERE user = '"& CleanText(Request.Form("username")) &"' AND password = '"& CleanText(Request.Form("password")) &"'" Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open Sql, Conn, 1,1
If Rs.RecordCount = 1 THEN if fhuskmig <> "" then Response.Cookies("login")("brugernavn") = Request.Form("username") Response.Cookies("login")("password") = Request.Form("password") Response.Cookies("login").Expires = date() + 365 end if
Sql = "UPDATE users SET lastlogon = #"& NOW &"# WHERE id = " & Rs("id") Conn.Execute(Sql) Rs.Close Response.redirect(Request.ServerVariables("HTTP_REFERER")) End If
Set Rs = Nothing Conn.Close Set Conn = Nothing End If %>
Jeg har nu fået det til næsten at lykkes. Dog giver det fejl hvis brugeren endnu ikke har udfyldt sine kontakt oplysninger. Men skulle: "If NOT rsUser.EOF or rsUser.BOF Then" ikke løse dette?
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" THEN fhuskmig = Request.Form("huskmig") if fhuskmig <> "" then Response.Cookies("login")("huskmig") = "yes" else Response.Cookies("login")("huskmig") = "no" end if Response.Cookies("login").Expires = date() + 365 ' Logon Sql = "SELECT user, id, lastlogon, email, aktiv, acode, tekst FROM users WHERE user = '"& CleanText(Request.Form("username")) &"' AND password = '"& CleanText(Request.Form("password")) &"'" Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open Sql, Conn, 1,1 idUser = rs("id")
strSQL2 = "SELECT id, UserId, navn, adresse, bypost FROM UserAddOn WHERE id LIKE '"&idUser&"'" Set rsUser = objConn.Execute(strSQL2) If NOT rsUser.EOF or rsUser.Bof Then session("navn") = rsUser("navn") session("adresse") = rsUser("adresse") session("bypost") = rsUser("bypost") end if
If Rs.RecordCount = 1 THEN if fhuskmig <> "" then Response.Cookies("login")("brugernavn") = Request.Form("username") Response.Cookies("login")("password") = Request.Form("password") Response.Cookies("login").Expires = date() + 365 end if
Sql = "UPDATE users SET lastlogon = #"& NOW &"# WHERE id = " & Rs("id") Conn.Execute(Sql) Rs.Close Response.redirect(Request.ServerVariables("HTTP_REFERER")) End If
Set Rs = Nothing Conn.Close Set Conn = Nothing End If %>
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" THEN fhuskmig = Request.Form("huskmig") if fhuskmig <> "" then Response.Cookies("login")("huskmig") = "yes" else Response.Cookies("login")("huskmig") = "no" end if Response.Cookies("login").Expires = date() + 365 ' Logon Sql = "SELECT user, id, lastlogon, email, aktiv, acode, tekst FROM users WHERE user = '"& CleanText(Request.Form("username")) &"' AND password = '"& CleanText(Request.Form("password")) &"'" Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open Sql, Conn, 1,1 idUser = rs("id")
strSQL2 = "SELECT id, UserId, navn, adresse, bypost FROM UserAddOn WHERE id LIKE '"&idUser&"'" Set rsUser = objConn.Execute(strSQL2) If rsUser.EOF or rsUser.BOF Then
else session("navn") = rsUser("navn") session("adresse") = rsUser("adresse") session("bypost") = rsUser("bypost") end if
If Rs.RecordCount = 1 THEN if fhuskmig <> "" then Response.Cookies("login")("brugernavn") = Request.Form("username") Response.Cookies("login")("password") = Request.Form("password") Response.Cookies("login").Expires = date() + 365 end if
Sql = "UPDATE users SET lastlogon = #"& NOW &"# WHERE id = " & Rs("id") Conn.Execute(Sql) Rs.Close Response.redirect(Request.ServerVariables("HTTP_REFERER")) End If
Set Rs = Nothing Conn.Close Set Conn = Nothing End If %>
Synes godt om
Ny brugerNybegynder
Din løsning...
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.