problemer med cookie login
Jeg har fået problemer med min autologin funktion på min side.Det har virket da jeg sad og testede, men måske jeg har fået lavet noget snask.
Hvis man logger ind "manuelt" virker det fint.
Når man vælger autologin gemmer den en cookie og næste gang burde den så logge en ind direkte.
Men jeg får bare en siden kan ikke vises. Selvom jeg sætter den der vis uskadeligt http fejl, så viser den
ingen fejl, blot siden kan ikke vises.
Hvis jeg i login_cookie.asp skifter denne linie Response.Redirect "default.asp?sitepage=blog" ud med
Response.Redirect "Http://www.google.dk", så bliver jeg smidt over på google, så det virker jo, men hvorfor opfører min
default side sig sådan når man er blevet valideret?
Hvis jeg prøver I firefox siger den:
Denne side viderefører ikke forespørgslen korrekt
Firefox har opdaget at serveren henviser forespørgelsen for denne adresse på en måde så den aldrig vil blive færdig.
* Dette problem kan nogle gange skyldes, at cookies er slået fra, eller modtagelse af cookies er blevet nægtet.
default.asp ser i det væsentlige således ud:
<%
sitepage=request.querystring("sitepage")
if sitepage="blog" then
%>
<!--#include file="blogview.asp"-->
<%
elseif sitepage="" or sitepage="forside" then
%>
<!--#include file="login.asp"-->
<%
elseif sitepage="blogview_indlag" then
%>
<!--#include file="blogview_indlag.asp"-->
<%
End If
%>
*************************************************
login.asp ser i det væsentlige således ud:
<%
msg= request.querystring("msg")
strBrugernavn = "" & Request.Cookies("LoginInfo")("Brugernavn")
strKodeord = "" & Request.Cookies("LoginInfo")("kodeord")
If strBrugernavn <> "" And strKodeord <> "" Then
response.redirect "login_cookie.asp"
END IF
%>
<form method="post" action="login_check.asp" name="login">
*************************************************
login_cookie.asp ser i det væsentlige således ud:
<%
Option Explicit
Dim strBrugernavn, strKodeord
strBrugernavn = "" & Request.Cookies("LoginInfo")("Brugernavn")
strKodeord = "" & Request.Cookies("LoginInfo")("kodeord")
Dim Conn, DSN, strSQL, rs
strBrugernavn = Replace(strBrugernavn, "'", "")
strKodeord = Replace(strKodeord, "'", "")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("familiencaroe.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM bruger WHERE brugernavn = '" & strBrugernavn & "' AND kodeord = '" & strKodeord & "'"
Set rs = Conn.Execute(strSQL)
If Not rs.eof Then
Response.Redirect "default.asp?sitepage=blog"
Else
Response.Cookies("LoginInfo")("Brugernavn") = ""
Response.Cookies("LoginInfo")("Kodeord") = ""
Response.Redirect "default.asp?msg=" & Server.URLEncode("Din cookie er defekt eller du har indtastet<br>forkert brugernavn eller kodeord.<br><br>Log ind med brugernavn og kodeord igen<br>og marker husk mig feltet!")
End If
Conn.Close
Set Conn = Nothing
%>