3

我正在尝试使用经典 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 没有任何想法，这只是从其他来源复制粘贴代码。

4

2 回答 2

1

您的代码看起来正确，但我会检查 gmail 是否仅接受端口 465 上的 SSL 连接。我相信端口 567 用于 TLS 连接。或者，只需尝试端口 25。

这个问题和你的类似。

您还真的需要能够查看您的应用程序报告的详细错误消息。

于 2013-11-04T10:20:49.837 回答
0

假设您可以访问 IIS，我建议的第一件事是激活服务器端调试并将错误发送到 IIS 中的浏览器。如果找不到对象，则错误 500 可能意味着任何形式的缺失。使用适当的错误消息将有助于缩小问题的根源。

于 2013-11-04T04:11:45.967 回答