獲取遠程網(wǎng)頁內(nèi)容實例代碼

2023-10-08 分類：網(wǎng)站建設

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

'==================================================
'函數(shù)名：BytesToBstr
'作用：將獲取的源碼轉換為中文
'參數(shù)：Body ------要轉換的變量
'參數(shù)：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

標題名稱：獲取遠程網(wǎng)頁內(nèi)容實例代碼
文章鏈接：http://chinadenli.net/news44/284644.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護、品牌網(wǎng)站設計、網(wǎng)頁設計公司、Google、電子商務、品牌網(wǎng)站建設

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

猜你還喜歡下面的內(nèi)容

欧美一区二区三区老妇人-欧美做爰猛烈大尺度电-99久久夜色精品国产亚洲a-亚洲福利视频一区二区

獲取遠程網(wǎng)頁內(nèi)容實例代碼