这个流的内容如何转为中文?

Question

我知道根据这个内容无法转,呵呵!
如果我获得的是一个流的内容,如何转

Answer 1

或是如何把这样的一个函数改为用存储过程写:Const adTypeBinary = 1
Const adTypeText = 2Function Bytes2bStr(vin)
Dim BytesStream,StringReturnSet BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = NothingBytes2bStr = StringReturnEnd Function