asp request utf-8转码函数

最新推荐文章于 2020-06-13 14:23:53 发布

原创最新推荐文章于 2020-06-13 14:23:53 发布 · 2.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #function #脚本

ASP脚本专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个用于将UTF-8编码转换为GB2312编码的ASP函数。该函数适用于ASP脚本从UTF-8编码的表单接收数据的情况，确保了字符编码的正确转换。

asp request utf-8转码函数

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

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