新闻资讯

点击排行

您现在的位置:首页 > 新闻资讯 > 资源共享

【解决方案】字节转字符自定义函数BytesToBstr

来源:安信科技    浏览: 次    日期:2015年12月26日

 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

亲,试试微信扫码分享本页! *^_^*

精彩推荐