0

ここに何かが欠けているように感じます.vbscriptにいくつかの異なるものを追加して、送信ボタンが2回ではなくクリックされたときにのみ実行されるようにしました(ページが2番目に読み込まれ、次に送信されます)。しかし、それはそれを壊したか、機能しませんでした。この初心者プログラマーへのヘルプは大歓迎です。htmlが必要な場合はお知らせください。編集：まだ助けを求めています！:(

<% Sub sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer, mailUsername, mailPassword)
Set MyMail = CreateObject("cdo.message")
MyMail.From = mailFrom
MyMail.To = mailTo
MyMail.Subject = mailSubject
MyMail.HTMLBody = mailMessage
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailUsername
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailPassword
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
MyMail.Configuration.Fields.Update
MyMail.Send
Set MyMail = nothing
End Sub

Dim mailFrom, mailTo, mailSubject, mailMessage, mailServer, mailUsername, mailPassword

mailFrom = Request.form(example)
mailTo = "example"
mailSubject = "example"
mailMessage = "example"
mailServer = "example"
mailUsername = "example"
mailPassword = "example"

Call sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer, mailUsername, mailPassword)
%>
4

1 に答える 1

1

その場合Request.form(example) = ""、ページがフォーム送信の結果ではない（またはフォームがこのデータなしで送信された）場合は、

if Request.form(example) <> "" then
   'is a form submission
   .. email code
end if

送信をより正確に区別したい場合は、フォームに一定の非表示フィールドを追加してください

<input type="hidden" name="sendemail" value="1" />

を探しますRequest.form("sendemail") = "1"。

于 2012-09-11T12:40:10.643 に答える