[原创][邮件订阅]为什么发不出邮件？
我想做一个邮件订阅系统，就是像一些论坛或网站里面的邮件订阅，输入一个邮件地址后我想把这邮件地址发到指定的邮箱，可为什么发不出去出去？
首先，订阅邮件的文件dingyue.asp代码:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>邮件订阅</title>
</head>
<body>
<table width="100%" height="50" border="0" align="center" cellpadding="15" cellspacing="0">
<tr>
<td height="50" valign="top"><form action="post.asp" method="post" name="form1" target="_self">
<label>
<input name="body" type="text" id="body" size="15">
<input type="submit" name="Submit" value="提交">
</label>
</form> </td>
</tr>
</table>
</body>
</html>
发送邮件即post.asp代码如下：
<style type="text/css">
<!--
.style2 {
color: #000099;
font-size: 12px;
}
-->
</style>
<%
if request("type")="submit" then
'本邮件发送程序由w3 jmail 4.3 做支持
function sendemail(sname,mailbody)
'sname 接受邮件的人的邮件地址(string)
'mailbody 邮件内容 (string(可以是html））
dim jmail
err.clear
on error resume next
set jmail=server.CreateObject("jmail.message")
if err.number<>0 then
sendemail=0 : err.clear : exit function
end if
smtp="mail.fx001.com" '邮件发送服务器 如smtp.fx001.com
jmail.silent=true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging=true '启用日志
jmail.charset="gb2312" '邮件编码
jmail.contenttype="text/html" '邮件格式(html)
jmail.From ="dingyue@fx001.com" '发信人的邮箱
jmail.FromName ="dingyuer" '发信人的名字
jmail.priority=1
jmail.AddRecipient "xu@fx001.com" '收信人的邮箱
jmail.subject="邮件主题" ' 邮件主题
jmail.body=Request.Form("body") '内容
jmail.mailserverusername= "dingyue" '发信人邮件用户名
jmail.mailserverpassword="password" '发信人邮件密码
jmail.send smtp
sendemail=1
set jmail=nothing
end function
end if
%>
<body><br><span class="style2"><p align="center">订阅成功，谢谢您的支持。</p>
</span></body>
可是为什么收不到邮件呢？页面自然是显示的“订阅成功，谢谢您的支持。”
不明白中。。。
[此贴子已经被作者于2006-1-4 13:27:24编辑过]
