[原创][邮件订阅]为什么发不出邮件？ - ASP

风忠人

电梯直达

1^#

发表于 2010-1-19 03:47:33 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我想做一个邮件订阅系统，就是像一些论坛或网站里面的邮件订阅，输入一个邮件地址后我想把这邮件地址发到指定的邮箱，可为什么发不出去出去？首先，订阅邮件的文件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>可是为什么收不到邮件呢？页面自然是显示的“订阅成功，谢谢您的支持。”不明白中。。。

收藏0

使用道具举报

Ｉしovのyou

2^#

发表于 2010-1-19 03:47:37 | 只看该作者

lz先把代码整理好,看得眼花,我们都是人,不是神

回复支持反对

使用道具举报

忧郁侠客

3^#

发表于 2010-1-19 03:47:41 | 只看该作者

代码整理好了，请高手指点！

回复支持反对

使用道具举报

最爱水晶

4^#

发表于 2010-1-19 03:47:44 | 只看该作者

function是定义函数吧，你好象没有执行啊

回复支持反对

使用道具举报

温柔乡

5^#

发表于 2010-1-19 03:47:48 | 只看该作者

楼上能不能给一个解决的办法啊？

回复支持反对

使用道具举报

爱情无价

6^#

发表于 2010-1-19 03:47:52 | 只看该作者

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

回复支持反对

使用道具举报

女装批发3

7^#

发表于 2010-1-19 03:47:56 | 只看该作者

晕，处理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>