若需要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