klik here Κλικ εδώ Support 5' για οποιαδήποτε σχετική απορία σου.

asp send password

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?

  1. Alex
    22/7/2002

    Πρώτα θα δημιουργήσεις τον τρόπο αποστολής του 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>

  1. mosky
    22/7/2002

    ok..se euxaristo para poli..



Σχολίασε


   Πίσω στην προηγούμενη σελίδα