将GB2312编码的汉字，转换为ISO编码

作者：zhaozj
发表时间：2020-12-23 11:00
来源：未知

Function StrConv(ByVal strIn, ByVal encoding) Dim st: Set st = Server.CreateObject("adodb.stream") st.Type = 2 st.Open st.WriteText strIn st.Position = 0 st.Charset = encoding StrConv = st.ReadText(-1) st.close Set st = NothingEnd Function

Response.Write StrConv("你好啊！", "ISO-8859-1")