使用經典 ASP 發送郵件？

Question

我正在嘗試使用經典 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 一無所知，這只是從其他來源復制粘貼代碼。

Answer 1

您的代碼看起來正確，但我會檢查 gmail 是否只接受端口 465 上的 SSL 連接。我相信端口 567 用於 TLS 連接。 或者，只需嘗試端口 25。

這個問題和你的類似。

您還確實需要能夠查看應用程序報告的詳細錯誤消息。

Answer 2

也許在這里使用腳本。 http://www.w3schools.com/asp/asp_send_email.asp 。 這對我有用。

Answer 3

假設您可以訪問 IIS，我建議的第一件事是激活服務器端調試並將錯誤發送到 IIS 中的瀏覽器。 如果找不到對象，錯誤 500 可能意味着任何形式的缺失結束。 使用正確的錯誤消息將有助於縮小問題的根源。