asp request utf-8转码函数 解决乱码问题

asp request utf-8转码函数

如果asp接收来自UTF-8页面的表单,即表单以UTF-8方式发送,但ASP脚本为gb2312编码代码页,那么可以使用此函数进行转码。此函数同时也适用于asp下UTF-8转换

GB2312Function utf2gb(Body)
Dim Objstream
Set Objstream = Server.CreateObject(“adodb.stream”)
objstream.Charset = “gb2312”
objstream.Type = 2
objstream.Mode =3
objstream.Open
objstream.WriteText body
objstream.Position = 0
objstream.Charset = “utf-8”
objstream.Type = 2
utf2gb = objstream.ReadText
objstream.Close
set objstream = nothing
End Function