用下面的函数转换即可
Function StreamToStr(sStream)
dim dr
Set dr=Server.CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=2
dr.Open
dr.Charset="GB2312"
dr.WriteText sStream
dr.Position=0
dr.Charset="UTF-8"
StreamToStr=dr.ReadText
dr.Close
Set dr=Nothing
End Function
本文介绍了一个使用 ADO Stream 对象进行字符集转换的方法,通过 VBS 脚本实现从 GB2312 到 UTF-8 的转换。

1万+

被折叠的 条评论
为什么被折叠?



