美女91-美女18一级毛片免费看-美女18毛片免费视频-美女18毛片-美乃雀中文字幕在线一区-美美女高清毛片视频免费观看

蒙狼科技logo
設為首頁| 聯系我們
咨詢熱線: 13917498722
  您的位置: 首頁 > 網站資訊 > 獲取遠程網頁代碼內容GetRemoteData

獲取遠程網頁代碼內容GetRemoteData

發布日期:2017/8/20
獲取遠程網頁代碼內容GetRemoteData

<%

 '================================================
 '函數名:GetRemoteData
 '作  用:獲取遠程網頁代碼內容,獲取HTTP頁
 '參  數:url   ----遠程URL
 '語 言:VbScript (ASP)
 '返回值:遠程HTML代碼
 '================================================
 Public Function GetRemoteData(ByVal URL)
  Cset = "GB2312" '設置遠程網頁的編碼體例
  Dim strHeader
  Dim l
  
  On Error Resume Next
  
  Dim Retrieval
  Dim ObjStream
  Set ObjStream = CreateObject("ADODB.Stream")
  ObjStream.Type = 1
  ObjStream.Mode = 3
  ObjStream.Open
  Set Retrieval = CreateObject("MSXML2.XMLHTTP")
  With Retrieval
   .Open "GET", URL, False
   .setRequestHeader "Referer", URL
   .send
   If .readyState <> 4 Then Exit Function
   If .Status > 300 Then Exit Function
   '--獲取遠程目標網頁文件頭
   strHeader = .getResponseHeader("Content-Type")
   strHeader = UCase(strHeader)
   ObjStream.Write (.responseBody)
  End With
  Set Retrieval = Nothing
  
  If Len(strHeader) > 0 Then
   '--獲取目標網頁文件編碼
   l = InStrRev(strHeader, "CHARSET=", -1, 1)
   If l > 0 Then
    Cset = Right(strHeader, Len(strHeader) - l - 7)
   Else
    Cset = Cset
   End If
  End If

  ObjStream.Position = 0
  ObjStream.Type = 2
  ObjStream.Charset = Trim(Cset)
  GetRemoteData = ObjStream.ReadText
  ObjStream.Close
  Set ObjStream = Nothing
  Exit Function
 End Function

%>





其他相關文章
  • 如何能夠更好的進行網站搭建
  • 淺談做seo真的需要懂技術嗎?
  • 互聯網對企業發展起到哪些作用?
  • 偽靜態實戰織夢cms在Apache中設置三步走
  • 引用類型與值類型有什么區別
  • 如何提升網站的客戶回頭率




  • 企業網站后臺使用
    購物網站后臺使用
    網站產品圖片的處理



    農業銀行支付
    建設銀行支付
    郵政儲蓄銀行支付



    企業網站建設
    整站建設
    購物網站



    企業網站建設建議
    注冊適合自己的域名
    什么是虛擬主機




    售前咨詢QQ: 838821345
    售后服務QQ: 464698733
    應急手機:13917498722


    微信掃一掃
    添加24小時微信客服


    郵箱:lang@MENGL.CN
    地址:上海寶山區城銀路555弄2號樓3樓
    ICP備案:滬ICP備12042844號-3
     滬公網安備:31011402002917號
    做網站 | 企業網站建設 | 上海做網站 | 企業網站制作 | 做網站的公司 | 關于蒙狼 | 整站建設 | 購物網站 | 企業網絡營銷 | 成功案例 | 加盟代理 | 在線訂單
    服務區域: 臨港新區做網站 徐匯做網站 閔行做網站 長寧做網站 虹口做網站 黃浦做網站 盧灣做網站 靜安做網站 浦東做網站 楊浦做網站 普陀做網站 閘北做網站 寶山做網站 嘉定做網站 松江做網站 昆山做網站
    Copyright 2012-2025 上海蒙狼網絡科技有限公司 m.aqdzp.cn All Rights Reserved
    主站蜘蛛池模板: 国产第一页精品 | 日韩黄色大片免费看 | 日本三区四区免费高清不卡 | 亚洲精品午夜视频 | 国产精品美女一区二区 | 亚洲欧美另类国产 | 伊人久久大香 | 国产三级视频在线 | 久草热草| 一级毛片国产真人永久在线 | 中国免费xxxx免费视频 | 免费看aⅴ | 一级日本强免费 | 成人网18免费网站在线 | 高清国产一级毛片国语 | 欧美一级看片a免费视频 | 日韩爱爱小视频 | 免费毛片看| 欧美专区日韩 | 韩国一级片视频 | 小小的日本高清在线观看 | 国产在线视频你懂得 | 亚洲国产精品线播放 | 美女三级视频 | 九九热久久免费视频 | 欧美二区视频 | 国产成人精品cao在线 | 国产女人在线观看 | 亚洲欧美日韩高清一区二区三区 | 一本大道香一蕉久在线影院 | 成 人网站免费 | 国产高清美女一级毛片图片 | 亚洲人成a在线网站 | 亚洲国产精品久久久天堂 | 国产亚洲新品一区二区 | 国产成人一区二区三区影院免费 | 久久久午夜精品理论片 | 亚洲午夜视频在线 | 国产成人福利夜色影视 | 亚洲欧美日韩精品在线 | 亚洲第九页|