BytesToBstr获取的源码转换为中文的代码
2018-09-06 12:21
阅读：530
==================================================
函数名：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多重查询的解决方案
评论
亲，登录后才可以留言！