
01/09/2005, 11:26
|
 | Colaborador | | Fecha de Ingreso: enero-2002 Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses Puntos: 146 | |
Cita: A ver, no es necesario tener php instalado. Yo lo que quiero es que en una página EN ASP, se incluya una página en PHP. Bueno, la página a la que hice refernecia dice que si, e incluso al probar por ejemplo <object type="text/html" data="http://url.org/script.php"></object>, en el navegador aparece una ventana indicando que se esta a punto de ejecutar un código externo del que podría no tener control. Pero supuse que por no tener el PHP, fue que no me regreso nada. Cita: O lo que podría ser lo mismo, que en una página en ASP se incluya un código HTML externo.
¿Cuál es el código en ASP para hacer esto? aaaahhh, para eso puedes utilizar un código como este:
Código:
<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://dsrefa01.hsbc.com.mx/aptrix/InternetPub.nsf/Content/TasasSplash", False
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"DOLAR AMERICANO")
PosIni2 = InStr(PosIni1,Cadena,"$")
PosFin = InStr(PosIni2, Cadena,"<")
DolarCompra = MID(Cadena, PosIni2, PosFin-PosIni2)
PosIni1 = PosFin
PosIni2 = InStr(PosIni1,Cadena,"$")
PosFin = InStr(PosIni2, Cadena,"<")
DolarVenta = MID(Cadena, PosIni2, PosFin-PosIni2)
Response.Write "Dolar Compra: " & DolarCompra & "<br>"
Response.Write "Dolar Venta: " & DolarVenta & "<br>"
Session.LCID = 2058
Response.Write "100 pesos son en dolares: " & FormatNumber((100 / CDbl(MID(DolarVenta,InStr(DolarVenta,";")+1,LEN(DolarVenta)))),2) & "<br>"
Response.Write Cadena & "<br>"
Set xml = Nothing
%>
|