|  首頁
說明

GoDaddy 說明

噠啦噠啦噠...計算中...計算中...啟動序列 42...
啵啵嗶嗶啵… 機器人自動化中… 此網頁是經由機器人自動翻譯成您的本地語言。某些翻譯可能還不盡完善,我們需要您的幫助!使用頁面底部的按鈕告訴我們本文是否有幫助。 前往英語版本

建立 ASP 表單郵件程式

有些此文件中的資訊被進階我們讓僅可用的資料。請通知您必須負責正確遵循以下的程序。客戶支援無法協助這些主題。

若要在 Windows 專屬或虛擬專用伺服器 (VPS) 上使用 ASP 表單-郵件程式,建立網頁表單 html 連結到 ASP 檔案,然後上傳您的伺服器。範例指令碼是如下所示:

<%
'Form should include a hidden field named redirect otherwise the user will be redirected to the home page

'Required settings - these must be set for this script to work
mail_to = "mary@secureserver.net"
mail_from = "test@secureserver.net"

On Error Resume Next

host_url = Request.ServerVariables("HTTP_HOST")
req_method = Request.ServerVariables("REQUEST_METHOD")

mail_body = vbCrLf

'Gather form submission items and translate into message body
If err.number <> 0 Then
Response.Write "Error processing mail request. Error code: " & err.number
Else
If (req_method = "GET") Then
For Each Item In request.QueryString
If item <> "" Then
key = item
value = Request.QueryString(item)
If(lcase(key) = "redirect") Then
landing_page = value
Else
mail_body = mail_body + ucase(key) + ": " + value + vbCrLf
End If
End If
Next
ElseIf (req_method = "POST") Then
For Each Item In request.form
If item <> "" Then
key = item
value = Request.Form(item)
If(lcase(key) = "redirect") Then
landing_page = value
Else
mail_body = mail_body + ucase(key) + " " + value + vbCrLf
End If
End If
Next
End If
End If

'Generate mail message.
If err.number <> 0 Then Response.Write "Error processing mail request. Error code: " & err.number Else Set msg = Server.CreateObject("CDO.Message") Set myCon = Server.CreateObject ("CDO.Configuration") 'Out going SMTP server myCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" myCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 myCon.Fields.Update msg.Configuration = myCon msg.Subject = "Message from " & host_url msg.From = mail_from msg.To = mail_to msg.TextBody = mail_body msg.Send Set msg = Nothing End If If err.number <> 0 Then Response.Write "Error processing mail request. Error code: " & err.number Else If landing_page <> "" Then Response.Redirect landing_page Else Response.Redirect host_url End If End If %>

這篇文章有用嗎?
感謝您提供意見。 若要與客戶服務代表聯絡,請撥打支援中心電話號碼,或使用上方的對話選項。
很高興能幫上忙! 還有什麼可幫您的嗎?
很抱歉有這種情形。 請告訴我們您不了解的部分,或解決方案無法解決您問題的原因。