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