请教专家:这个转码代码怎样能修改为可用的脚本?谢谢!
Function BytesToBstr(strBody, CodeBase)
Dim objstream
On Error Resume Next
Set objstream = CreateObject("Adodb. Stream")
With objstream
.Type = 1
.Mode = 3
.Open
.Write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
End With
obj stream.Close
Set objstream = Nothing
If Err.Number <> 0 Then BytesToBstr = ""
On Error GoTo 0
End Function