国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

BytesToBstr獲取的源碼轉(zhuǎn)換為中文的代碼

2020-07-27 13:05:52
字體：大 中 小
供稿：網(wǎ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

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 闻喜县| 黄石市| 来宾市| 馆陶县| 灵石县| 辽中县| 武鸣县| 辉县市| 深圳市| 天气| 九江县| 禄丰县| 稻城县| 苍溪县| 太白县| 美姑县| 平山县| 库车县| 彝良县| 银川市| 延寿县| 额敏县| 镇沅| 五大连池市| 海兴县| 石狮市| 彭水| 宜黄县| 鸡西市| 定远县| 左贡县| 大荔县| 旬阳县| 龙泉市| 陆良县| 大丰市| 水富县| 云林县| 云南省| 乌鲁木齐市| 霍山县|