|
|
主题: 帮忙看看怎么了
|
yeilong
职务：普通成员
等级：1
金币：0.0
发贴：188
|
#12004/4/27 9:52:51
<%
sub Cdonts(email)
dim objCDOMail
on error resume next
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="admin@cn-em.com"
objCDOMail.To =email
objCDOMail.Subject =topic
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body =mailbody
objCDOMail.Send
if err.number<>0 then
response.write err.description
response.end
end if
Set objCDOMail = Nothing
end sub
%>
提示 没有权限
|
rainbowqqz
职务：普通成员
等级：1
金币：0.0
发贴：30
|
#22004/4/27 10:32:49
ASP没有权限访问某些文件夹。因此运行CDONTS.NewMail组件可能会出毛病。设置system32文件夹的属性，赋予IUSR用户运行权限即可。 如果上传附件路径存放在受保护的文件夹，就会出现80004005错误。此时也需要设置文件夹的权限。
|
yeilong
职务：普通成员
等级：1
金币：0.0
发贴：188
|
#32004/4/27 19:49:12
问题是我没法设置啊，服务器在新网
他一口咬定服务器 没问题，
前几天还是好的，我代码没改过，就成这样了
|
yeilong
职务：普通成员
等级：1
金币：0.0
发贴：188
|
#42004/4/29 15:38:58
有没有别的办法啊
|
悲伤的设计
职务：普通成员
等级：1
金币：1.0
发贴：158
|
#52004/4/29 15:52:53
有如下几种情况
1,组件没注册
2,SMTP停掉了
3,IIS默认网站停掉了
4,硬盘的权限不对
代码没有问题
用这个组件,老出问题,一般不是代码问题,基本上是服务器问题
|
janlay
职务：管理员
等级：7
金币：28.0
发贴：7244
|
#62004/5/1 10:07:34
看看具体出错信息中指出的哪一行出错，如果不在
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
这一行中，则与系统设置无关。
|
