Login Con Opzione "ricorda Password"

[serpiko]

Carissimi: AiuTAteMi!!!!!!
con questo codice:

<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("username"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="registrazione/login_ok.asp"
  MM_redirectLoginFailed="registrazione/no_login.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_connRegistrazione_STRING
  MM_rsUser.Source = "SELECT username, password"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM utenti WHERE username='" & Replace(MM_valUsername,"'","''") &"' AND password='" & Replace(Request.Form("password"),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
if Session("MM_Username")<> "" Then
response.write "benvenuto  "& Session("MM_Username")&""& vbNewLine & _
"<form method=""POST"" action=""logout2.asp"">"& vbNewLine & _
          "<div align=""center""><font face=""Verdana"" size=""1"" color=""#FF794B""> "& vbNewLine & _
            "<input name=""submit2"" type=""submit"" style=""color: #486C98; background-color: #ffffff; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px;"" value=""Logout"" size=""20"">"& vbNewLine & _
           " </font></div>"& vbNewLine & _
        "</form>"& vbNewLine
else
response.write "<form name=""form1"" id=""form1"" method=""POST"" action="&MM_LoginAction&">"& vbNewLine & _
                "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbNewLine & _
                  "<tr>"& vbNewLine & _
                    "<td height=""28"" colspan=""2""><font size=""1"" face=""verdana"">Username:</font>
"& vbNewLine & _
                     "<input name=""username"" type=""text"" id=""username"" size=""20"" style=""color : #486C98; background : #FFFFFF; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px; font-weight: bold;"" /> "& vbNewLine & _
                    "</td>"& vbNewLine & _
                  "</tr>"& vbNewLine & _
                  "<tr>"& vbNewLine & _
                    "<td height=""28"" colspan=""2""><font size=""1"" face=""verdana"">Password:</font>"& vbNewLine & _
                      "
"& vbNewLine & _
                      "<input name=""password"" type=""password"" id=""password"" size=""20"" style=""color : #486C98; background : #FFFFFF; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px; font-weight: bold;"" />"& vbNewLine & _ 
                    "</td>"& vbNewLine & _
                  "</tr>"& vbNewLine & _
                  "<tr> "& vbNewLine & _
                    "<td width=""110"" height=""28""></td>"& vbNewLine & _
                    "<td width=""240"" height=""28""><input name=""submit2"" type=""submit"" style=""color: #486C98; background-color: #ffffff; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px;"" value=""Entra"" size=""20"">"& vbNewLine & _ 
                    "</td>"& vbNewLine & _
                  "</tr>"& vbNewLine & _
                "</table>"& vbNewLine & _
        "</form>"& vbNewLine & _
	"Non sei registrato?
 Registrati
<hr>"& vbNewLine & _
		"Hai perso la pasword?
 Recupera password"& vbNewLine
end if%>

eseguo un login!
Ora quello che vorrei è di inserire l'opzione "ricorda password" in maniera tale che l'utente una volta loggatosi possa, una volta tornato sul sito, evitare la procedura di login! ho provato in vari modi, ma essendo codice di dreamweaver, non riesco a venirne a capo! qualcuno di voi può darmi una mano!?!?

[serpiko]

Cortesemente poete aiutarmi!!! sono inpanne!!!!

[Mems]

Il campo checkbox per ricordare la password, ad esempio con name="ricorda", passa come value="1"
Lo recuperi e se contiente "1" allora crei un cookies con scadenza ad un mese con i dati da ricrodare.
Quando torni alla login verifichi se il cookies esiste e se c'è lo leggi e recuperi i dati da mettere in automatico dentro la form, oppure, puoi fargli fare login automaticamente senza passare dalla form.

[serpiko]

si infatti è questa la mia intenzione. chiedo infatti una mano nel realizzare le righe di codice!

[Mems]

form.html
[code]
<form method="post" action="login.asp">
username <input type="text" name="username" />
password <input type="password" name="password" />
ricrodati di me <input name="ricorda" type="checbox" value="1" />
<input type="submit" value="invia" />
</form>

login.asp

<%
procedi = false

if request.cookies("login").hasKeys then
username = request.cookies("login")("username")
password = request.cookies("login")("password")
else
username = request.form("username")
password = request.forn("password")
ricorda = request.form("ricorda")
end if

if len(username) > 0 and len(password) > 0 then
username = replace(username,"'","''")
password = replace(password,"'","''")

if len(ricorda) > 0 and isNumeric(ricorda) then

ricorda = cLng(ricorda)
else
ricorda = 0
end if

set conn = server.createObject("ADODB.Connection")
conn.open connString

sql = "SELECT * FROM utenti WHERE [username] = '" & username & "' AND [password] = '" & password & "'"
set rs = conn.execute(sql)

  if not rs.eof then
  session("login") = true
  procedi = true
    if ricorda = 1 then
      response.cookies("login")("username") = username
      response.cookies("login")("password") = password
      response.cookies("login").expires = dateAdd("d",30,date())
    end if
  end if

rs.close
set rs = nothing

conn.close
set conn = nothing

end if

if procedi then
  response.redirect "benvenuto.asp"
else
  response.redirect "loginfailed.asp"
end if
%>

Il senso è questo.

[serpiko]

ti ringrazio, il mio problema però è che essendo codice generato da dreamweaver risulta perr me difficilissimo integrarlo! voglio però conservare il codice dream perché funge a palla!
potresti gentilmente aiutarmi ad integrare il codice che ti o postato io all'inizio del post?!

[Mems]

Purtroppo ho l'allergia a tutti queli MM_
Appena ci provo mi spuntano le bolle ai polpastrelli...

[serpiko]

noooooooooooooooooooooooooooooooooo
dai pregoti non abbandonarmi PLEasE!!!!!!!!!!!!!!!!!

[serpiko]

scusa mems ho cercato di applicare il (vedi sopra) tuo consiglio a questo codice ma non funge!:

<%
If Request.QueryString("step") = "2" THEN
	'Rimuovo l'username e la password da caratteri illegali come per esempio '.
	str_username = Replace(Request.Form("username"), "'", "''")
	str_password = Replace(Request.Form("password"), "'", "''")

	Set rs_login = Server.CreateObject ("ADODB.RecordSet")
	strSQL = "SELECT * FROM tbl_authors WHERE name='" & str_username & "' AND pass='" & str_password & "'"
	rs_login.open strSQL,adoCon

	'Se la combinazione username e password non esiste, reindirizzo l'utente ad un altra pagina
	If rs_login.EOF _
	Or rs_login.BOF Then
		Response.Redirect("login_errato.asp")
	Else
		'Scrivo l'user code nel cookie
		Response.Cookies("Login")("userCode") = rs_login("code")
		'Reindirizzo alla pagina appropriata
		If adminEmail = "info@dominio.com" AND str_password = "admin" Then
			Response.Redirect("setup.asp?setup=firstTime")
		Else
			Response.redirect("visualizza_profilo.asp")
		End If
	End If
End if
%>

[Mems]

Non mi pare che tu abbia colto in pieno.
Manca l'expires al cookies.