程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp關於將表單提交至指定郵箱

asp關於將表單提交至指定郵箱

編輯:關於ASP編程
 

這個問題原本以為很復雜,可是在研究過之後發現,原來就這麼簡單!

下面我就將代碼貼上,供還沒有時間研究的朋友使用!

網絡資源在於共享,沒有共享的網絡將沒有發展!

首先 做一個Config.asp 內容如下:

<%
'CDO通過表單直接發送郵件到站長郵箱

'配置外部SMTP郵件服務器域名,可在各大郵箱服務商的網頁查到
Const Const_SMTPSERVER="smtp.126.com"

'以上服務器所開通的郵箱用戶名
Const Const_SMTPUSERNAME="郵箱用戶名"

'站長郵箱密碼,注意大小寫
Const Const_SMTPUSERPASSWORD="郵箱密碼"

'站長郵箱完整地址(由以上提供SMTP服務的郵箱)
Const Const_DestinationMAILADDRESS="郵箱用戶名@126.com"

'收件郵箱完整地址(由以上提供SMTP服務的郵箱)
Const Const_shoujianMAILADDRESS="要發送的郵箱"
%>

然後再建立一個sendmail.asp 內容如下:

<!--#include file="Config.asp"-->
<%
Dim strValidator:strValidator=Trim(request.Form("validate"))

If strValidator="" Or strValidator<>Trim(Session("SendMail_GetCode")) Then
Response.Write "<script>alert('驗證碼錯誤,請重新填寫。');history.go(-1);</script>"
Response.End
End If
Dim strUserName:strUserName=Request.Form("UserName")
Dim strSendType:strSendType=Request.Form("SendType")
Dim strEmail:strEmail=Request.Form("Email")
Dim strContent:strContent=Request.Form("Content")

Dim strMailContent
strMailContent="老孟發的郵件,內容如下:"& vbcrlf
strMailContent=strMailContent&"{提交  

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved