Cookie til login

<input type="submit" style="display: none">

http://forums.devshed.com/t120719/sd10475a5f8258149e8fe20de1d0053b9.html

Hej ducks! :o)

Jeg tror du har misforstået det, det drejer sig ikke om at kunne submitte formen uden en submit-knap, men at kunne hakke af i "Husk mine data", og få scriptet til at danne en cookie.

Det var en fejl, du skulle ikke have haft de point

Leverer du dem lige tilbage, ducks?

ducks?

Du har tid til at svare på http://www.eksperten.dk/spm/480656, men ikke at give pointene tilbage. Vi giver den til i morgen tidlig, ok?

Eks login form siden:


<%
If Session("login") = False THEN
huskmig = Request.Cookies("login")("huskmig")
if huskmig = "yes" then
  Username = Request.Cookies("login")("brugernavn")
  Password = Request.Cookies("login")("password")
end if
%>
<form method="post" name="adminlogin" action="loginchk.asp">
Brugernavn: <input size="20" name="username" value="<%=Username%>"><br>
Password: <input size="20" type="password" name="password" value="<%=Password%>"><br>
Husk mig: <input type="checkbox" name="huskmig" <% if huskmig = "yes" then Response.Write " CHECKED "%> >
<br>
<input type="submit" value="Login" name="Action">
</form>


----- koden til loginchk.asp ----

<%
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
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open Application("Provider")

  Sql = "SELECT user, id, lastlogon, email 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
    Session("login") = True
    Session("user") = Rs("User")
    Session("id") = Rs("id")
    Session("lastlogon") = Rs("lastlogon")
    session("email") = Rs("email")
    Sql = "UPDATE users SET lastlogon = #"& Date() &"# WHERE id = " & Rs("id")
    Conn.Execute(Sql)
    Rs.Close
    Response.redirect("welcome.asp")
  End If
  Set Rs = Nothing
  Conn.Close
  Set Conn = Nothing
End If
%>

YO, eagleeye! :o)

Det ser fornemt ud, men jeg er på vej i seng. Jeg kigger på det i morgen, ok?

ducks, lever venligst pointene tilbage, ok?

ok, det helt i orden :)

Det virker perfekt :o)

Svarer du på http://www.eksperten.dk/spm/481139?

ducks, jeg har været helt galt på den, jeg hidsede mig unødigt op, det må du undskylde. Håber du kan godtage min undskyldning.

Jeg kan også se nu, at dit svar er med til at skabe mere plads. Det var så ikke kun lige det, der var spørgsmålet, men det er fint, at du har fået pointene.

Det er iorden, er selv træt af hvis folk kun er ude på at få point. Grunden til at jeg har kommenteret i et andet spørgsmål, uden at sige noget her, er at jeg ikke lige har set i min mail, så havde slet ikke set, at der var kommet andre svar :(

Jeg har skrevet de andre steder også. Det er 10-4, ducks :o)

Nu har det hele løst sig, vil den person der har givet mig karma 0 så ikke lige fjerne det igen?