Если вам нужен формат UTF-8, пожалуйста, измените следующий GB2312 на UTF-8 самостоятельно.
«Поверните двоичный к струне, в противном случае появится искаженная!
Functionstb (vin)
ConstadtyPetext = 2
DimbyTessTream, StringtRurn
SetByTessTream = server.createObject ("adodb.stream")
ВЫСОТКИЙ
.Type = adtypetext
.Открыть
.WriteTextvin
.Position = 0
.CHARSET = "GB2312"
.Position = 2
StringReturn = .ReadText
.Закрывать
Энд
SetByTessTream = ничего
stb = stringterurn
Конечная функция