会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>本站原创>>网站编程>>在线发送邮件100%成功的ASP代码
推荐给你的朋友阅读:

在线发送邮件100%成功的ASP代码

来源:飞腾设计网 发表日期: 2009-08-05 22:16:29

    当前很多人在寻找通过网页实现在线发送邮件功能的ASP代码,经过笔者的一番努力,终于找到了一段代码,并测试成功。将下面的代码保存为Email.asp文件:

<%'**************************************************
'功    能:在线发送邮件(100%成功)
'PowerBy:核心代码来自互联网,经Feitec.Com进行代码整理测试
'时    间:2009-08-05 22:03
'*************************************************
If Request.Form("Send")="True" Then
    Dim SMTPServer  '发送邮件所使用的SMTP服务器,例如smtp.sina.com
    Dim SMTPEmail    '与SMTP服务器对应的邮箱用户名,例如xxx@sina.com
    Dim SMTPPwd     '与SMTP服务器对应的邮箱密码,即发送邮箱的密码
    Dim SMTPName   '发件人姓名,例如飞腾
    Dim EmailTitle      '邮件标题
    Dim InceptEmail  '收件人Email地址,例如XXX@sohu.com
    Dim EmailContent Rem 邮件内容
    SMTPServer=Request.Form("sendserver")
    SMTPEmail=Request.Form("sendemail")
    SMTPPwd=Request.Form("password")
    InceptEmail=Request.Form("inceptemail")
    SMTPName=Request.Form("sendname")
    EmailTitle=Request.Form("sendtitle")
    EmailContent=Request.Form("sendcontent")
    Dim JMail,Str
    Set JMail=Server.CreateObject("jmail.message")
    JMail.Silent=True
    JMail.Charset="GB2312"
    JMail.ISOEncodeHeaders=False
    JMail.ContentType="text/html"
    JMail.Priority=3
    JMail.fromname=SMTPname
    JMail.from=SMTPemail
    JMail.subject=EmailTitle
    JMail.Body=Trim(EmailContent)
    JMail.MailServerUserName=SMTPemail
    JMail.MailServerPassWord=SMTPpwd
    JMail.AddRecipient Trim(InceptEmail)
    Str=Jmail.Send(SMTPServer)
    If Str Then
      Response.write "<script language=javascript>alert(邮件成功发送!);location=Email.asp;</script>"
    Else
      Response.write "<script language=javascript>alert(邮件发送失败!);location=Email.asp;</script>"
    End If
    JMail.Close:Set JMail=Nothing
Else%>
<h1>在线发送邮件100%成功</h1>
<table border=1 width="100%" align="center" style="border-collapse: collapse" bordercolor="#111111" cellpadding="1" cellspacing="4">
     <form name="form1" method="post" action="">
     <tr>
          <td width="20%">收件人邮箱</td>
         <td width="80%"><input type="text" size="30" name="inceptemail"></td>
     </tr>
     <tr>
          <td>发件人邮箱</td>
          <td><input type="text" size="30" name="sendemail"></td>
     </tr>
     <tr>
          <td>发件人邮箱密码</td>
          <td><input type="text" size="30" name="password"></td>
     </tr>
     <tr>
          <td>发件STMP邮件服务器</td>
          <td><input type="text" size="30" name="sendserver"></td>
     </tr>
     <tr>
          <td>发件人名称</td>
          <td><input type="text" size="30" name="sendname"></td>
     </tr>
     <tr>
          <td>邮件标题</td>
          <td><input type="text" size="30" name="sendtitle" value="在线邮件测试发送"></td>
     </tr>
     <tr>
          <td>邮件内容</td>
          <td><textarea name="sendcontent" rows="5" style="width:98%">FeitecCMS Is EveryWhere!欢迎使用FeitecCMS。</textarea></td>
     </tr>
     <tr>
          <td colspan="2"><input type="submit" class="submit" name="submit" value="确定发送"><input type="hidden" name="Send" value="True"></td>
     </tr>
     </form>
</table>
<%End If%>

    注意:

    1、此代码需要服务器安装JMail组件;

    2、此代码为功能试验代码,没有对POST参数进行安全检测,要投入实用请加上参数安全检测;

    3、在线发送邮件时,需要等待一定的时间;

    4、有些邮件服务商不提供或是有条件提供SMTP服务,比如:163.com就不能用,sina.com可用(推荐)。

6
2
[作者:雨城 关键词:在线发送邮件 录入:raincity 责编:raincity 阅读次数:5105]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
  • ·暂无相关内容
  • ·暂无相关内容
  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:78.13ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]