Function
sTb(vin)
Const adTypeText = 2
Dim BytesStream,StringReturn
Set 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 = Nothing
sTb = StringReturn
End Function
Const adTypeText = 2
Dim BytesStream,StringReturn
Set 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 = Nothing
sTb = StringReturn
End Function