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

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")