<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body>
<%
Dim username,email,tel,content
username=request.form("name")
email=request.form("email")
tel=request.form("tel")
content=request.form("content")
set msg = Server.CreateOBject( "JMail.Message" )
msg.ISOEncodeHeaders = false
msg.Logging = true
msg.silent = true
msg.CharSet="utf-8"
msg.ContentType="text/html"
msg.From = "test@163.com"
msg.FromName = "from internet"
msg.AddRecipient "test@begonia-capital.com", "info"
msg.Subject = "来自互联网用户建议"
msg.Body = "姓名:" & username & "<br>" & "邮箱:" & email & "<br>" & "联系方式:" & tel & "<br>" & "意见建议:" & content & "<br>"
msg.MailServerUserName = "test@163.com" '登录邮件服务器所需的用户名
msg.MailServerPassword = "password"
if not msg.Send( "smtp.163.com" ) then
Response.write "<scrpit><pre>alert('发送失败,稍后重试!');location.href='/';</pre></scrpit>"
else
Response.write "提交成功!"&"<br>"
Response.write "<a href='index.html'>返回首页</a>"
end if
%>
</body>
</html>
造成邮件发送乱码或者页面显示乱码有多种情况,要确保文件自身编码,jmail编码,和html head标签中的 charset编码一致. 也要将jmail的msg.ISOEncodeHeaders = false;防止jmail内部自动编码造成影响.