asp request utf-8转码函数

2021-04-08 11:25

阅读:624

标签:ext   asp   har   stream   col   server   obj   pen   charset   

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

 

asp request utf-8转码函数

标签:ext   asp   har   stream   col   server   obj   pen   charset   

原文地址:https://www.cnblogs.com/landv/p/12462380.html


评论


亲,登录后才可以留言!