BytesToBstr获取的源码转换为中文的代码
2018-09-06 12:21
阅读：528
==================================================
函数名：BytesToBstr
作用：将获取的源码转换为中文
参数：Body------要转换的变量
参数：Cset------要转换的类型
==================================================
FunctionBytesToBstr(Body,Cset)
DimObjstream
SetObjstream=Server.CreateObject(adodb.stream)
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
下一篇：最简洁的asp多重查询的解决方案
文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：BytesToBstr获取的源码转换为中文的代码
文章链接：http://soscw.com/index.php/essay/10233.html
文章标题：BytesToBstr获取的源码转换为中文的代码
文章链接：http://soscw.com/index.php/essay/10233.html
评论
亲，登录后才可以留言！