UTF-8编码第1/2页

参考文档：http://www.linuxforum.net/books/UTF-8-Unicode.html 代码如下： ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 代码如下:[removed] ‘http://www.linuxforum.net/books/UTF-8-Unicode.html Public Function UTF8EncodeChar(z) Dim c : c=AscW(z)’取UNICODE编码 if c>0 And c<256 Then’Asc编码直接返回 UTF8EncodeCh