asp中xmlhttp组件发包

在ASP中，使用xmlhttp组件发包，我们可以编写一个功能强大的“小偷函数”，专门用于发送HTTP请求。让我们重点关注一下红色代码部分，其余部分请根据您的需求自行添加。

函数名为PostHttpPageFrom，它接受三个参数：HttpUrl、stra和FromUrl。我们创建一个MSXML2.XMLHTTP对象，用于处理HTTP请求。通过Http.open方法，我们以POST方式打开指定的HttpUrl。

接下来，我们设置请求头信息。通过Http.setrequestheader方法，我们设置了内容长度、内容类型和来源页面。内容长度是传递数据的长度，内容类型被设置为“application/x-www-form-urlencoded”，表示我们发送的是表单数据。来源页面则通过Referer头指定。

然后，我们使用Http.send方法发送数据。在发送数据后，我们检查Http的Readystate属性是否等于4，表示请求已完成。如果未完成，我们释放Http对象并退出函数。如果请求完成，我们从HttpResponse中获取响应体，并将其转换为字符串。这里使用了bytesToBSTR函数来将字节转换为字符串，并指定字符集为“gb2312”。

如果在执行过程中发生错误，我们会清除错误。这就是PostHttpPageFrom函数的基本流程。

接下来是BytesToBstr函数的说明。这个函数用于将字节数据转换为字符串。它创建一个adodb.stream对象，先以二进制模式写入数据，然后转换为文本模式并读取文本内容。通过指定字符集，我们可以得到相应的字符串。函数最后关闭流对象并释放内存。

这个“小偷函数”能够发送HTTP POST请求并获取响应。通过修改参数和请求头信息，您可以适应不同的场景和需求。这个函数的实现既简洁又实用，是您进行Web开发时的好帮手。