• 公司成立于2008年,東莞網站網頁制作公司-南城企業網站建設-東莞做網站網絡公司
    網頁設計工具

    東莞網頁設計公司系統將留言發送到手機

    mailserver="smtp.ood1.com" '(修改smtp服務器地址)


     


    username="good-1@ood1.com" '(用來做發送郵件的地址)


    password="ood1.com" ' (做發送郵件密碼)


     


    receive="ood1.com@139.com" '接受反饋信息的email地址(用來接收留言的郵箱)


    修改成您自己的郵箱就行.


     


    ----------------------------------------------------------------------


    <%response.charset="gb2312"%>


    <HTML>


    <BODY>


    <form action="sent.asp?go=sent" method="post">


    <table>


    用戶名:<input type="text" name="name" id="name" value="">


    郵箱:<input type="text" name="email" id="email" value="***@msn.com">


    主題:<input type="text" name="subject" id="subject" value="Jmail中文郵件發送測試" >


    反饋信息:<td width="650">


    <TEXTAREA NAME="content" ROWS="5" COLS="50"></TEXTAREA>


     


    <td colspan="2" align="center"><INPUT TYPE="submit" value="提交">


    </table>


    </form>


    <%


    If request("go")<>"sent" Then response.End


    dim CLStr,msg,mailserver,username,password,receive


    CLStr=Chr(13) & Chr(10)


    '請在此修改相關信息


    mailserver="smtp.ood1.com" '郵局服務器地址(smtp服務器地址)


    username="****@ood1.com" 'smtp服務器驗證登陸名(用來做為代發郵件的地址)


    password="ood1.com" 'smtp服務器驗證密碼 (信箱密碼)


    receive="ood1.com@139.com" '接受反饋信息的email地址(用來接收郵件的信箱)


    '修改結束


    Set msg = Server.CreateObject("JMail.Message")


    msg.Charset = "gb2312"


    msg.logging = true '啟用郵件日志


    msg.silent=True'屏蔽例外錯誤,返回False或True


    'msg.ContentType = "text/html"'郵件的格式為HTML格式


    msg.Priority = 1 '郵件等級,1為加急,3為普通,5為低級


    msg.MailServerUserName = username


    msg.MailServerPassword = password


    msg.From = username


    msg.FromName = username


    msg.AddRecipient (receive)


    msg.Subject = "網站在線反饋:"&Request.Form("subject")


    msg.HTMLBody = "網站在線反饋"&CLStr&CLStr


    msg.HTMLBody = msg.HTMLBody&"<br>對方姓名:"&Request.Form("name")&CLStr


    msg.HTMLBody = msg.HTMLBody&"<br>對方信箱:"&Request.Form("email")&CLStr


    msg.HTMLBody = msg.HTMLBody&"<br>留言內容:<br>"


    msg.HTMLBody = msg.HTMLBody&"<div style='font:9pt;background-color:#eeeeee'>"&Request.Form("content")&CLStr


    msg.HTMLBody = msg.HTMLBody&""


    If msg.Send (mailserver) Then


    Response.Write(" <script language=javascript>alert('發送成功');location='sent.asp'</script>")


    else


    Response.Write(" <script language=javascript>alert('發送失敗,請仔細檢查郵件服務器的設置是否正確!') </script>")


    End If


    msg.close


    set msg = nothing


    %>


    <p>郵件發送成功,謝謝使用</p>


    </BODY>


    </HTML>


    上一篇:沒有了 下一篇:東莞做網站公司哪里好iis5.0一鍵安裝軟件
    一个人看的www日本动漫