蚁文尘都〖隋〗

<%
'文件測試中文亂碼問題
'測試時間:2007.12.03  -  第二次測試
'response.codepage="950"
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType="text/html"
'JMail.Encoding = "base64" ' 有試過注釋此行，問題依舊
jmail.Charset="BIG5"
'jmail.ContentType   =   "text/html;charset=BIG5"
jmail.ISOEncodeHeaders   =   false  
JMail.Sender = "testi#sina.com" ' 發送人郵箱
JMail.SenderName = "這個中中文" ' 發送人姓名
JMail.AddRecipient("test#qq.com") ' 收件人郵箱
JMail.Body = "這個是內容,在測試一次,這個是註冊信息,不是垃圾 email,我們做個測試,測試的內容" ' 郵件正文
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
arrFile = Split(fileItem1,"$$")
'For i = 0 To Ubound(arrFile)-1
'JMail.AddAttachment(arrFile(i)) ' 多附件添加，單一附件也試過，問題依舊
'Next
JMail.Subject = "你的註冊信息,請注意接收,接收的email 增加了encoding,刪除了codepage 去了 iso的標準" ' 郵件標題
JMail.Execute
JMail.Close
Set JMail = Nothing
%>

<%
sub SendOrder(mailform,mailto,mailsubject,mailbody)
  Set myMail = Server.CreateObject("CDONTS.NewMail")
  HTML = mailbody
  '发件人
  myMail.From = mailform
  '收件人
  myMail.To = mailto
  '邮件的重要性
  ' 0 重要性低
  ' 1 重要性一般（默认）
  ' 2 重要性高
  myMail.Importance = 1
  '邮件主题
  myMail.Subject = mailsubject
  '给邮件对象的文本赋值
  myMail.Body = HTML
  '確認編碼
  myMail.BodyFormat   =  cdoMailFormatMIME      
  myMail.MailFormat   =   cdoMailFormatMIME  
  myMail.SetLocaleIDs("65001") 'utf-8 65001
  '将邮件发出
  myMail.Send
  '销毁对象实例，释放内存
  Set myMail = Nothing
end sub  
%>