| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1498 人关注过本帖
标题:[求助]ASP CDO.Message 发送邮件问题
只看楼主 加入收藏
smyh
Rank: 2
等 级:论坛游民
帖 子:97
专家分:25
注 册:2007-1-1
结帖率:80%
收藏
 问题点数:0 回复次数:3 
[求助]ASP CDO.Message 发送邮件问题

<!--#include file="../include/conn.asp" -->
<%
id=session("id")
session("uid")=id
session("uname")=trim(request("username"))
first_subject=trim(request("first_subject"))
second_subject=trim(request("second_subject"))
teach_mode=trim(request("teach_mode"))
work_place=trim(request("work_place"))
low_price=trim(request("low_price"))
response.write first_subject
set rs=server.CreateObject("adodb.recordset")
sql="select * from teacher where t_id="&id
rs.open sql,conn,2,2
email=rs("email")
username=rs("username")
userpwd=rs("userpwd")
rs("first_subject")=first_subject
rs("second_subject")=second_subject
rs("teach_mode")=teach_mode
rs("work_place")=work_place
rs("low_price")=low_price
rs.update
rs.close
set rs=nothing

header1="<font color=red>这是一封你在台州英才家教网的注册通知,详细请看下面:</font>"
''=====发送邮件=====
Set objMail = Server.CreateObject("CDO.Message")
set iConf = Server.CreateObject("CDO.Configuration")
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tzjiajiao.cn"
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@tzjiajiao.cn"
iConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "aaaa"
iConf.Fields.Update

Set objMail.Configuration = iConf
'系统配置结束

'以下为用户自行更改部分,请由程序员进行修改
objMail.From = "info@tzjiajiao.cn"
objMail.Subject = "台州英才家教网会员注册"
'把下面的email改成自己的
objMail.To = email
objMail.HtmlBody=header1
objMail.HtmlBody =objMail.HtmlBody & "<br><br>用户名:"&username
objMail.HtmlBody =objMail.HtmlBody & "<br><br>密码:</font color=blue>"&userpwd&"</font>"
objMail.HtmlBody =objMail.HtmlBody & "<br><br>请保管好你的密码,以便下次能顺利登录你在台州英才家教网的个人管理中心!"
objMail.HtmlBody =objMail.HtmlBody & "<br><br>---------------------------------------"
objMail.HtmlBody =objMail.HtmlBody & "<br><br>联系人:台州英才家教网"
objMail.HtmlBody =objMail.HtmlBody & "<br>公司名称:台州英才家教网"
objMail.HtmlBody =objMail.HtmlBody & "<br>地址:浙江省台州市路桥下里桥西路141号"
objMail.HtmlBody =objMail.HtmlBody & "<br>联系电话:86-576-2410755"
objMail.HtmlBody =objMail.HtmlBody & "<br>传真:86-576-2410755"
objMail.HtmlBody =objMail.HtmlBody & "<br>email:info@tzjiajiao.cn"
objMail.HtmlBody =objMail.HtmlBody & "<br>网址:www.tzjiajiao.cn"
objMail.HtmlBody =objMail.HtmlBody & "<br><br>---------------------------------------"
objMail.Send
Set objMail = Nothing
%>
<meta http-equiv="refresh" content="3;url=main.asp">
<link href="style.css" rel="stylesheet" type="text/css">
<br>
<br>
<br>
<table width="400" height="100" border="2" align="center" cellpadding="0" cellspacing="3" bordercolor="#000000" bgcolor="#FFFFFF">
<tr>
<td height="100" align="center"><table width="100%" border="3" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td height="100" align="center" bgcolor="#FFCC00"><table width="98%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" style="font-size:14px"><div align="center">教员【<%=username%>】注册成功</div></td>
</tr>
<tr>
<td style="font-size:14px">&nbsp;&nbsp;&nbsp;&nbsp;我们已经收到你的教员注册请求,我们将尽快审核你提交的资料,并发布到我们网站的教员库>中!!!<br />
&nbsp;&nbsp;&nbsp;&nbsp;你可以进入学员库,查看是否有合适你的学员需求信息,如果有,你可以在线申请并拨打我们的服务热线:0576-2288250,2410755,进一步确认你的条件是否与家长的要求一致。<br />
&nbsp;&nbsp;&nbsp;&nbsp;如果我们确认你的条件与家长的要求相符,请携带你的身份证、学生证或教师资格证等相关证件,登记照片和相关费用在我们指定的时间内前来我们认证中心!我们将现场让你与家长取得联系!<a href='/index.asp'>返回首页</a></td>
</tr>

</table></td>
</tr>
</table></td>
</tr>
</table>
在本地调试,什么问题都没有
放到服务器上就出现:错误 '80040211'

搜索更多相关主题的帖子: Message CDO 邮件 ASP 
2007-04-11 10:20
NTSteven
Rank: 1
等 级:新手上路
威 望:1
帖 子:70
专家分:0
注 册:2007-4-9
收藏
得分:0 
代碼就不看了.
說個注意點吧,
這段代碼的執行與防火牆,殺毒軟件的設置都有關係,其中有設置郵件的權限

QQ:33140132 msn:njnudt@ VS2005(C#),,WinForm,ASP,Ajax,SQL,網頁設計(承接各類兼職)
2007-04-12 09:06
smyh
Rank: 2
等 级:论坛游民
帖 子:97
专家分:25
注 册:2007-1-1
收藏
得分:0 

呵呵,是虚拟主机的问题,已经解决了,不过还是要谢谢1!

2007-04-12 16:04
smyh
Rank: 2
等 级:论坛游民
帖 子:97
专家分:25
注 册:2007-1-1
收藏
得分:0 
已经解决了,是服务器问题,谢谢楼上
2007-04-13 08:50
快速回复:[求助]ASP CDO.Message 发送邮件问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.063999 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved