Como precisamos fazer algumas interfaces para Montnets WAP, precisamos usar este método. A seguir, haverá uma versão ASP.net. Esta é a versão ASP, que usa o objeto MSXML2.XMLHTTP.
solicitação.asp
escurecer HTTPS
definir Https=server.createobject("MSXML2.XMLHTTP")
'Definir um objeto XMLHTTP
Https.open "POST"," http://127.0.0.1/testpost/response.asp",falso
Https.send "<?xml version=""1.0""?><misc_command version=""1.6""><command_name>echo</command_name>
<command_data_block><sid>123456</sid><service_id>987654</service_id>
<sp_id>11111</sp_id><sp_password>22222</sp_password></command_data_block>
</misc_command>"
se Https.readystate=4 então
response.write "Envio bem-sucedido"
'Se o status de leitura do readstate for 4, foi bem-sucedido. Continue. Se não for bem-sucedido, é claro que não há necessidade de continuar processando dim objstream.
definir objstream = Server.CreateObject("adodb.stream")
'Defina um fluxo, porque ele ficará distorcido quando você retirá-lo diretamente, então você terá que lidar com objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Write Https.responseBody
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = "GB2312"
html = objstream.ReadText
'Converta o código e coloque em html para fechar esses objetos objstream.Close
definir objstream = nada
definir https = nada
terminar se
response.write html
response.asp
'Criar objeto DOMDocument
Definir xml = Server.CreateObject ("msxml2.DOMDocument")
xml.async = False
'Carregar dados POST
Solicitação xml.Load
Se xml.parseError.errorCode <> 0 Então
response.write "Não é possível receber dados corretamente" & "Descrição: " & xml.parseError.reason & "＜br＞Line: " & xml.parseError.Line
Fim se
definido blogchild=xml.getElementsByTagName("misc_command")
'the_text=blogchild.item(0).childnodes(1).text
'the_text=blogchild.item(0).texto
'para i=0 para blogchild.length-1
response.write the_text
Usando este método, é muito fácil chamar Servlet ou Web Service em ASP!