我做了个asp页面,是一个填表发送邮件的功能。
可是我发到网上填写发送。
会提示我:
Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/linhai/keane/baoming.asp,行234
234行的命令是"mail.send"
请各位高手指点一翻很急。
服务器是支持ASP服务的。
Dim sendmail,course,company,contact,dep,tel,fax,mail,name1,name2,name3,name4,duty1,duty2,duty3,duty4,pay,content
course=trim(request.form("course"))
company=trim(request.form("company"))
contact=trim(request.form("contact"))
dep=trim(request.form("dep"))
tel=trim(request.form("tel"))
fax=trim(request.form("fax"))
mail=trim(request.form("mail"))
name1=trim(request.form("name1"))
name2=trim(request.form("name2"))
name3=trim(request.form("name3"))
name4=trim(request.form("name4"))
duty1=trim(request.form("duty1"))
duty2=trim(request.form("duty2"))
duty3=trim(request.form("duty3"))
duty4=trim(request.form("duty4"))
pay=trim(request.form("pay"))
content="" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & ""
content=content & "" & "" & ""
content=content & "" & "" & ""
content=content & "" & "" & ""
content=content & "" & "" & ""
content=content & "" & "
培训课程名称: | "& course & " | | | |
公司名称: | "& company & " | | |
联系人: | "& contact & " | | |
部门: | "& dep & " | | |
电话: | "& tel & " | | |
传真: | "& fax & " | | |
E_mail: | "& mail & " | | |
姓名: | "& name1 & " | 职务: | "& duty1 & " |
| "& name2 & " | | "& duty2 & " |
| "& name3 & " | | "& duty3 & " |
| "& name4 & " | | "& duty4 & " |
付款方式: | "& pay & " |
"
set sendmail=Server.CreateObject("CDONTS.Newmail")
sendmail.From=mail
sendmail.To="oasis_f@sina.com "
sendmail.Subject=company & "需要培训" & course
sendmail.body=content
sendmail.send
set sendmail=Nothing
response.write "
您填写的信息:"
response.write content
response.write "
已经被正确发送。"
response.write "谢谢您的Email,大知公司会尽快与您联系,请再继续访问这里的其他栏目."