asp request utf-8转码函数

landv

发布于 2020-03-12 18:07:57

1.6K0

发布于 2020-03-12 18:07:57

文章被收录于专栏：landvlandv

asp request utf-8转码函数

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

本文参与腾讯云自媒体分享计划，分享自作者个人站点/博客。

原始发表：2020-03-11 ，如有侵权请联系 cloudcommunity@tencent.com 删除

asp