asp+jmail邮件发送功能的实现，解决乱码

经过一翻调试之后，终于在以下功能的情况下解决了发送邮件的乱码功能。

 

 'Request表单过滤
Function PostCstr(str)
PostCstr=Replace(str,"&","&")
PostCstr=Replace(PostCstr,"'","chr(39)")
PostCstr=Replace(PostCstr,chr(32),"  ")
PostCstr=Replace(PostCstr,"<","&lt;")
PostCstr=Replace(PostCstr,">","&gt;")
PostCstr=Replace(PostCstr,vbcrlf,"<br/>")
End Function
order=request("order")
function sent(tos,content)
 Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象      
 'jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j      
 jmail.Charset = "utf-8" '邮件的文字编码
 jmail.ContentTransferEncoding = "base64"
 jmail.Encoding = "base64"
 jmail.ISOEncodeHeaders = False      
 jmail.ContentType = "text/html" '邮件的格式为HTML格式或纯      
 jmail.AddRecipient "[e-mail]"'"[e-mail]" '邮件收件人的地址
 jmail.AddRecipientBCC("[e-mail]" )'抄送      
 jmail.From = "[e-mail]" '发件人的E-MAIL地址      
 jmail.MailServerUserName ="[e-mail]" '登录邮件服务器的用户名 (您的邮件地址)      
 jmail.MailServerPassword = "na147975816" '登录邮件服务器的密码 (您的邮件密码)      
 jmail.Subject = "订单("&tos&")邮件" '邮件的标题      
 jmail.Body = PostCstr(content) '邮件的内容    
 'jmail.HTMLBody=""  
 jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值      
 jmail.Send("smtp.163.com") '执行邮件发送（通过邮件服务器地址）      
 jmail.Close()      
 set jmail = nothing   
 response.Write("Your email has been sent successfully!<br />")
 response.Write("<a href='#' onclick='javascript:window.close();'>close</a><br />")
 response.End()
end function
if request("ac")="send" then
 call sent(request("order"),request("content"))
end if