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

ttx9n · 发表于 2007-9-1 22:03:33

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

adm1n · 发表于 2022-9-6 17:39:31

的沙发水电费水电费

3t0ukmu · 发表于 2022-9-12 11:36:17

老衲笑纳了

95nd4ba · 发表于 2022-9-19 02:42:58

挺不错的东西

平平安安 · 发表于 2022-9-23 16:51:21

谢谢楼主分享

JosephSA · 发表于 2022-9-25 09:22:55

看看看看看看看看看看看看看看看看看看看看看看看看看看看

czoz5y · 发表于 2023-6-10 06:42:09

有什么好的服务器

jasonlong · 发表于 2023-7-23 01:35:42

刷刷刷刷刷刷刷刷刷刷刷刷刷刷刷

qwe520 · 发表于 2023-10-28 10:44:23

哟哟哟哟哟以偶

ki9ku6 · 发表于 2023-11-27 13:23:04

抽根烟，下来看看再说

账号		自动登录	找回密码
密码			立即注册

[ASP编程] BytesToBstr获取的源码转换为中文的代码

相关帖子