2023-10-08 分類: 網站建設
'==================================================
'函數名:BytesToBstr
'作 用:將獲取的源碼轉換為中文
'參 數:Body ------要轉換的變量
'參 數:Cset ------要轉換的類型
'==================================================
Function BytesToBstr(body,Cset)'BytesToBstr獲取的源碼轉換為響應的代碼
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
標題名稱:獲取遠程網頁內容實例代碼
文章鏈接:http://m.newbst.com/news44/284644.html
成都網站建設公司_創新互聯,為您提供網站維護、品牌網站設計、網頁設計公司、Google、電子商務、品牌網站建設
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯
猜你還喜歡下面的內容