若需要utf-8格式，请自行将下面的GB2312改成utf-8。

'二进制转字符串，否则会出现乱码的！

FunctionsTb(vin)

ConstadTypeText=2

DimBytesStream,StringReturn

SetBytesStream=Server.CreateObject("ADODB.Stream")

WithBytesStream

.Type=adTypeText

.Open

.WriteTextvin

.Position=0

.Charset="GB2312"

.Position=2

StringReturn=.ReadText

.Close

EndWith

SetBytesStream=Nothing

sTb=StringReturn

EndFunction