伪造COOKIE及来源地址进行远程提交抓取内容的函数
日期：2010-02-04 浏览次数：20985 次
'********************************************************************************
'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 '文档类型
&nb
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
