Huske brugernavn & Pass?

hvad har du mulighed for? Jeg kan hjælpe dig med php...

I ASP kunne det være noget lignende:

<%
If Request.Form("fldHusk") = "ok" Then
Response.Cookies("Husk")("Brugernavn") = Request.Form("fldBrugernavn")
Response.Cookies("Husk")("Adgangskode") = Request.Form("fldAdgangskode")
Else
Response.Cookies("Husk")("Brugernavn") = ""
Response.Cookies("Husk")("Adgangskode") = ""
End If
%>

Det er ASP
Jeg kigger lige på det og vender tilbage.

hvor ville det skulle indføres?



'Gem IP adressen på den som forsøger at se admin siden:
if Session("saveip") <> "done" then
  strSQL = "INSERT INTO ipcheck (IPadr, datestamp, typeid) VALUES ("
  strSQL = strSQL & "'" & Request.ServerVariables("REMOTE_ADDR") & "', "
  strSQL = strSQL & "'" & formatDateTime(date,0) & "', "
  strSQL = strSQL & "'admin.asp');"
 
  Session("saveip") = "done"
 
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open tempConn 
  myConn.Execute(strSQL)
  myConn.Close
end if

mode = Request("mode")
if mode = "" then
  mode = "login"
  if Session("adminguest") = "LuGuLoKuJh" then
    mode = "selecttype"
  end if
end if

if (mode <> "login") AND (mode <> "chkpass") then
  if Session("adminguest") <> "LuGuLoKuJh" then
    Response.Redirect(adminFilNavn)   
  end if
end if

if pageitems = "" then pageitems = request.cookies("pageitems")
if pageitems <> "" then
  select case pageitems
  case 0,10,20,30,50
    pageitems = pageitems
  case else
    pageitems = 20
  end select
else
  pageitems = 20
end if
page = request("page")
if page = "" then page = 0


response.expires = 0
Dim Sort
if len(request.form("Sort")) > 0 then
    if request.form("Sort") = "2" then
        sort = 2
    else
        sort = 1
    end if
    response.cookies("Sort") = sort
    response.cookies("Sort").Expires = now + 365
else
    sort = request.cookies("Sort")
    if len(sort) > 0 then
        sort = trim(sort)
    else
        sort = 1
    end if
end if
if sort = "1" then
    Sort1 = "Checked"
else
    Sort2 = "Checked"
end if

%>

Det skal bare stå inden login-boksen, men hvor har du den? Det kræver jo du har en tekstboks til brugernavn og til adgangskode og en checkboks til husk. I tekstboksene skal du også lige lægge indholdet af en evt cookie i value

Ups sorry, her er den tror jeg nok, kunne jeg få dig til at hjælpe med at sætte koderne ind?


<div align="center">

  <table border="0" width="75%" cellspacing="0" cellpadding="3" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">
  <tr>
  <td width="100%">
 
<%
select case mode
case "login"
%>
<table border=1>
<form method="post" action="<%=adminFilNavn%>?mode=chkpass" name="adminlogin">
<!--  <tr><td>User:</td><td><input name="username"></td></tr> -->
  <tr><td>Brugernavn:</td><td><input type="password" 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="Videre" name="Action"></td></tr>
</form>
</table>
<%

case "chkpass"
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open tempConn

  username = fixSring(Request("username"))
  password = fixSring(Request("password"))
  strSQL= "SELECT * FROM members WHERE username = '" & username & "' AND password='" & password & "';"
  Set rs = myConn.Execute (strSQL)

  if not rs.EOF then
    Session("adminguest") = "LuGuLoKuJh"
    myConn.close
    Response.Redirect("" & adminFilNavn & "?mode=selecttype")
  else
    Session("adminguest") = ""
    Session("saveip") = ""
    myConn.close
    Response.Redirect(adminFilNavn)
  end if
 
case "selecttype"
%>

Hvis du skal ha' point for det, bliver du nød til at hjælpe mig med at sætte koderne ind, ellers har jeg ikke mulighed for at teste det du foreslår :)

Jeg lukker denne, og opretter spørgsmålet i den rigtige gruppe "ASP"
-thomas- hvis du vil ha' point så følg med der ind :)

Link kommer når den er oprettet igen: