Debido a que necesitamos crear algunas interfaces para Montnets WAP, debemos usar este método. A continuación, habrá una versión de ASP.net. Esta es la versión ASP, que utiliza el objeto MSXML2.XMLHTTP.
request.asp
HTTPS atenuado
establecer Https=server.createobject("MSXML2.XMLHTTP")
'Definir un 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>"
si Https.readystate=4 entonces
respuesta.escribir "Envío exitoso"
'Si el estado de lectura del estado de lectura es 4, es exitoso. Continúe. Si no tiene éxito, por supuesto, no es necesario continuar procesando el dim objstream.
establecer objstream = Server.CreateObject("adodb.stream")
'Defina una secuencia, porque será confusa cuando la elimine directamente, por lo que tendrá que lidiar con objstream.Type = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir Https.responseBody
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = "GB2312"
html = objstream.ReadText
'Convierte el código y ponlo en html para cerrar estos objetos objstream.Cerrar
establecer objstream = nada
establecer https=nada
terminar si
respuesta.escribir html
respuesta.asp
'Crear objeto DOMDocument
Establecer xml = Server.CreateObject ("msxml2.DOMDocument")
xml.async = False
'Cargar datos POST
xml.Solicitud de carga
Si xml.parseError.errorCode <> 0 Entonces
Response.write "No se pueden recibir datos correctamente" & "Descripción: " & xml.parseError.reason & "＜br＞Line: " & xml.parseError.Line
Finalizar si
se establece blogchild=xml.getElementsByTagName("misc_command")
'the_text=blogchild.item(0).childnodes(1).texto
'the_text=blogchild.item(0).texto
'para i=0 a blogchild.length-1
Response.write the_text ¡
Con este método, es muy fácil llamar a un servlet o servicio web en ASP!