【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 SaveTextAsUTF8(filePath, Text)
        Const adTypeText = 2
        Const adSaveCreateOverWrite = 2

        'Create Stream object
        Dim TextStream
        Set TextStream = CreateObject("ADODB.Stream")
        With TextStream
                .Open
                .CharSet = "UTF-8"
                .Position = TextStream.Size
                .WriteText Text
                .SaveToFile filePath, adSaveCreateOverWrite
                .Close
        End With
        Set TextStream = Nothing
       
End Function