獲取遠程網頁內容實例代碼

2023-10-08 分類：網站建設

Function getHTTPPage(url) 'Asp 獲取遠程網頁內容實例代碼
dim http
set http=Server.createobject("Microsoft.XMLHTTP")'建立XMLHTTP對象
Http.open "GET",url,false '設置http對象打開體例 GET體例，URL[連接頁面地址]，同步處理
Http.send() '發送請求
if Http.readystate<>4 then'對象處理狀況為非結束
exit function '退出函數
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")'BytesToBstr獲取的源碼轉換為中文的代碼
set http=nothing '消滅對象
if err.number<>0 then err.Clear '消滅錯誤
End function

'==================================================
'函數名：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://www.kartarina.com/news44/284644.html

成都網站建設公司_創新互聯，為您提供網站維護、品牌網站設計、網頁設計公司、Google、電子商務、品牌網站建設

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源：創新互聯

猜你還喜歡下面的內容