--- title: "OM cookien har gått ut?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/10630-om-cookien-har-gått-ut" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "MM" published: "2001-07-14T16:03:00.000Z" updated: "2001-07-19T09:32:00.000Z" replies: 12 views: 196 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10630-om-cookien-har-gått-ut" --- # OM cookien har gått ut? ## #1 — MM, 2001-07-14T16:03Z Någon som kan tala om för mig hur jag skickar iväg användaren till inloggningssidan OM kakan har gått ut? \<% Response.Buffer = True Response.Cöökies("ID").Expires = DateAdd("h",12,Now) '========================= ' Här vill jag styra iväg användaren ' om han inte varit här på 12 timmar If Request.cöökies("ID") "HAR GÅTT UT" Response.redirect "login.asp" '================================ Else Response.cöökies("ID") = Request.cöökies("id") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DATABAS" strSQL = "select \* from Kunder WHERE ID = " & Request.cöökies("id") & "" Set rs = Conn.Execute(strSQL) End If %\> Permalänk: https://www.webforum.nu/p/10630 ## #2 — MM, 2001-07-14T16:16Z Testade helt sonika med: \<% If Request.cöökies("ID")= Expired Then Response.redirect "login.asp" %\> Fast inte med öö såklart ;) Verkar funka som jag tänkt, MEN är det korrekt? Kan det bli några buggar, eller är det just precis så det ska vara? Permalänk: https://www.webforum.nu/p/277763 ## #3 — emission, 2001-07-15T11:49Z Nej, det funkarf inte. I ditt exempel kollar du om kakan innehåller samma sak om den påhittade variabeln Expired, och det ser ju ut att funka, eftersom båda är tomma. Man kan inte kolla om en kaka är expired, för när den är det så finns den inte längre. if isempty(request.cöökies("ID")) then.. Permalänk: https://www.webforum.nu/p/277764 ## #4 — MM, 2001-07-16T09:22Z hmm. ok jag tror jag fattar principen. den kodraden du skrev \----------- if isempty(request.cöökies("ID")) then.. \------------ kollar alltså om det finns någon kaka överhuvudtaget? Det borde ju vara samma sak som jag är ute efter i så fall. Konstigt bara att det funkar fast man gör helt fel.... för när jag testade mitt påhittade script så redirectades jag ju efter angiven tid... Permalänk: https://www.webforum.nu/p/277765 ## #5 — emission, 2001-07-16T09:30Z Anledningen till att det funkar är att din variabel Expired inte heller finns och då blir villkoret If Request.cöökies("ID")= Expired sant Permalänk: https://www.webforum.nu/p/277766 ## #6 — MM, 2001-07-18T13:12Z koden jag har ser nu ut så här... \------------------- Response.Buffer = True Response.Cokies("ID").Expires = DateAdd("h",1,Now) ' ========================================= ' FIXA denna koll OM cookien är utgången ' if isempty(request.cokies("ID")) then ' ========================================= Response.redirect "login.asp?session=NewLogin" Else Response.cokies("ID") = Request.cokies("id") Set conn = Server.CreateObject("ADODB.Connection") osv... \----------------------- jag får felet: Microsoft VBScript runtime error '800a000d' Type mismatch: 'Cokies' /kundzon.asp, line 12 ( rad 12 är raden: Response.cokies("ID") = Request.cokies("id") \-------------- vad är felet? Det funkade lokalt, men inte ute i "den riktiga världen"... Permalänk: https://www.webforum.nu/p/277767 ## #7 — @nders, 2001-07-18T13:16Z det är inte så att du i den skarpa koden skrivit cookies med ett o? Permalänk: https://www.webforum.nu/p/277768 ## #8 — MM, 2001-07-18T13:18Z nej, men forumet sparkar bakut om jag skriver ut kakor med två o ;) Permalänk: https://www.webforum.nu/p/277769 ## #9 — @nders, 2001-07-18T13:32Z eftersom du ändrat i felmeddelandet också då eller? forumet bråkar bara om du skriver punkt-cookies. har du alltså ändrat i felmeddelandet också? Permalänk: https://www.webforum.nu/p/277770 ## #10 — MM, 2001-07-19T07:21Z ja, det gick av bara farten, jag trodde forumet inte gillade det heller... felmeddelandet är: Type mismatch: 'Cookies' åter till problemet... nån som ser vad som är fel? Permalänk: https://www.webforum.nu/p/277771 ## #11 — @nders, 2001-07-19T07:37Z lägg gärna upp hela koden så kikar jag. Permalänk: https://www.webforum.nu/p/277772 ## #12 — MM, 2001-07-19T07:53Z OK, först koden i filen som tar hand om informationen från inloggningsformuläret: ``` <%@ Language=VBScript %> <% Response.Buffer = True Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" %> <% Dim conn,rs,strsql set conn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") Conn.Open "DSN=MySQL; SERVER=server; DATABASE=namn; UID=id; PWD=pw;" strsql = "Select ID, Password, Username From a1019.kunder where Username = '" & _ Request.Form("txtusername") & "' and Password = '" & _ Request.Form("txtpassword") & "'" set rs = conn.Execute (strsql) If (not rs.BOF) and (not rs.EOF) then Response.Cokies("ID") = rs.Fields("ID") Response.Redirect ("kundzon.asp") else Response.Redirect "login.asp?session=NoAccess" end if rs.close set rs = nothing conn.close set conn = nothing %> ``` och i filen kundzon: ``` <% Response.Buffer = True Response.Cokies("ID").Expires = DateAdd("h",1,Now) ' ========================================= ' FIXA denna koll OM kakan är utgången if isempty(request.cokies("ID")) then ' ========================================= Response.redirect "login.asp?session=NewLogin" Else Response.cokies("ID") = Request.cokies("ID") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "TelgeKraftMySQL" strSQL = "select * from Kunder WHERE ID = " & Request.cokies("id") & "" Set rs = Conn.Execute(strSQL) End If %> <% ' Dim usID ' usID = Request.Cokies("ID") ' strSQL = "select * from a1019.Kunder WHERE ID = '" & usID & "'" ' Set rs = Conn.Execute(strSQL) %> ``` Permalänk: https://www.webforum.nu/p/277773 ## #13 — MM, 2001-07-19T09:32Z hmm... ingen som vet? Permalänk: https://www.webforum.nu/p/277774 --- Tråden på webben: https://www.webforum.nu/amne/asp/10630-om-cookien-har-gått-ut