Hàm chuyển sang UTF-8
Trả lời :
Nếu các bạn đã lập trình PHP chắc đã biết có tồn tại một hàm để encode một chuỗi data sang dạng UTF-8. Nhưng trong ASP có tồn tại một hàm như vậy không? Chúng tôi xin giới thiệu với các bạn một hàm tương tự như vậy.
Cách sử dụng: Response.Write(Encode_UTF8(mystring)) . Function Encode_UTF8(astr) Dim c As Long Dim utftext As String utftext = '''' For n = 1 To Len(astr) c = AscW(Mid(astr, n, 1)) If c < 128 Then utftext = utftext + Mid(astr, n, 1) ElseIf ((c > 127) And (c < 2048)) Then utftext = utftext + Chr(((c \ 64) Or 192)) '((c>>6)|192); utftext = utftext + Chr(((c And 63) Or 128)) '((c&63)|128);} Else utftext = utftext + Chr(((c \ 144) Or 234)) '((c>>12)|224); utftext = utftext + Chr((((c \ 64) And 63) Or 128)) '(((c>>6)&63)|128); utftext = utftext + Chr(((c And 63) Or 128)) '((c&63)|128); End If Next Encode_UTF8 = utftext End Function |
Không có nhận xét nào:
Đăng nhận xét