新聞資訊

點擊排行

您現在的位置:首頁 > 新聞資訊 > 資源共享

【解決方案】字節轉字符自定義函數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

親,試試微信掃碼分享本頁! *^_^*

精彩推薦

重庆福利彩票双色球复式 黑龙江福彩p62走势 辽宁11选五历史数据 股票发行数量怎么确 吉林十一选五基本走势 时时彩软件官网 广东11选五预测计划 体育彩票大乐透 江西快三哪里可以购买 辽宁11选5app手机版下载 双码四四代表什么数字