Forum
asp send password - Από {mosky}
exo ena asp script, to opoio prostateuei tis selides xrisimopoiontas username/password..pos tha prostheso na stelnei ton password kapoiou xristi otan aftos to exei ksexasei kai dilonei to email tou gia na tou to steilo?
Απάντηση από:Alex
Πρώτα θα δημιουργήσεις τον τρόπο αποστολής του password (email component).
Παράδειγμα.
sub SendMail(sTo, sSubject, sBody)
sMailServer = "mail.yourdomain.gr"
sMailSender = "root@yourdomain.gr "
sMailSenderName = "yourdomain.gr mailer"
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text"
JMail.ServerAddress = sMailServer
JMail.Sender = sMailSender
JMail.Sendername = sMailSenderName
JMail.Subject = sSubject
JMail.AddRecipient sTo
JMail.Body = sBody
JMail.Execute
end sub
Μετά θα ανοίξεις την σύνδεση με την database
Παράδειγμα
OpenDB sConnUsers
sSQL = "SELECT * FROM Users WHERE eMail = '" & sEmail & "'"
rs.Open sSQL, , , adCmdTable
if (rs.bof or rs.eof) then
bErr = True
sErr = "To email δεν υπάρχει στη database."
else
sUserName = rs("UserName")
rs("Password") = sPassword
end if
CloseDB
Μετά ακολουθεί η αποστολή του email
if not bErr then
sSubject = "Πληροφορίες login"
sBody = "Πληροφορίες login στο yourname.gr." & vbcrlf & vbcrlf
sBody = sBody & "Το user name: " & sUserName & vbcrlf
sBody = sBody & "Το password: " & sPassword & vbcrlf & vbcrlf
SendMail sEmail, sSubject, sBody
%>
Ακολουθεί η σελίδα πιστοποίησης για την αποστολή
<body>
Ευχαριστώ, <br>
Έστειλα το password στο email που δώσετε.
</body>
Η σελίδα που φυσικά βρισκόμαστε αυτή την στιγμή είναι η σελίδα με την φόρμα για να τοποθετήσει ο χρήστης το email του για την αποστολή.
<br>
<form action="thispage.asp" method="post">
<table border=0>
<tr>
<td>Email</td>
<td><input type="text" name="txtEmail" value="<%=sEmail%>" size="40"></td>
</tr>
<tr>
<td></td>
<td><input type="checkbox" name="chkUserName" value="1">Στείλε και το user name</td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="cmdSend" value=" Send "></td>
</tr>
</table>
</form>
<br><br>
Απάντηση από:mosky
ok..se euxaristo para poli..
tip: Είμαστε μια γενιά που έχει μεγαλώσει χωρίς εξωτερικούς εχθρούς . Χωρίς πολέμους η εμφυλίους . Αυτό με το οποίο ερχόμαστε αντιμέτωποι είναι ο ίδιος μας ο εαυτός . * F5 για νέο tip