Ver Mensaje Individual
  #3 (permalink)  
Antiguo 27/07/2004, 01:52
Avatar de affv
affv
 
Fecha de Ingreso: diciembre-2002
Ubicación: Ahora aqui
Mensajes: 485
Antigüedad: 22 años, 4 meses
Puntos: 0
Pues mira... me he revisado casi todos los post del foro relacionados con el tema y encontre uno muy bueno y desde el logre hacer un script que me diera el tipo de cambio del dolar para mi pais extraido desde otra web.
mira te dejo un ejemplo de como ver el codigo fuente de un web y como mostrar contenidos de otra web.

Ver Codigo Fuente de una web

sourse.asp
Código:
<%
Web = Request.QueryString("Web")
If Web <> "" Then

	On Error Resume Next
	
	Set MyWeb = CreateObject("Microsoft.XMLHTTP")
	MyWeb.Open "Get",Web,False
	MyWeb.Send
			MySourse = MyWeb.ResponseText
			Response.Write("<textarea rows='35' cols='150'>"&MySourse&"</textarea>")
	Set MyWeb = Nothing

	If Err.Number <> 0 Then
		Response.Write(Err.Number&"<br>")
		Response.Write(Err.Description)
	End If
	
End If
Response.Write("<form method='GET' action='?'><input type='text' name='Web' size='30' value='"&Web&"'><input type='submit' value='View Sourse'></form>")
%>
mostrar el contenido de otra web
show_web.asp
Código:
<%
On Error Resume Next

Set MyWeb = CreateObject("Microsoft.XMLHTTP")
	MyWeb.Open "Get","http://www.maestrosdelweb.com",False
	MyWeb.Send
	MySourse = MyWeb.ResponseText
		Response.Write(MySourse)
Set MyWeb = Nothing

If Err.Number <> 0 Then
	Response.Write(Err.Number&"<br>")
	Response.Write(Err.Description)
End If
%>
si deseas mas informacion ve al siguiente link
http://www.forosdelweb.com/showthrea...hlight=XMLHTTP
__________________
Todo tiene un comienzo y un fin!!
Postea tus proyectos