HELP HELP HELP!!!

jerry7981 2004-04-05 09:58:08
这是我第三遍提这个问题了,怎么办啊!帮帮我
我用于发邮件的是IMAIL

我写了asp自动发信,很简单的语句,
<%Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.From="iddcm@some.com"
MailObject.To=mail
MailObject.Subject="发送邮件"
MailObject.Body="发邮件"
MailObject.Send%>

以前都是可以运行的,昨天突然不行了,出现的错误如下:
主要出现在这个语句:MailObject.Send

页面上显示的错误如下:

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/iddcm/CABWRITE/aa.asp,行41

请问这是什么原因啊?能帮帮我吗?

有人让我试试下面的方法,
regsvr32 C:\WINNT\system32\CDONTS.DLL
再重启
我试过了,好像没有用的啊
怎么办呢?
...全文
4 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
jerry7981 2004-04-05
真的解决了!谢谢sheng9hhd(无形)!
回复
jerry7981 2004-04-05
lawdoor(风语者) 这个和我那个差不多啊,就是比我那个复杂一点而已。我需要解决的是不能发送邮件而不是其他的问题。大家有没有遇上过这种问题啊?
回复
sheng9hhd 2004-04-05
原因
如果连对 SMTP 邮件服务器文件夹的“更改”权限都未授予匿名用户帐户,则可能会发生此问题。
解决方案
要解决此错误,请按照下列步骤操作:
1.打开 Windows NT 资源管理器并浏览到邮件文件夹。默认情况下,它是X:\InetPub\MailRoot 文件夹,其中 X:是您在安装 NTOP 期间指定的驱动器。
2.右键单击 Pickup 文件夹,然后单击属性。
3.在安全选项卡上,单击权限。
4.如果列出了 IIS 用户帐户,则 IUSR_<计算机> 和 IWAM_<计算机> 将是默认计算机,请跳转到第 13 步。
5.单击添加。
6.在列出的名称来自: 下拉菜单中选择您的计算机。
7.单击显示用户。
8.突出显示 IUSR_<计算机> Internet 来宾帐户和 IWAM_<计算机> 模拟帐户,然后单击添加。
9.单击访问类型下拉菜单中的更改。
10.单击确定关闭“添加用户和组”对话框。
11.单击确定关闭目录权限对话框。
12.单击确定关闭目录属性对话框。
13.对 MailRoot 文件夹中的每个文件夹重复第 2 步到第 12 步。

适用于:
Microsoft Internet Information Server 4.0
回复
sheng9hhd 2004-04-05
http://support.microsoft.com/default.aspx?scid=kb;EN-US;197619
回复
sheng9hhd 2004-04-05
这是权限问题!
回复
jerry7981 2004-04-05
一定要换成jmail吗?不可以用imail吗?
回复
lawdoor 2004-04-05
<%
FromWho = "shop"
FromMail="zdsc@sina.com.cn"
ToWho = Request("name")
ToMail = request("Email")
'建立一个CDONTS.NewMail对象
Set objMail = Server.CreateObject("CDONTS.NewMail")
'设置寄件人
objMail.From = FromWho & "<" & FromMail & ">"
'设置收件人
objMail.To = ToWho & "<" & ToMail & ">"
objMail.cc = "zdsc@topoint.com.cn"
'设置邮件主题
objMail.Subject = "申请成功"

'设置邮件内容
content = "<body bgcolor=""#FFFFE8"">"
content = content & "尊敬的用户[<font color=""#FF0000"">"&name&"</font>]:您好!" & "<br>"
content = content & "<br>"
content = content &"  你已成功申请了我们的服务,以下是你的注册资料,如有错误,请到后台管理系统中进行修改。" &"<br>"
content = content & "<br>"
content = content & "全称:" & shop_Name1 & "<br>"
content = content & "简称:" & shop_Name2 & "<br>"
content = content & "人:" & name & "<br>"
content = content & "密码:" & pwd & "<br>"
content = content & "公司电话:" & usephone & "<br>"
content = content & "公司地址:" & haddr & "<br>"
content = content & "邮编:" & postcode & "<br>"
content = content & "<br>"
content = content & "<br>"

objMail.Body = content
'将邮件格式设成HTML,若这两行省略,则使用默认的TXT格式。
objMail.BodyFormat = 0
objMail.MailFormat = 0
'寄出邮件
objMail.Send
set objMail=nothing
回复
madpolice 2004-04-05
不用CDONTS

换成JMAIL,并设置发信身份验证
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告