新微赢技术网

标题: [原创][邮件订阅]为什么发不出邮件？ [打印本页]

作者: 风忠人 时间: 2010-1-19 03:47
标题: [原创][邮件订阅]为什么发不出邮件？
我想做一个邮件订阅系统，就是像一些论坛或网站里面的邮件订阅，输入一个邮件地址后我想把这邮件地址发到指定的邮箱，可为什么发不出去出去？首先，订阅邮件的文件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"></style><%if request("type")="submit" then'本邮件发送程序由w3 jmail 4.3 做支持function sendemail(sname,mailbody)'sname 接受邮件的人的邮件地址(string)'mailbody 邮件内容 (string(可以是html））dim jmailerr.clearon error resume nextset jmail=server.CreateObject("jmail.message")if err.number<>0 thensendemail=0 : err.clear : exit functionend ifsmtp="mail.fx001.com" '邮件发送服务器如smtp.fx001.comjmail.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=1jmail.AddRecipient "xu@fx001.com" '收信人的邮箱jmail.subject="邮件主题" ' 邮件主题jmail.body=Request.Form("body") '内容jmail.mailserverusername= "dingyue" '发信人邮件用户名jmail.mailserverpassword="password" '发信人邮件密码jmail.send smtpsendemail=1set jmail=nothingend functionend if%><body><br><span class="style2"><p align="center">订阅成功，谢谢您的支持。</p></span></body>可是为什么收不到邮件呢？页面自然是显示的“订阅成功，谢谢您的支持。”不明白中。。。

作者: Ｉしovのyou 时间: 2010-1-19 03:47
lz先把代码整理好,看得眼花,我们都是人,不是神

作者: 忧郁侠客 时间: 2010-1-19 03:47
代码整理好了，请高手指点！

作者: 最爱水晶 时间: 2010-1-19 03:47
function是定义函数吧，你好象没有执行啊

作者: 温柔乡 时间: 2010-1-19 03:47
楼上能不能给一个解决的办法啊？

作者: 爱情无价 时间: 2010-1-19 03:47
你把前后function sendemail(sname,mailbody)和后面的end function去掉,再重新给
sname,mailbody
定义一下你要的内容不就可以发了吗,
'sname 接受邮件的人的邮件地址(string)
'mailbody 邮件内容 (string(可以是html））
请不要问我要代码,而且请lz尽量不要过分依赖现成代码,有时间最好把它们看懂,看明白,才会有进步,代码可以留,可以用,前提是尽量把其掌握(当然比较难比较复杂的例外)

作者: 女装批发3 时间: 2010-1-19 03:47
晕，处理URL出错，没办法，没学过ASP，只能大约看一下，看来一定要好好学习了！

<%
if request("type")="submit" then
'本邮件发送程序由w3 jmail 4.3 做支持
sname=xu@fx001.com
mailbody=Request.Form("body")
'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=mailbody '内容
jmail.mailserverusername= "dingyue" '发信人邮件用户名
jmail.mailserverpassword="password" '发信人邮件密码
jmail.send smtp
sendemail=1
set jmail=nothing
end if
%>
<body><br><span class="style2"><p align="center">订阅成功，谢谢您的支持。</p>
</span></body>

作者: 祗↘爲.輝仔 时间: 2010-1-19 03:48
处理url出错？具体错在哪？

作者: 夜来香 时间: 2010-1-19 03:48
没有提示出错在哪，只是提示“处理URL出错，请与系统管理员联系”

作者: 梧桐雨love 时间: 2010-1-19 03:48
我没见过，也不明白，其它人帮帮吧，我也想知道原因，压根发邮件就没出过问题

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)