Se você precisar de formato UTF-8, altere o seguinte GB2312 para UTF-8 sozinho.
'Torne o binário para a corda, caso contrário, ilegal aparecerá!
FunctionStb (VIN)
ConstadTypetext = 2
DimbyTessTream, StringReturn
SetByTessTream = server.createObject ("adodb.stream")
WithbytessTream
.Type = adTypetext
.Abrir
.WriteTextvin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .readText
.Fechar
ENDWITH
SetbytessTream = nada
STB = StringReturn
Função final
Artigos que podem ser de interesse para você:
C# Método simples para converter a codificação unicode para caracteres chineses String python convert JavaScript %U String para Python Unicode Code Golang implementa a conversão unicode para String String String String Implementação Método de implementação Conversão de string entre a String e a unicode codificação e a codificação de javascript Método de implementação Javascript Objeto de string de string Método (UNICO Resolva o problema de não ser capaz de converter entre unicode e não-unicode string de dados tipos de dados js conversão de sequência literal unicode codificação função js string e unicode codificando conversão
