当前位置：主页 > 查看内容

BytesToBstr获取的源码转换为中文的代码

发布时间：2021-07-24 00:00| 有 位朋友查看

简介：'================================================== '函数名：BytesToBstr '作用：将获取的源码转换为中文 '参数：Body------要转换的变量 '参数：Cset------要转换的类型 '================================================== FunctionBytesToBstr(Body……
'==================================================
'函数名：BytesToBstr
'作  用：将获取的源码转换为中文
'参  数：Body ------要转换的变量
'参  数：Cset ------要转换的类型
'==================================================
Function BytesToBstr(Body,Cset)
   Dim Objstream
   Set Objstream = Server.CreateObject("adodb.stream")
   objstream.Type = 1
   objstream.Mode =3
   objstream.Open
   objstream.Write body
   objstream.Position = 0
   objstream.Type = 2
   objstream.Charset = Cset
   BytesToBstr = objstream.ReadText 
   objstream.Close
   set objstream = nothing
End Function

原文链接：https://m.jb51.net/article/11219.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：Visual Studio 2017创建.net standard类库编译出错原因及解决方 下一篇：没有了

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐