ASP JMail组件发送邮件

(1) ASP服务器用的是"小旋风ASPserver"下载小旋风ASPServer服务器 可以在98/XP/2K/2003 /NT等系统下运行ASP程序.不用安装IIS了.

(2) 先下载安装JMail 邮件服务器.是个免费产品..本例子在JMail  v3版本下调试通过.

(3) ASP代码如下:

1. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
3. <%if request("action")="send" then%>
4. <%
6.   '参数说明
7.   'Subject     : 邮件标题
8.   'MailAddress : 发件服务器的地址,如smtp.163.com
9.   'Email       : 收件人邮件地址
10.   'Sender      : 发件人姓名
11.   'Content     : 邮件内容
12.   'Fromer      : 发件人的邮件地址
14.   Sub SendAction(subject, email, sender, content) 
15.  Set JMail = Server.CreateObject("JMail.Message") 
16.  JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
17.  JMail.From = strMailUser ' 发送者地址
18.  JMail.FromName = sender' 发送者姓名
19.  JMail.Subject =subject
20.  JMail.MailServerUserName = strMailUser' 身份验证的用户名
21.  JMail.MailServerPassword = strMailPass ' 身份验证的密码
22.  JMail.Priority = 3
23.  JMail.AddRecipient(email)
24.  JMail.Body = content
25.  JMail.Send(strMailAddress)
26.   End Sub
27.   
28.   '调用此Sub的例子
29.   Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
30.   strSubject     = "邮件主题"
31.   strContent     = "邮件正文"
32.   strSender  = "邮件发送者名称"
33.   strEmail       = Request("From")
34.   strMailAddress = "mail.yourcompany.com" '我司企业邮局地址，请使用 mail.您的域名
35.   strMailUser  = test@test.com '我司企业邮局用户名
36.   strMailPass  = "test" '邮局用户密码
38.   Call SendAction (strSubject,strEmail,strSender,strContent)
40. %> 
42. <script language="JavaScript">
43. alert('恭喜您，发送成功!');
44. history.back();
45. </script>
48. <%else%>
49. <style type="text/css">
50. <!--body { margin-top: 0px;margin-bottom: 0px;}td {
51.  font-size: 12px;
52.  text-decoration: none;}--></style>
53.   <table width="500" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
54. <tr><td height="40" bgcolor="#E3E3E3"><div align="center">获得资料</div></td></tr>
55. <tr><td background="images/formmail_r2_c1.gif"><table width="100%" height="296" border="0" align="center" cellpadding="1" cellspacing="1">
56.           <form name="form" method="post" action="?action=send">
57.             <tr bgcolor="#FFFFFF">
58.               <td width="110" align="center"><div align="left">你的邮箱(mailaddress)*</div></td>
59.               <td width="288"><input name="from" type="text" id="from" size="22">
60.               </td>
61.             </tr>
62.             <tr bgcolor="#FFFFFF">
63.               <td height="213" align="center"><div align="left"><br>
64.                 </div></td>
65.               <td> </td>
66.             </tr>
67.             <tr bgcolor="#FFFFFF">
68.               <td> </td>
69.               <td>                  <input type="submit" name="Submit" value="提交"></td></tr></form></table></td>
70.   </tr></table>
71. <%end if%>