SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Asp
Code

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.
Visitas: 31,071 - 22-06-2007 13:22:52
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
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 probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%@ Language=VBScript %>
  2. <%
  3. valor=request.Form("valor")
  4. sPostData = "valor=" & server.URLEncode(valor)
  5. set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
  6. objHttp.open "POST", "http://www.tutores.org/valor.asp", false
  7. objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
  8. objHttp.Send sPostData
  9. if (objHttp.status <> 200 ) then
  10. response.Write "ERROR al conectar con el servidor remoto"
  11. else
  12. respuesta = objHttp.responseText
  13. if respuesta="1" then
  14. response.Write "La variable es correcta:<br>"&respuesta
  15. else
  16. response.Write "La variable no es correcta:<br>"&respuesta
  17. end if
  18. end if
  19. %>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<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>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
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.