asp utf8到gb2312

if Len(city)>0 then
x = gb2utf8(city)
if x<>"" then
city = x
end if
end if
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