這個問題原本以為很復雜,可是在研究過之後發現,原來就這麼簡單!
下面我就將代碼貼上,供還沒有時間研究的朋友使用!
網絡資源在於共享,沒有共享的網絡將沒有發展!
首先 做一個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&"{提交