从08年建网站兴起到19年转变成市场主导地位,实力案例展示一站式优品服务[建网站|百度优化推广|速成网站],使用国内十强服务器平台保障网站网站地图urllistxml地图
非自助免费建网站,非传统网站模板/共享系统,送手机网站建站多少钱680元普通优化套餐680元网站模板套餐建网站980元爆款套餐980元精品网站套餐建网站多少钱做网站多少钱|交流动态
建网站案例 网站优化推广 知识技巧 常见问题 建站工具 优化关键词 深圳做网站 北京建网站 上海建网站 广州网站建设 南京网页制作 布吉网站建设

将留言发送到邮箱[建网站费用|做网站多少钱]

发表时间:2009-02-16 16:14:47 阅读:

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

 

username="[email protected]" '(用来做发送邮件的地址)

password="ood1.com" ' (做发送邮件密码)

 

receive="[email protected]" '接受反馈信息的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="[email protected]" '接受反馈信息的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>

返回顶部

售前建站
建站咨询

售后维护
建站咨询