主頁 > 知識庫 > BytesToBstr獲取的源碼轉(zhuǎn)換為中文的代碼

BytesToBstr獲取的源碼轉(zhuǎn)換為中文的代碼
熱門標(biāo)簽：Linux服務(wù)器 銀行業(yè)務(wù) 電子圍欄 團購網(wǎng)站 Mysql連接數(shù)設(shè)置 服務(wù)器配置 阿里云 科大訊飛語音識別系統(tǒng)
'==================================================
'函數(shù)名：BytesToBstr
'作  用：將獲取的源碼轉(zhuǎn)換為中文
'參  數(shù)：Body ------要轉(zhuǎn)換的變量
'參  數(shù)：Cset ------要轉(zhuǎn)換的類型
'==================================================
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

標(biāo)簽：蚌埠 江蘇 棗莊 萍鄉(xiāng) 大理 衡水 衢州 廣元

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《BytesToBstr獲取的源碼轉(zhuǎn)換為中文的代碼》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266