Asp - Pasar variables entre servidores "Msxml2.ServerXMLHTTP"

Códigos Asp

Aunque Msxml2.ServerXMLHTTP puede usarse para muchos tipos de aplicaciones, en este caso lo utilizaremos para pasar variables entre servidores.

Tutores.org

Inicio > Asp

Visitas: 32,898 - 22-06-2007 13:22:52

EXPLICACION

Guardemos el archivo envio.asp

Debemos de crear un formulario con los campos de las variables que queremos enviar y en la accion del formulario, apuntarlo hacia envio.asp.
Tambien se puede enviar la variable directa a envio.asp, por lo que tendremos que ajustar nuestro request.Form un request.querystring o simple request.
ej. envio.asp?valor=hola

Por otro lado, en el servidor remoto crearemos otro archivo ej. valor.asp, el cual recogera las variables que le enviemos, y segun estas variables mostrara los resultados.

Ej. valor.asp

if request("valor")="hola" then
response.write "1" ' Respuesta correcta

else

response.write "2" ' Respuesta incorrecta
end if
En la zona de nuestro codigo donde indicamos
if respuesta="1" then
.....

Segun la respuesta del servidor remoto o pagina, podremos ejecutar cualquien funcion o accion, actualizar o insertar en base de datos, etc...

CODIGO

<% 'Codigo ofrecido por Tutores.org %>

<%@ Language=VBScript %>
<%
valor=request.Form("valor")
sPostData = "valor=" & server.URLEncode(valor)
set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objHttp.open "POST", "http://www.tutores.org/valor.asp", false
objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.Send sPostData
if (objHttp.status <> 200 ) then
response.Write "ERROR al conectar con el servidor remoto"
else
respuesta = objHttp.responseText
if respuesta="1" then
response.Write "La variable es correcta:<br>"&respuesta
else
response.Write "La variable no es correcta:<br>"&respuesta
end if
end if
%>

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Pasar variables entre servidores "Msxml2.ServerXMLHTTP"" href="http://www.tutores.org/codigo/1673/" target="_blank">Pasar variables entre servidores "Msxml2.ServerXMLHTTP"</a>

COMENTARIOS

Comentario usuario

fortus 22-06-2009 22:36:39

3 5

Hola! me parece perfecto este codigo, mi unica duda, como recibo los datos? mediante request? y donde podria encontrar mas informacion del tema (Msxml2)

Saludos!

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.