16. december 2004 - 14:34Der er
6 kommentarer og 1 løsning
cookie i asp login script
Hej Nogen der kan hjælpe mig med at lægge en cookie ind i nedenstående script, så det huskes næste gang brugeren kommer, men kun hvis de klikker en check box af?
<% if Request("username") <> "" and Request("password") <> "" then strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../DB/bruger.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN strSQL = "SELECT * FROM user where (username = '" & replace(Request("username"),"'","''") & "') and (password ='" & replace(Request("password"),"'","''") & "')" Set ez = myConn.Execute(strSQL) if not ez.eof then 'Log ind Session("login") = "yes mate" Session("UserID") = ez("ID") Session("Password") = ez("password") session("UserName") = ez("username") EZ.Close myConn.Close Response.Redirect "result.asp" else 'Ikke godkendt Session("login") = "" error = "Du blev ikke godkendt af systemet" end if end if %>
<% if Request.Cookies("login") = "ok" then Response.redirect "result.asp" end if if Request("username") <> "" and Request("password") <> "" then if Request("cookiefest") then Response.Cookies("login") = "ok" Response.Cookies("login").Expires = date() + 100 end if strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../DB/bruger.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN ............
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.