set Https=server.createobject("MSXML2.XMLHTTP") 

"定义一个XMLHTTP对像 

Https.open "POST","http://127.0.0.1/testpost/response.asp",false 

Https.send " echo 

123456 987654 

11111 22222 " 

if Https.readystate=4 then 

　response.write "提交成功" 

　"readstate读取状态为4则成功，继续后面的，不成功当然就不用继续处理了 

　dim objstream 

　set objstream = Server.CreateObject("adodb.stream") 

　"定义一个stream，因为读过来的直接拿出来是乱码的，所以得处理一下 

　objstream.Type = 1 

　objstream.Mode =3 

　objstream.Open 

　objstream.Write Https.responseBody 

　objstream.Position = 0 

　objstream.Type = 2 

　objstream.Charset = "GB2312" 

　html = objstream.ReadText 

　"转好码，就放到html里，好关闭这些对像 

　objstream.Close 

　set objstream = nothing 

　set https=nothing 

end if 

response.write html

response.asp

"创建DOMDocument对象 

Set xml = Server.CreateObject ("msxml2.DOMDocument") 

xml.async = False

"装载POST数据 

xml.Load Request 

If xml.parseError.errorCode <> 0 Then 

　response.write "不能正确接收数据" & "Description: " & xml.parseError.reason & "＜br＞Line: " & xml.parseError.Line 

End If

set blogchild=xml.getElementsByTagName("misc_command") 

"the_text=blogchild.item(0).childnodes(1).text 

"the_text=blogchild.item(0).text 

"for i=0 to blogchild.length-1 

response.write the_text

高端网站建设价格套餐：

500元成品模板网站套餐1000元基础型网站套餐1800元标准定制设计套餐2800元精美定制设计套餐3800-8000元商务型套餐行业门户型套餐其它定制套餐 文章由重庆一佰互联高端网站建设http://www.yinxi.net编辑整理，转载请注明出处