ASP点击按钮自动发送固定邮件到固定邮箱如何实现 - ASP技术论坛

jiazehua

来　自：大连
等　级：新手上路
帖　子：77
专家分：0
注　册：2010-8-15

第 2 楼

得分:0

自己顶一下……一直在刷新，一直在等……无奈啊

巫术时代-个人博客-[url]www.[/url]

2010-12-07 14:56

dzt0001

等　级：蒙面侠
威　望：5
帖　子：1281
专家分：4998
注　册：2005-10-12

第 4 楼

得分:40

我以前做过Jmail发邮件的例子，不过找不到了，下面是从百度知道上复制来的。
你需要有一个自己邮箱用来做发件人，并知道这个邮箱的SMTP发信服务器的地址和端口
下面代码中的   JMail.MailServerusername、JMail.MailServerPassword 要修改成你的邮箱，可能还有地方要改改，你先看看吧。

下面的是2个页面。
mess.thml页面：
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>..::驶向天边-网页设计-::.. jmail提交邮箱代码测试</title>
<link rel="stylesheet" type="text/css" href="http://www.
<style type="text/css">

</style>
</head>

<body>
<script language="JavaScript" type="text/javascript">
function isEmail(vEMail)
{
var regInvalid=/(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/;
var regValid=/^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/;
return (!regInvalid.test(vEMail)&®Valid.test(vEMail));
}
function check()
{

if ((document.form1.sendemail.value)=="")
{
window.alert ("请输入发件邮箱!");
document.form1.sendemail.select();
document.form1.sendemail.focus();
return false;
}

if ((document.form1.title.value)=="")
{
window.alert ("请输入相关主题!");
document.form1.title.select();
document.form1.title.focus();
return false;
}
if ((document.form1.conten.value)=="")
{
window.alert ("请输入相关描述!");
document.form1.conten.select();
document.form1.conten.focus();
return false;
}
if ((document.form1.name.value)=="")
{
window.alert ("请输入联系人!");
document.form1.name.select();
document.form1.name.focus();
return false;
}
if ((document.form1.tel.value)=="")
{
window.alert ("请输入联系电话!");
document.form1.tel.select();
document.form1.tel.focus();
return false;
}
if  (!(isEmail(document.form1.email.value )))
   {
    alert("输入的邮箱地址错误，请重新输入!");
document.form1.email.select();
    document.form1.email.focus();
return false;
    }
else
{  document.form1.tHtml.value=document.form1.innerHTML;
  document.form1.submit();}

}

                  </script>
    <form id="form1" name="form1" method="post" action="jmail.asp">
     <table width="350" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                <tr>
                  <td colspan="2"><font color="#008F9A"><strong>给我们留言</strong></font></td>
                </tr>
                <tr>
                  <td height="20" align="left"  >发送邮箱：</td>
                  <td><input name="sendemail" type="text" class="input3" id="sendemail" size="20" />
                    *</td>
                </tr>
                <tr>
                  <td width="65" height="20" align="left"  >相关主题：</td>
                  <td><input name="title" type="text" class="input3" id="title" size="20" />
                    *
                    <input name="subject" type="hidden" id="subject" value="客户反馈信息" />
                    <input name="tHtml" type="hidden" id="tHtml" /></td>
                </tr>
                <tr>
                  <td width="65" height="80" align="left"  >相关描述：</td>
                  <td><textarea name="conten" cols="30" rows="5" class="input3" id="conten"></textarea>
                    *</td>
                </tr>
                <tr>
                  <td width="65" height="20" align="left" >公司名称：</td>
                  <td><input name="comname" type="text" class="input3" id="comname" size="20" /></td>
                </tr>
                <tr>
                  <td width="65" height="20" align="left" >联系人：</td>
                  <td><input name="name" type="text" class="input3" id="name" size="20" />
                    *</td>
                </tr>
                <tr>
                  <td width="65" height="20" align="left" >联系电话：</td>
                  <td><input name="tel" type="text" class="input3" id="tel" size="20" />
                    *务必真实</td>
                </tr>
                <tr>
                  <td width="65" height="20" align="left" >联系地址：</td>
                  <td><input name="add" type="text" class="input3" id="add" size="20" />                  </td>
                </tr>
                <tr>
                  <td width="65" height="20" align="left" >电子邮件：</td>
                  <td><input name="email" type="text" class="input3" id="email" size="20" />
                    *务必真实</td>
                </tr>
                <tr>
                  <td height="20"> </td>
                  <td>
                    <input name="Submit3" type="button" class="button" value="提交" onclick="return check()"/>

                    <input name="Submit4" type="reset" class="button" value="重置" />                  </td>
                </tr>
                <tr>
                  <td> </td>
                  <td> </td>
                </tr>
            </table>
</form></body>
</html>

jmail.asp页面：
<%
dim sendemail,jmail,tHtml,Subject,content,at63
Subject=trim(request.form("Subject"))
tHtml=trim(request.form("tHtml"))
sendemail=trim(request.form("sendemail"))
   Set JMail = Server.CreateObject("Jmail.Message")
   JMail.From = "daigua2102@
   '来自哪果发送
   JMail.FromName = "客户反馈"
   '发送名
   JMail.CharSet = "GB2312"
   JMail.Priority = 3
   JMail.ReplyTo = "daigua2102@
   '回复email
   JMail.AddRecipient sendemail
   JMail.Subject = Subject
   JMail.AppendText  "客户反馈"
   content = "<link rel=""stylesheet"" type=""text/css"" href=""http://www.
   content=content & thtml
   'thtml变量是整个表单的html代码,表单设置的文本字段<input name="sendemail" type="text" class="input3" id="sendemail" size="20" />,提交时用innerHTML获取表单html代码
   JMail.AppendHTML content
   JMail.MailServerusername = "daigua2102@
   '服务邮箱地址
   JMail.MailServerPassword = "4722188"
   '服务邮箱密码.邮箱密码是正确的.用来演试的.请不要修改我的修改,谢谢合作
   if (JMail.Send ("smtp.)) then
   'JMail.Send 发送服务器
    response.write "<script>alert('发送成功!');history.back(-1);</script>"
   else
    response.write "<script>alert('企业邮箱服务器出现问题.发送失败!');history.back(-1);</script>"
   end if
%>

----我怎能在别人的苦难面前转过脸去----

2010-12-07 16:08