首页 > 编程 > ASP > 正文

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

2020-07-27 13:05:52

字体：大中小

来源：转载

供稿：网友

'==================================================
'函数名：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

上一篇：PostHttpPage用asp是实现模拟登录效果的代码

下一篇：使用ASP实现网站的“目录树”管理的代码

学习交流

选择笔记本处理器（CPU）需避免那些误区和基

选择笔记本处理器（CPU）需避免那些误区和基本常识...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

中国移动6月净增5G套餐用户1459万户累计达7019.9万户

2020-07-20 18:48:56

蚂蚁集团计划在科创板和港交所同步上市估值超2000亿美元

2020-07-20 18:46:41

传滴滴最快年内在香港IPO 目标估值800亿美元

2020-07-20 18:43:20

小鹏汽车宣布C+轮融资近5亿美元高瓴红杉等为主要投资者

2020-07-20 18:35:48

微博内测热搜定制功能你可以愉快地吃瓜了吗？

2020-07-17 23:29:31

Twitter证实：黑客一共瞄准130个名人账号

2020-07-17 23:24:56

疑难解答

图片精选

网友关注