asp用request接收utf-8转码函数

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

view plaincopy to clipboardprint? Function 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