公司成立于2008年,廣州網站網頁制作公司-白云企業網站建設-廣州做網站網絡公司
網頁設計工具

廣州網頁設計公司系統將留言發送到手機

mailserver="smtp.ood1.com" '(修改smtp服務器地址)


 


username="good-1@ood1.com" '(用來做發送郵件的地址)


password="ood1.com" ' (做發送郵件密碼)


 


receive="ood1.com@139.com" '接受反饋信息的email地址(用來接收留言的郵箱)


修改成您自己的郵箱就行.


 


----------------------------------------------------------------------


<%response.charset="gb2312"%>


<HTML>


<BODY>


<form action="sent.asp?go=sent" method="post">


<table>


用戶名:<input type="text" name="name" id="name" value="">


郵箱:<input type="text" name="email" id="email" value="***@msn.com">


主題:<input type="text" name="subject" id="subject" value="Jmail中文郵件發送測試" >


反饋信息:<td width="650">


<TEXTAREA NAME="content" ROWS="5" COLS="50"></TEXTAREA>


 


<td colspan="2" align="center"><INPUT TYPE="submit" value="提交">


</table>


</form>


<%


If request("go")<>"sent" Then response.End


dim CLStr,msg,mailserver,username,password,receive


CLStr=Chr(13) & Chr(10)


'請在此修改相關信息


mailserver="smtp.ood1.com" '郵局服務器地址(smtp服務器地址)


username="****@ood1.com" 'smtp服務器驗證登陸名(用來做為代發郵件的地址)


password="ood1.com" 'smtp服務器驗證密碼 (信箱密碼)


receive="ood1.com@139.com" '接受反饋信息的email地址(用來接收郵件的信箱)


'修改結束


Set msg = Server.CreateObject("JMail.Message")


msg.Charset = "gb2312"


msg.logging = true '啟用郵件日志


msg.silent=True'屏蔽例外錯誤,返回False或True


'msg.ContentType = "text/html"'郵件的格式為HTML格式


msg.Priority = 1 '郵件等級,1為加急,3為普通,5為低級


msg.MailServerUserName = username


msg.MailServerPassword = password


msg.From = username


msg.FromName = username


msg.AddRecipient (receive)


msg.Subject = "網站在線反饋:"&Request.Form("subject")


msg.HTMLBody = "網站在線反饋"&CLStr&CLStr


msg.HTMLBody = msg.HTMLBody&"<br>對方姓名:"&Request.Form("name")&CLStr


msg.HTMLBody = msg.HTMLBody&"<br>對方信箱:"&Request.Form("email")&CLStr


msg.HTMLBody = msg.HTMLBody&"<br>留言內容:<br>"


msg.HTMLBody = msg.HTMLBody&"<div style='font:9pt;background-color:#eeeeee'>"&Request.Form("content")&CLStr


msg.HTMLBody = msg.HTMLBody&""


If msg.Send (mailserver) Then


Response.Write(" <script language=javascript>alert('發送成功');location='sent.asp'</script>")


else


Response.Write(" <script language=javascript>alert('發送失敗,請仔細檢查郵件服務器的設置是否正確!') </script>")


End If


msg.close


set msg = nothing


%>


<p>郵件發送成功,謝謝使用</p>


</BODY>


</HTML>


上一篇:沒有了 下一篇:廣州做網站公司哪里好iis5.0一鍵安裝軟件
深圳爱你一万年科技有限公司