• 首页
• 服务器租用
• 企业邮箱
• 虚拟主机
• 网站程序
• 营销推广
• 网站建设
• 域名注册
• 前端开发
• 网站备案

• 当前位置：创新互联 >> 常见问题 >> 网站建设 >> 网站制作 >> 伪造COOKIE及来源地址进行远程提交抓取内容的函数

伪造COOKIE及来源地址进行远程提交抓取内容的函数

• 作者：创新互联 文章来源：网站建设部 点击数： 更新时间：2010-12-02
• 　　今天创新互联网站建设小编又来跟大家讲讲网站制作中的代码问题吧。马上要说到的是伪造COOKIE及来源地址进行远程提交抓取内容的函数。呵呵，这可不是教你做黑客哦，内容仅供网站设计爱好者们参考哦。
  'Function(公有)
  '名称：远程抓取函数
  '作用：利用XMLHTTP远程抓取数据
  '参数：sMethod --- 发送方式
  'sUrl ------ 目标地址
  'iMode ----- 返回内容类型：0为二进制，1为文本，2为cookie，3为文件头信息
  'sBase ----- 设定编码
  'sReferer -- 设定来源
  'sCookie --- 设定cookie
  'sLanguage - 设定语言
  'sData ----- 设定要发送的参数
  'sContent -- 设定接收数据类型
  'sAgent ---- 设定浏览器
  'sEncoding - 设定gzip压缩
  'sAccept --- 设定文档类型
  '********************************************************************************
  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
  '设定页面来源
  If sReferer<>"" Then
  .SetRequestHeader "Referer", sReferer
  Else
  .SetRequestHeader "Referer", Split(sUrl, "/")(2)
  End If
  If sCookie<>"" Then.SetRequestHeader "Cookie", sCookie'设定Cookie
  If sLanguage<>"" Then.SetRequestHeader "Accept-Language", sLanguage'设定语言
  If sData<>"" Then.SetRequestHeader "Content-Length", Len(sData)'设定数据长度
  If sContent<>"" Then.SetRequestHeader "Content-Type", sContent'设定接受数据类型
  If sAgent<>"" Then.SetRequestHeader "User-Agent", sAgent'设定浏览器
  If sEncoding<>"" Then.SetRequestHeader "Accept-Encoding", sEncoding'设定gzip压缩
  If sAccept<>"" Then.SetRequestHeader "Accept", sAccept'文档类型
  .Send sData
  'While .ReadyState <> 4
  '.WaitForResponse 1000
  'Wend
  If .ReadyState<>4 Or .Status<>200 Then
  SenFe_StealData = "无法取到数据！"
  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
  '********************************************************************************
  '作用：编码转换
  '参数：sBody - 要转换的内容
  '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
• 提高网站访问速度的终极技巧 :上一篇
  什么网站算好站? :下一篇