---

asp gb2312转utf8

---

Function gb2utf8(s)
    Dim byt
    Set byt = CreateObject("ADODB.Stream")
    byt.Type = 2   
    byt.CharSet = "GB2312"
    byt.Open
    byt.WriteText s
    byt.Position = 0
    byt.CharSet = "UTF-8"
    gb2utf8 = byt.ReadText
    byt.Close   
    Set byt = Nothing
End Function

---