解析.eml檔，解碼 還原為 中文
[使用 Chilkat.String 元件]
1. 請利用regsrv註冊該dll元件 或 直接於[系統管理工具\元件服務]中建立
2. demo 如下：
<%
set cks = Server.CreateObject("Chilkat.String")
' Demonstrate how to encode/decode strings.
s = "eèéêë"
cks.Append s
Response.Write "<p>"
Response.Write cks.Str
Response.Write "<br>"
Response.Write "hex, windows-1252: " & cks.GetEncoded("hex","windows-1252")
Response.Write "<br>"
Response.Write "hex, utf-8: " & cks.GetEncoded("hex","utf-8")
Response.Write "<br>"
Response.Write "url-encoded, windows-1252: " & cks.GetEncoded("url","windows-1252")
Response.Write "<br>"
Response.Write "url-encoded, utf-8: " & cks.GetEncoded("url","utf-8")
Response.Write "<br>"
Response.Write "base64, windows-1252: " & cks.GetEncoded("base64","windows-1252")
Response.Write "<br>"
Response.Write "base64, utf-8: " & cks.GetEncoded("base64","utf-8")
Response.Write "<br>"
Response.Write "quoted-printable, windows-1252: " & cks.GetEncoded("quoted-printable","windows-1252")
Response.Write "<br>"
Response.Write "quoted-printable, utf-8: " & cks.GetEncoded("quoted-printable","utf-8")
Response.Write "</p>"
' Prints this:
' hex, windows-1252: 65E8E9EAEB
' hex, utf-8: 65C3A8C3A9C3AAC3AB
' url-encoded, windows-1252: e%E8%E9%EA%EB
' url-encoded, utf-8: e%C3%A8%C3%A9%C3%AA%C3%AB
' base64, windows-1252: Zejp6us=
' base64, utf-8: ZcOow6nDqsOr
' quoted-printable, windows-1252: e=E8=E9=EA=EB
' quoted-printable, utf-8: e=C3=A8=C3=A9=C3=AA=C3=AB
' Demonstrate decoding by appending the encoded form and outputting
' the string.
' All of the following Response.Write lines print "eèéêë"
cks.Clear
cks.AppendEncoded "65E8E9EAEB","hex","windows-1252"
Response.Write cks.Str & "<br>"
cks.Clear
cks.AppendEncoded "65C3A8C3A9C3AAC3AB","hex","utf-8"
Response.Write cks.Str & "<br>"
cks.Clear
cks.AppendEncoded "e%E8%E9%EA%EB","url","windows-1252"
Response.Write cks.Str & "<br>"
cks.Clear
cks.AppendEncoded "e%C3%A8%C3%A9%C3%AA%C3%AB","url","utf-8"
Response.Write cks.Str & "<br>"
cks.Clear
cks.AppendEncoded "Zejp6us=","base64","windows-1252"
Response.Write cks.Str & "<br>"
cks.Clear
cks.AppendEncoded "ZcOow6nDqsOr","base64","utf-8"
Response.Write cks.Str & "<br>"
cks.Clear
cks.AppendEncoded "e=E8=E9=EA=EB","quoted-printable","windows-1252"
Response.Write cks.Str & "<br>"
cks.Clear
cks.AppendEncoded "e=C3=A8=C3=A9=C3=AA=C3=AB","quoted-printable","utf-8"
Response.Write cks.Str & "<br>"
%>
