【ASP】中文big5轉utf-8
function chinese2unicode(c_str) dim jj dim Str_one dim Str_unicode for jj=1 to len(c_str) Str_one=Mid(c_str,jj,1) if Asc(Str_one) < 0 then Str_unicode=Str_unicode & chr(38) Str_unicode=Str_unicode & chr(35) Str_unicode=Str_unicode & chr(120) Str_unicode=Str_unicode & Hex(ascw(Str_one)) Str_unicode=Str_unicode & chr(59) else Str_unicode=Str_unicode & Str_one end if next chinese2unicode=Str_unicode end function '================================================================================================ 如果你在寫 ASP 或 VB 且一定要將 文字儲存成 UTF-8 編碼 ,這個 Function 應該可以幫你的忙: Function SaveTextAsUTF...