asp中xmlhttp组件发包
写的一个小偷函数,注意红色代码部分,其他的自己添加吧!
Function PostHttpPageFrom(HttpUrl,stra,FromUrl)
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "POST",HttpUrl,False
Http.setrequestheader "content-length",len(stra) Http.setrequestheader "content-
type","application/x-www-form-urlencoded"
Http.setrequestheader "Referer",FromUrl
Http.send stra
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage="$False$"
Exit function
End if
PostHttpPageFrom=bytesToBSTR(Http.responseBody,"gb2312") Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open1 d)
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Git 是一个免费且开源的版本控制系统,是目前最为流行的 源代码管理 工具,本篇...
%@ LANGUAGE="VBscript" % % Chunfeng=Request.Cookies("Chunfeng") ' 初始设置...
CentOS Stream是一个持续交付的Linux发行版,它在RHEL之前处于领先地位。它将具...
启动docker服务 systemctl start docker 安装testlink 一、创建一个docker容器的...
在Web开发者中,Google Chrome是使用最广泛的浏览器。六周一次的发布周期和一套...
Visual Studio Code是一款免费开源的现代化轻量级代码编辑器,支持几乎所有主流...
输入框输入内容时总是显示历史输入历史记录,现禁用的方法是添加一个属性: 复制...
Windows 和 Linux 可以说是我们比较常见的两款操作系统的。 Windows 基本占领了...
JavaScript学习十五—内部样式与外部样式的修改与设置 (一)、行内样式 获取方式...
CSS Code 复制内容到剪贴板 .bottomTable{ background-color : rgb (249,249,249...