一小段代码展示asp中小偷的核心部分
Dim SenFe_Code
Dim Http : Set Http = Server.CreateObject("Msxml2.ServerXMLHTTP")
With Http
.Open "POST","网址",False
.SetRequestHeader "Referer","页面来源"
.SetRequestHeader "Cookie","Cookie内容"
.SetRequestHeader "Accept-Language","语言"
.SetRequestHeader "Content-Length","要提交的数据长度"
.SetRequestHeader "Content-Type","接受数据类型"
.SetRequestHeader "User-Agent","浏览器类型"
.SetRequestHeader "Accept-Encoding","gzip压缩"
.SetRequestHeader "Accept","文档类型"
.Send "要提交的参数"
If .ReadyState = 4 And .Status = 200 Then
'返回的内容
'SenFe_Code = .ResponseBody
SenFe_Code = .ResponseText
'SenFe_Code = .getResponseHeader("Set-Cookie")
'SenFe_Code = .getAllResponseHeaders()
Else
SenFe_Code = "错误"
End If
End With
%>
from:asp学习网/title:一小段代码展示asp中小偷的核心部分/ time:2007-1-15 23:13:09
本文主题一小段代码展示asp中小偷的核心部分
