28,391
社区成员
发帖
与我相关
我的任务
分享关于asp 发电子邮件的 权限问题 （在线等）
用asp发送电子邮件
<title>邮件转发</title>
</head>
<body>
<%
dim username
dim email
dim title
dim content
dim founderr
fouunderr=false
dim errmsg
username=trim(Request.QueryString("inc_name")) '发件人
email=trim(Request.QueryString("email")) '发件人邮件地址
toemail=request.Form("toemail") ‘收件人邮件地址
title=trim(Request.Form("title")) ‘主题
content=Request.Form("content") ’邮件内容
if username="" then
errmsg="<li>您的大名不能为空</li>"
founderr=true
end if
if IsValidEmail(email)=false then
errmsg=errmsg+"<li>您的email有错误，否则没办法回复您的Email</li>"
founderr=true
end if
if content="" then
errmsg=errmsg+"<li>内容不能为空</li>"
founderr=true
end if
%>
<div align=center>
<table border="0" cellspacing="0" width="85%" cellpadding="0"
height="17" class="tableclass">
<tr>
<td width="100%" >
<%
'发送邮件
if founderr=false then
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =Email
objCDOMail.To =request.Form("toemail")
objCDOMail.Subject =title
objCDOMail.Body = content
objCDOMail.Send <----就是这里
Set objCDOMail = Nothing
%>
<p><br></p>
<div align="center">
<p><font size="3">邮件发送成功</font></p>
</div>
运行后出错，提示：
Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
各位，这个问题怎么解决啊?
<title>邮件转发</title>
</head>
<body>
<%
dim username
dim email
dim title
dim content
dim founderr
fouunderr=false
dim errmsg
username=trim(Request.QueryString("inc_name")) '发件人
email=trim(Request.QueryString("email")) '发件人邮件地址
toemail=request.Form("toemail") ‘收件人邮件地址
title=trim(Request.Form("title")) ‘主题
content=Request.Form("content") ’邮件内容
if username="" then
errmsg="<li>您的大名不能为空</li>"
founderr=true
end if
if IsValidEmail(email)=false then
errmsg=errmsg+"<li>您的email有错误，否则没办法回复您的Email</li>"
founderr=true
end if
if content="" then
errmsg=errmsg+"<li>内容不能为空</li>"
founderr=true
end if
%>
<div align=center>
<table border="0" cellspacing="0" width="85%" cellpadding="0"
height="17" class="tableclass">
<tr>
<td width="100%" >
<%
'发送邮件
if founderr=false then
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =Email
objCDOMail.To =request.Form("toemail")
objCDOMail.Subject =title
objCDOMail.Body = content
objCDOMail.Send <----就是这里
Set objCDOMail = Nothing
%>
<p><br></p>
<div align="center">
<p><font size="3">邮件发送成功</font></p>
</div>
运行后出错，提示：
Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
各位，这个问题怎么解决啊?
...全文
请发表友善的回复…
发表回复
shipfi 2003-06-10
- 打赏
- 举报
呵，接分!
随风 2003-06-10
- 打赏
- 举报
up
realplm 2003-06-09
- 打赏
- 举报
up
realplm 2003-06-09
- 打赏
- 举报
会不会是空间问题？ 但那个是用asp写的啊，我的空间支持asp啊 ，真是郁闷
realplm 2003-06-09
- 打赏
- 举报
突然发现在本地IIS 测试成功，但一传到空间里就出现“没有权限”
tigerwen01 2003-06-09
- 打赏
- 举报
查看一下SMTP服务是否已停止。
glvicky 2003-06-09
- 打赏
- 举报
微软自带的这个东东，应该不用权限的吧！
大概IIS有问题喽。
大概IIS有问题喽。
realplm 2003-06-09
- 打赏
- 举报
不会是IIS的错误啊，我是把文件传到空间上调试的啊
以前是好的，过了一个礼拜就出现这个问题了
以前是好的，过了一个礼拜就出现这个问题了
yt01 2003-06-09
- 打赏
- 举报
是不是iis的设置问题？
按道理没理由的呀
按道理没理由的呀
