• 當前位置：創(chuàng)新互聯(lián) >> 常見問題 >> 網(wǎng)站建設(shè) >> 網(wǎng)站制作 >> 偽造COOKIE及來源地址進行遠程提交抓取內(nèi)容的函數(shù)

偽造COOKIE及來源地址進行遠程提交抓取內(nèi)容的函數(shù)

• 作者：創(chuàng)新互聯(lián) 文章來源：網(wǎng)站建設(shè)部 點擊數(shù)： 更新時間：2010-12-02
• 　　今天創(chuàng)新互聯(lián)網(wǎng)站建設(shè)小編又來跟大家講講網(wǎng)站制作中的代碼問題吧。馬上要說到的是偽造COOKIE及來源地址進行遠程提交抓取內(nèi)容的函數(shù)。呵呵，這可不是教你做黑客哦，內(nèi)容僅供網(wǎng)站設(shè)計愛好者們參考哦。
  'Function(公有)
  '名稱：遠程抓取函數(shù)
  '作用：利用XMLHTTP遠程抓取數(shù)據(jù)
  '參數(shù)：sMethod --- 發(fā)送方式
  'sUrl ------ 目標地址
  'iMode ----- 返回內(nèi)容類型：0為二進制，1為文本，2為cookie，3為文件頭信息
  'sBase ----- 設(shè)定編碼
  'sReferer -- 設(shè)定來源
  'sCookie --- 設(shè)定cookie
  'sLanguage - 設(shè)定語言
  'sData ----- 設(shè)定要發(fā)送的參數(shù)
  'sContent -- 設(shè)定接收數(shù)據(jù)類型
  'sAgent ---- 設(shè)定瀏覽器
  'sEncoding - 設(shè)定gzip壓縮
  'sAccept --- 設(shè)定文檔類型
  '********************************************************************************
  Public Function SenFe_StealData(sMethod, sUrl, iMode, sBase, sReferer, sCookie, sLanguage, sData, sContent, sAgent, sEncoding, sAccept)
  Dim oXmlHttp : Set oXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
  With oXmlHttp
  If sMethod="" Then sMethod = "GET"
  .Open sMethod, sUrl, False
  '設(shè)定頁面來源
  If sReferer<>"" Then
  .SetRequestHeader "Referer", sReferer
  Else
  .SetRequestHeader "Referer", Split(sUrl, "/")(2)
  End If
  If sCookie<>"" Then.SetRequestHeader "Cookie", sCookie'設(shè)定Cookie
  If sLanguage<>"" Then.SetRequestHeader "Accept-Language", sLanguage'設(shè)定語言
  If sData<>"" Then.SetRequestHeader "Content-Length", Len(sData)'設(shè)定數(shù)據(jù)長度
  If sContent<>"" Then.SetRequestHeader "Content-Type", sContent'設(shè)定接受數(shù)據(jù)類型
  If sAgent<>"" Then.SetRequestHeader "User-Agent", sAgent'設(shè)定瀏覽器
  If sEncoding<>"" Then.SetRequestHeader "Accept-Encoding", sEncoding'設(shè)定gzip壓縮
  If sAccept<>"" Then.SetRequestHeader "Accept", sAccept'文檔類型
  .Send sData
  'While .ReadyState <> 4
  '.WaitForResponse 1000
  'Wend
  If .ReadyState<>4 Or .Status<>200 Then
  SenFe_StealData = "無法取到數(shù)據(jù)！"
  Exit Function
  End If
  Select Case iMode
  Case 0 SenFe_StealData = .ResponseBody
  Case 1
  If sBase<>"" Then
  SenFe_StealData = BytesToBstr(.ResponseBody, sBase)
  Else
  SenFe_StealData = .ResponseText
  End If
  Case 2 SenFe_StealData = .getResponseHeader("Set-Cookie")
  Case Else SenFe_StealData = .getAllResponseHeaders()
  End Select
  End With
  End Function
  '********************************************************************************
  '作用：編碼轉(zhuǎn)換
  '參數(shù)：sBody - 要轉(zhuǎn)換的內(nèi)容
  'sCset - 編碼
  '********************************************************************************
  Function BytesToBstr(sBody, sCset)
  With oAdos
  .Type = 1
  .Mode = 3
  .Open
  .Write sBody
  .Position = 0
  .Type = 2
  .Charset = sCset
  BytesToBstr = .ReadText
  .Close
  End With
  End Function
• 提高網(wǎng)站訪問速度的終極技巧 :上一篇
  什么網(wǎng)站算好站? :下一篇