我正在尝试使用经典ASP发送邮件,但我的页面包含一些错误,这就是为什么 上传页面,显示错误:
500内部服务器错误
这是我正在使用的代码;
<%
Dim smtpserver,youremail,yourpassword,ContactUs_Name,ContactUs_Tel,ContactUs_Email
Dim ContactUs_Subject,ContactUs_Body,Action,IsError
smtpserver = "smtp.gmail.com"
youremail = "xxxxx.yyyyyy@gmail.com"
yourpassword = "password"
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 'Use SSL for the connection
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "aaaaa.bbbbbb@gmail.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "aaaaa.bbbbbb@gmail.com"
ObjSendMail.CC = "cccccc.dddddd@sunarctechnologies.com"
ObjSendMail.Subject = "Subject"
ObjSendMail.From = "xxxxx.yyyyyy@gmail.com"
ObjSendMail.HTMLBody = "<p>hello</p>"
ObjSendMail.Send
Set ObjSendMail = Nothing
%>
我对经典asp没有任何想法,这只是来自其他来源的复制粘贴代码。
答案 0 :(得分:1)
您的代码看起来是正确的,但是我检查一下gter gmail只接受端口465上的SSL连接。我相信端口567用于TLS连接。或者只是尝试端口25。
This question is similar to yours
您还需要能够看到应用程序报告的详细错误消息。
答案 1 :(得分:0)
也许在这里使用脚本。 http://www.w3schools.com/asp/asp_send_email.asp。这对我有用。
答案 2 :(得分:0)
假设您有权访问IIS,我建议首先启动服务器端调试并向IIS中的浏览器发送错误。如果没有找到对象,则错误500可能意味着任何形成缺失的结尾。有正确的错误消息可以帮助缩小问题的根源。