login med cookie..

Jeg har lavet et forum hvor den på forsiden automatisk logger ind hvis der findes en cookie.. Hvis der ikke findes en cookies laves den automatisk..:

'Tjek om der findes en cookies og log automatisk hvis der gør.
if Session("loginOK") = "jada" then
  if request.cookies("forumData")("brugerID") <> Session("loginMemberID") then
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
  end if
else
  if request.cookies("forumData") <> "" then
    session("loginMemberID") = request.cookies("forumData")("brugerID")
    strSQL = "SELECT * FROM dp_members WHERE memberID = " & session("loginMemberID")
    set rs = Conn.Execute(strSQL)
    if NOT rs.EOF then
      session("loginOK") = "jada"
      session("loginUserType") = rs("usertype")
    else
      session("username") = ""
      session("loginMemberID") = ""
    end if
  end if
end if


På samme siden kan man logge ud der har jeg dette:

mode = Request.QueryString("mode")
if mode = "logud" then
  Session("loginOK") = ""
  response.cookies("forumData") = ""
  session("loginMemberID") = ""
  session("username") = ""
end if


Du kan også bygge en checkbox ind på din login side som af gøre om den automatisk skal gemme en cookie...

Ja, jeg ville jo gerne have et helt script, så hvis du eagleeye lige laver det er der point til dig.

Det er da et helt script, bortset fra checkboxen, som brugeren kan afkrydse..

Du kan lave en login form:

<table border="1">
<form method="post" action="login_chk.asp" name="loginform">
  <tr><td>Brugernavn:</td><td><input name="username"></td></tr>
  <tr><td>Password:</td><td><input type="password" name="password"></td></tr>
  <tr><td colspan="2" align="center"><input type="submit" value="Login" name="Action"></td></tr>
  <tr><td colspan="2" align="center"><input type="checkbox" value="gemmig" name="gemmig">Automatisk login næste gang, tak.</td></tr>
</form>
</table>

Filen login_chk.asp se sådan ud i den stil her:


<%'include database forbindelse til member databasen%>
<!--#include file="dsn.asp"-->
<%
function fixSring(strInput)
  if len(strInput) > 0 then
    outString = replace(outString,"'","''")
    fixSring = outString
  else
    fixSring = strInput
  end if
end function
Set rs = Server.CreateObject("ADODB.RecordSet")
username = fixSring(Request.Form("username"))
password = fixSring(Request.Form("password"))

strSQL= "SELECT * FROM dp_members WHERE (username = '" & username & "' AND userpassword='" & password & "');"
Set rs = Conn.Execute (strSQL)
if not rs.EOF then
  session("loginOK") = "jada"
  session("loginMemberID") = rs("memberID")
  if request.form("gemmig") <> "" then
    'Gem cookie
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
  end if
  Conn.Close
  Response.Redirect("../forum.asp")
end if

session("loginMemberID") = ""
Conn.Close
Response.Redirect("login.asp")
%>

Var det noget du kunne bruge??.. eller så spørg.