asp中xmlhttp组件发包

asp中的xmlhttp组件发包小技巧——一个实用函数

在asp编程中，我们常常需要使用xmlhttp组件进行网络交互。下面是一个利用xmlhttp组件进行POST请求的函数，特别要注意红色代码部分，这是函数的核心部分，其余部分请根据实际情况自行添加。

Function PostHttpPageFrom(HttpUrl, stra, FromUrl)

我们创建一个xmlhttp对象，利用MSXML2.XMLHTTP组件实例化。这个组件能够帮助我们发送HTTP请求。

Dim Http

Set Http=server.createobject("MSXML2.XMLHTTP")

接下来，我们设置HTTP请求的方法为POST，并指定请求的URL。同时设置请求头信息，包括内容长度、内容类型和来源网页。

Http.open "POST", HttpUrl, False

Http.setRequestHeader "content-length", len(stra)

Http.setRequestHeader "content-type", "application/x-www-form-urlencoded"

Http.setRequestHeader "Referer", FromUrl

然后，我们发送POST请求，并等待响应。如果响应状态不是4（即请求已完成），则结束函数。否则，将响应体转换为字符串并返回。

Http.send stra

If Http.ReadyState <> 4 Then

Set Http=Nothing

Exit Function

End If

PostHttpPageFrom = BytesToBSTR(Http.responseBody, "gb2312")

Set Http=Nothing

If Err.Number <> 0 Then

Err.Clear

End If

End Function

为了完成响应体的转换，我们还需要一个BytesToBSTR函数，这个函数可以将字节流转换为字符串。以下是该函数的实现：

Function BytesToBstr(Body, Cset)

Dim Objstream

Set Objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1 '定义流类型为二进制

objstream.Mode = 3 '定义流模式为读写模式

objstream.Open() '打开流

objstream.Write body '写入字节流到流中

objstream.Position = 0 '设置流位置为起始位置

objstream.Type = 2 '定义流类型为文本类型

objstream.Charset = Cset '设置字符集编码

BytesToBstr = objstream.ReadText '读取流中的文本内容

objstream.Close '关闭流

Set objstream = Nothing '释放对象

End Function

以上就是我们利用asp中的xmlhttp组件进行网络发包的一个实用函数。它能够帮助我们在asp应用中快速完成HTTP POST请求，获取响应数据并进行处理。在实际使用中，请根据实际情况调整函数参数和逻辑。