<%'**************************************************
'功    能：在线发送邮件（100%成功）
'PowerBy：核心代码来自互联网，经hacker.com.cn进行代码整理测试
'时    间：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%>