秋霞国产午夜亚洲精品理论片,人人模人人爽人人喊久久,中文字幕不卡一区,曰韩第一页综合久久道

<blockquote id="wwisq"></blockquote><menu id="wwisq"></menu>
<center id="wwisq"></center>
  • <rt id="wwisq"><small id="wwisq"></small></rt>
    <center id="wwisq"><delect id="wwisq"></delect></center>
  • <ul id="wwisq"></ul>
      虛擬主機域名注冊-常見問題虛擬主機問題 → 虛擬主機問題


    Jmail 發(fā)送郵件的例子1
    作者:
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">

    <%if request("action")="send" then%>
    <%

    '參數(shù)說明
    'Subject : 郵件標題
    'MailAddress : 發(fā)件服務(wù)器的地址,如smtp.163.com
    'Email : 收件人郵件地址
    'Sender : 發(fā)件人姓名
    'Content : 郵件內(nèi)容
    'Fromer : 發(fā)件人的郵件地址

    Sub SendAction(subject, email, sender, content)
     Set JMail = Server.CreateObject("JMail.Message")
     JMail.Charset = "gb2312" ' 郵件字符集,默認為"US-ASCII"
     JMail.From = strMailUser ' 發(fā)送者地址
     JMail.FromName = sender' 發(fā)送者姓名
     JMail.Subject =subject
     JMail.MailServerUserName = strMailUser' 身份驗證的用戶名
     JMail.MailServerPassword = strMailPass ' 身份驗證的密碼
     JMail.Priority = 3
     JMail.AddRecipient(email)
     JMail.Body = content
     JMail.Send(strMailAddress)
    End Sub

    '調(diào)用此Sub的例子
    Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
    strSubject = Request("title")
    strContent = "用戶Email:" & Request("From") & VbCrLf & "電話:" & Request("Tel") & VbCrLf & "內(nèi)容:" & vbcrlf & Request("content")
    strSender  = Request("Name")
    strEmail = "anybody@163.com" '這是收信的地址,可以改為其它的郵箱
    strMailAddress = "mail.yourdomain.com" '我司企業(yè)郵局地址,請使用 mail.您的域名
    strMailUser  = "user@yourdomain.com" '我司企業(yè)郵局用戶名
    strMailPass  = "mailpassword" '郵局用戶密碼

    Call SendAction (strSubject,strEmail,strSender,strContent)

    %>

    <script language="javascript">
    alert('恭喜您,發(fā)送成功!');
    history.back();
    </script>


    <%else%>
    <style type="text/css">
    <!--body { margin-top: 0px;margin-bottom: 0px;}td {
     font-size: 12px;
     text-decoration: none;}--></style>
    <table width="500" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
    <tr><td height="40" bgcolor="#E3E3E3"><div align="center">發(fā)郵件給我們</div></td></tr>
    <tr><td background="images/formmail_r2_c1.gif"><table width="100%" height="296" border="0" align="center" cellpadding="1" cellspacing="1">
    <form name="form" method="post" action="?action=send">
    <tr bgcolor="#FFFFFF">
    <td width="110" align="center"><div align="left">郵件主題(title)*</div></td>
    <td width="288"><input name="title" type="text" id="title" size="22">
    姓名(name)
    <input name="name" type="text" id="name" size="8">
    </td>
    </tr>
    <tr bgcolor="#FFFFFF">
    <td align="center"><div align="left">你的郵箱(mailaddress)*</div></td>
    <td><input name="from" type="text" id="from" size="22">
    電話(tel)
    <input name="tel" type="text" id="tel" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF">
    <td height="213" align="center"><div align="left">內(nèi)容(content):*<br>
    </div></td>
    <td><textarea name="content" cols="50" rows="15"></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF">
    <td> </td>
    <td> <input type="submit" name="Submit" value="提交"></td></tr></form></table></td>
    </tr></table>
    <%end if%>



    來源:
    閱讀:7251
    日期:2006/5/12

    【 雙擊滾屏 】 【 推薦朋友 】 【 收藏 】 【 打印 】 【 關(guān)閉 】 【 字體: 】 
    上一篇:已經(jīng)沒有了。
    下一篇:Jmail 發(fā)送郵件的例子2
      >> 相關(guān)文章