码迷,mamicode.com
首页 > Web开发 > 详细

asp request utf-8转码函数

时间:2020-03-11 15:40:14      阅读:130      评论:0      收藏:0      [点我收藏+]

标签: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

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!