[ASP]come creare un login e registrazione utenti

gelova

objMail.From = "[email protected]" ' Mittente
objMail.To = "qui ci metti la mail del destinatario" ' Destinatario

Infatti non ho ben capito questi passaggi.....se "[email protected]" si iscrive
il proprietario del sito ad esempio "[email protected]" dovrebbe ricevere un'email da "[email protected]".....come faccio ad inserire l'email del mittente se non so chi si iscrive ? :bho:

legolas

Dunque mi sono per un attimo, la mail la deve ricevere l'utente ho il proprietario del sito?

gelova

Il proprietario del sito deve ricevere nella sua casella di posta l'avvenuta registrazione dell'utente (naturalmente se è possibile con tutti i dati che l'utente ha inserito nel form)

legolas

Il proprietario del sito deve ricevere nella sua casella di posta l'avvenuta registrazione dell'utente (naturalmente se è possibile con tutti i dati che l'utente ha inserito nel form)
Allora è ancora più semplice;


objMail.From = "[email protected]" ' Ci puoi scrivere anche la mail del destinatario
 objMail.To = "[email protected]" 'Mail del destinatario

Quindi ipotiziamo che il destinatario si [EMAIL="[email protected]"][email protected][/EMAIL]


objMail.From = "[email protected]"
objMail.To = "[email protected]"

Per i dati inseriti nel forum direi che puoi aggiustare ciò che ti avevo postato prima

Ciao

gelova

@Legolas said:

objMail.From = "[email protected]" ' Ci puoi scrivere anche la mail del destinatario
objMail.To = "[email protected]" 'Mail del destinatario
Quindi ipotiziamo che il destinatario si [EMAIL="[email protected]"][email protected][/EMAIL]
objMail.From = "[email protected]"
objMail.To = "[email protected]"
Per i dati inseriti nel forum direi che puoi aggiustare ciò che ti avevo postato prima
Ciao
Non ho capito un tubo !!!!
Come fa ad esempio "tizio" (proprietario del sito e quindi colui che riceve l'email dopo che un utente si è iscritto) a inserire in
"objMail.To = [email][email protected][/email]" se non sà chi si iscrive ?
Ripongo la questione:
Esiste una pag. web di proprietà di "tizio", ma per visionarla occorre registrarsi (e sino a qui ci siamo) .
"Caio" vuole visionare la pag. di "tizio" e decide di iscriversi quindi metterà i dati User,Password ecc... , quando l'accesso è avvenuto
(e quindi la registrazione è andata a buon fine)
Tizio riceverà nella sua casella email l'avvenuta registrazione di Caio, ma solo allora Tizio può sapere l'email di Caio, perchè Caio l'avrà inserita nel form !
Spero di essere stato chiaro !!!!

legolas

ah, te vuoi anche sapere l'email di chi si iscrive:

bhe nel form ci metti un campo mail

<input type="text" name="mail" id="mail"/>

poi
nel campo from:

 objMail.From = request.form("mail")

Ovviamente si può migliorare aggiungendo un controllo per la validità della mail, ma comuqnue questo è il codice base

Ciao

gelova

Quindi tirando le somme il codice dovrebbe essere questo:
Ma non capisco quale dei due devo utilizzare "objMail.From"
guarda in fondo alla pagina. :bho:

<%
dim nome
dim user
dim pwd
'evitiamo l'SQL Injection replicando gli apici
nome=Replace(request.form("form_nome"),"'","''")
user=Replace(request.form("form_user"),"'","''")
password=Replace(request.form("form_password"),"'","''")
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/pass.mdb")
sql = "SELECT * FROM pass WHERE user = '" & user & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

If rs.EOF then

RS.AddNew
rs.Fields("nome")=nome
rs.Fields("user")=user
rs.Fields("pwd")=pwd
rs.update
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing
response.redirect("reg_ok.htm")

Else

Response.Write("User giá esistente")
Response.End
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing

End if
%>

Dim objMail, objConfig
Set objMail = Server.createObject("CDO.Message")
Set objConfig = Server.createObject ("CDO.Configuration")

With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "il tuo smtp"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = "[email protected]" 'Mail del destinatario <----- QUESTO
objMail.From = request.form("mail")                 <----  O QUESTO
objMail.To = "[email protected]" 'Mail del destinatario
objMail.Subject = "Oggetto mail"

objMail.HTMLBody = "Ciao la tua user è: " & user & " e la tua password è:" & password
objMail.Send()
Set objMail = Nothing

legolas

Devi usare l'ultimo che ti ho dato.

La prossima volta che posti il codice per favore racchiudilo tra i tag appropriati. [ CODE ] [/ CODE ]

Ciao

gelova

Scusami hai ragione, ok lo provo e ti faccio sapere !;)

gelova

@Legolas said:

<%
Dim objMail, objConfig
Set objMail = Server.createObject("CDO.Message")
Set objConfig = Server.createObject ("CDO.Configuration")

With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "il tuo smtp"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = request.form("mail")
objMail.To = "qui ci metti la mail del destinatario" ' Destinatario
objMail.Subject = "Oggetto mail"
objMail.HTMLBody = "Ciao la tua user è: " & user & " e la tua password è:" & password
objMail.Send()
Set objMail = Nothing

%>

Scusami Legolas se solo ho provato il codice da te inviatomi, (ho avuto qualche problema di troppo) ma prima di provarlo ho nuovamente controllato e secondo me vi è qualcosa che non và !
@Legolas said:

objMail.To = "qui ci metti la mail del destinatario" ' Destinatario
Lo scopo del form con registrazione (oltre naturalmente alla registrazione stessa) è anche quella di sapere chi si è registrato, e questo desidererei saperlo tramite un'email che mi arriva non appena l'utente si è appena registrato !

legolas

objMail.To = "qui ci metti la mail del destinatario" ' Destinatario

La mail deve arrivare a te giusto?

Quindi ci metti la tua email

Ciao

gelova

Non ho ben capito come vanno legati i due gruppi di codici quello della registrazione utente e quello dell'invio email
Io li ho scritti così,ho provato la registrazione avviene ma l'email non la manda :bho:

@Legolas said:

<%
dim nome
dim user
dim pwd
'evitiamo l'SQL Injection replicando gli apici
nome=Replace(request.form("form_nome"),"'","''")
user=Replace(request.form("form_user"),"'","''")
password=Replace(request.form("form_password"),"'","''")
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/pass.mdb")
sql = "SELECT * FROM pass WHERE user = '" & user & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

If rs.EOF then

RS.AddNew
rs.Fields("nome")=nome
rs.Fields("user")=user
rs.Fields("pwd")=pwd
rs.update
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing
response.redirect("reg_ok.htm")

Else

Response.Write("User giá esistente")
Response.End
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing

End if

Dim objMail, objConfig
Set objMail = Server.createObject("CDO.Message")
Set objConfig = Server.createObject ("CDO.Configuration")

With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mio smtp.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = request.form("mail")
objMail.To = "[email protected]" ' Destinatario
objMail.Subject = "Oggetto mail"
objMail.HTMLBody = "Ciao la tua user è: " & user & " e la tua password è:" & password
objMail.Send()
Set objMail = Nothing
%>

madai

gelova prova a ragionare anche da solo... altrimenti tra un po' Legolas emette fattura

gelova, credo che tu debba fare una query al dastabase per recuperare l'email alla quale inviare la registrazione

gelova

Avete ragione....ma è la prima volta che mi cimento in queste cose scusatemi se sono diventato insistente

gelova

Vi prego non odiatemi...........ma ho ancora qualche problema !
Una volta che la registrazione è andata a buon fine, si aprirà la pagina
"reg_ok.htm" che dà il benvenuto ecc....
Ma ho notato che anche se non mi registro posso accedere a quella pagina,
scrivendo sulla barra di navigazione :
"http://pagina di inserimento dati/reg_ok.htm"

Quindi in pratica chiunque conoscendo il nome della pag. potrà accedere saltando la procedura di registrazione

legolas

Puoi benissimo usare le var di sessione così controlli se l'utente è registato.
Se lo è gli mostri la pagina altrimenti gli mostri altro

Ciao

gelova

le var di sessione
Cosa sarebbero le var di sessione

la.maglia.rosanero

Gelova la mia piccola esperienza mi dice di consigliarti questo semplice script che uso pure io

<%
if Session("Autenticato")<>"OK" then
Response.Redirect("index.asp")
end if
%>

dove index.asp è la pagina che gli spunta se non è autenticato....differentemente se lo è glispunta la pagina versola quale ha effettivamente puntato!
questa stringa la metti all'inizio codice della pagina....nella linea 1 anche!

gelova

Grazie 1000 !!!!

gelova

Ho provato il tuo script ma con dispicere devo dirti che non mi funziona
l'ho modificato in base alla sessione del mio codice così:

<%
if Session("registrato")="sicuro" then
Response.Redirect("index.asp")
end if
%>
Questo è il mio file che fa il check

<%
dim user
dim pwd
dim url
user=replace(request.form("form_user"),"'","''")
pwd=replace(request.form("form_password"),"'","''")
url=request.form("form_url")
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/pass.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
qry = "Select * from pass Where ((user='"
qry = qry & user & "') AND (pwd='"
qry = qry & pwd & "'));"
rs.ActiveConnection = conn
rs.CursorLocation = 2
rs.Open qry
Response.Expires=0
if rs.EOF then
response.redirect("check_out.htm")
else
session("registrato")="sicuro"
rs.close
set rs = nothing
conn.close
set conn = nothing
response.redirect(url)
end if
%>