博客展示了一个名为StrConv的函数，该函数接收字符串和编码类型作为参数，利用adodb.stream对象实现字符编码转换，并通过示例展示了将“你好啊！”转换为ISO - 8859 - 1编码的用法。
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 = Nothing
End Function
Response.Write StrConv("你好啊！", "ISO-8859-1")
扫一扫
到【灌水乐园】发言
