美女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
    主站蜘蛛池模板: 特别福利视频在线观看 | 成人激情在线 | 中国国产一级毛片视频 | 全部免费国产潢色一级 | 国产在线一区在线视频 | 欧美日韩网 | 国产亚洲精品色一区 | 国产日产欧产精品精品软件 | 一国产大片在线观看 | 国内精品第一页 | 日本黄色站 | 在线欧美日韩精品一区二区 | 国产成年女一区二区三区 | 性欧美视频videos6一9 | 中国日本高清免费视频网 | 一级毛片 在线播放 | 中国大陆一级毛片 | 综合成人在线 | riav久久中文一区二区 | 手机看片1024国产基地 | 曰本一级毛片免费 | 91精品国产91久久久久久 | 福利在线看 | 性视频网站免费 | 韩国三级日本三级香港三级黄 | 国产在线爱做人成小视频 | 另类色综合| 亚洲九九色 | 波多野结衣中文在线 | 国产免费三a在线 | 日本亚洲精品一区二区三区 | 手机看片福利在线 | 成人免费视频欧美 | 一级女性全黄久久生活片 | 国内自产拍自a免费毛片 | 女人18毛片a级18毛多水真多 | 黄页网站在线免费观看 | 日韩aa在线观看 | 中文字幕在线视频免费 | 国产成人一区免费观看 | 国产精品亚洲欧美大片在线看 |