Foros del Web » Programando para Internet » ASP Clásico »

Capturar titulo de Pagina

Estas en el tema de Capturar titulo de Pagina en el foro de ASP Clásico en Foros del Web. Me gustaria poder capturar el nombre de la pagina, esto es, tengo un sistema de recomienda a un amigo, y al enviarlo, manda el enlace, ...
  #1 (permalink)  
Antiguo 11/08/2002, 05:42
Avatar de garcef  
Fecha de Ingreso: agosto-2001
Ubicación: Querétaro, México
Mensajes: 289
Antigüedad: 23 años, 8 meses
Puntos: 0
Capturar titulo de Pagina

Me gustaria poder capturar el nombre de la pagina, esto es, tengo un sistema de recomienda a un amigo, y al enviarlo, manda el enlace, hasta ahi, bien, pero ahora quisiera que tambien se enviara el titulo de la pagina :P
  #2 (permalink)  
Antiguo 11/08/2002, 05:59
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 23 años, 3 meses
Puntos: 1
Re: Capturar titulo de Pagina

El titulo de la pagina de quien?
Si usan un formulario para recomenedar que esta en una pagina tuya , esta siempre tendra las misma URL y el mismo titulo, lo puedes almacenar en una constante.

Si no es eso explicate mejor, porque no creo haberlo cogido.

Jose Maria Fernandez
<a href="mailto:[email protected]">Webmaster @expansionweb.net</a>
<a target="_blank" href="Http://www.expansionweb.net">Http://www.expansionweb.net</a>
  #3 (permalink)  
Antiguo 11/08/2002, 23:56
Avatar de garcef  
Fecha de Ingreso: agosto-2001
Ubicación: Querétaro, México
Mensajes: 289
Antigüedad: 23 años, 8 meses
Puntos: 0
Re: Capturar titulo de Pagina

Hola Maestro!
Sucede que tengo un formulario mas o menos
asi.

Tu Nombre:
tu correo:
el correo de tu amigo
Comentarios

hasta ahi bien, cuando lo recibe el amigo, lo recibe asi

De: Perenganito uyuyuy
para: tralala trilili
Mensaje:
Una amigo te recomienda esta pagina que sera de mucho interes para ti

http://www,eradiomx.com/noticia.asp?Id=1220


Ahora bien, seria interesante que ademas de enviar el enlace se mostrara asi:

Una amigo te recomienda esta pagina que sera de mucho interes para ti

&quot;Marruecos toma la Isla de Perejil&quot;
http://www,eradiomx.com/noticia.asp?Id=1220

¿Como hacerlo?

Gracias.
;)
  #4 (permalink)  
Antiguo 12/08/2002, 02:52
 
Fecha de Ingreso: agosto-2002
Mensajes: 8
Antigüedad: 22 años, 9 meses
Puntos: 0
Re: Capturar titulo de Pagina

bueno yo tengo una duda parecida, yo con el objeto XMLHTTP consigo obtener todo el código html de una página, el tema es saber como puedo de esa Variable .. extraer los campos META DECRIPTION y META KEYWORDS, tambien el TITLE.
Hay alguna manera de decir que quieres obtener todo el código que hay entre &lt;meta descrpitio&gt; y el código que hay en &lt;meta Keyword&gt; y por ultimo decir que quieres el contenido que hay entre &lt;title&gt; y &lt;/title&gt;
  #5 (permalink)  
Antiguo 12/08/2002, 06:46
Avatar de rbld  
Fecha de Ingreso: agosto-2002
Mensajes: 10
Antigüedad: 22 años, 9 meses
Puntos: 0
Re: Capturar titulo de Pagina

Una vez que tienes el código en una variable puedes tratar la cadena para sacar lo que quieras de ella.

Mira este enlace.
En tu caso necesitarás mid // instr y quizás el left.

<a href='ir.asp?http://www.webestilo.com/asp/asp04d.phtml' target='_blank'>http://www.webestilo.com/asp/asp04d.phtm...</a>

  #6 (permalink)  
Antiguo 12/08/2002, 07:41
 
Fecha de Ingreso: agosto-2002
Mensajes: 8
Antigüedad: 22 años, 9 meses
Puntos: 0
Re: Capturar titulo de Pagina

bueno el tema del title está solucionado .. ahi teneis como pillar el tema del titulo de una web.. ahora modificaré para convertirlo en una funcion y que se pasen como parametros, la URL, y lo que se quiere buscar...
&lt;%
'Response.Buffer = True
Dim objXMLHTTP, xml

' Create an xmlhttp object:
Set xml = Server.CreateObject(&quot;Microsoft.XMLHTTP&quot;)
' Or, for version 3.0 of XMLHTTP, use:
'Set xml = Server.CreateObject(&quot;MSXML2.ServerXMLHTTP&quo t;)


xml.Open &quot;GET&quot;, &quot;http://www.terra.es/&quot;, False
xml.Send

Dim texto,inicio,final,longitud,texto2


texto=xml.ResponseText
texto2=Ucase(texto)
inicio=instr(texto2,&quot;&lt;TITLE&gt;&quot;)
final=instr(texto2,&quot;&lt;/TITLE&gt;&quot;)
longitud=(final-inicio)
inicio = inicio + len(&quot;&lt;title&gt;&quot;)
texto2= Mid(texto,inicio)
response.write left(texto2,longitud- len(&quot;&lt;title&gt;&quot;))



Set xml = Nothing
%&gt;


bueno os podeis apiadar de mi que no soy bueno en el tema del ASP llevo poco pero bueno. El único problema es que los acentos, eñes etc... creo que no los trata bien pero algo es algo
  #7 (permalink)  
Antiguo 12/08/2002, 09:03
 
Fecha de Ingreso: agosto-2002
Mensajes: 8
Antigüedad: 22 años, 9 meses
Puntos: 0
Re: Capturar titulo de Pagina

&lt;% function buscar (url,tagin,tagout)

'Response.Buffer = True'
Dim objXMLHTTP, xml, texto,inicio,final,longitud,texto2

' Create an xmlhttp object:'
Set xml = Server.CreateObject(&quot;Microsoft.XMLHTTP&quot;)
' Or, for version 3.0 of XMLHTTP, use:'
'Set xml = Server.CreateObject(&quot;MSXML2.ServerXMLHTTP&quo t;)'
xml.Open &quot;GET&quot;, url, False
xml.Send

texto=xml.ResponseText
texto2=Ucase(texto)
tagin=Ucase(tagin)
tagout=Ucase(tagout)
inicio=instr(texto2,tagin)
texto2= Mid(texto,inicio + len(tagin))
texto3= Ucase(texto2)
final=instr(texto3,tagout)
Response.Write left(texto2, final - 1)
Set xml = Nothing
end function
Response.Write buscar(&quot;http://www.terra.es&quot;,&quot;&lt;META NAME=&quot;&quot;description&quot;&quot; CONTENT=&quot;&quot;,&quot;&quot;&gt;&quot;)

Ahi está la función, con esta función se puede obtener el texto que hay entre 2 tags, si por ejemplo quieres obtener la descripcción de una web se haria de esta manera el tag de cierre sería &quot;&gt;.
El problema sigue siendo el mismo no entiende de acentos.. o eso es lo que pasa en mi server de pruebas ( a lo mejor está mal instalado o no :) )
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:28.