悠悠博客 关注Ajax技术与web开发

<%
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
%>