新聞資訊

點擊排行

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

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

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

精彩推薦

重庆福利彩票双色球复式 高频11选5走势图河南 13835平特一肖 三肖中特期期准+资料 捕鱼达人2经典版官方下载 山东11选5任五全天计划 山东11选5官网app下载 宁夏11选五遗漏数据查询 王中王493333中特一网 小说 平特肖公式规律专区 拖码和胆码怎么选