| ||||
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> |
| ||||
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 "Marruecos toma la Isla de Perejil" http://www,eradiomx.com/noticia.asp?Id=1220 ¿Como hacerlo? Gracias. ;) |
| |||
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 <meta descrpitio> y el código que hay en <meta Keyword> y por ultimo decir que quieres el contenido que hay entre <title> y </title> |
| ||||
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> ![]() |
| |||
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... <% 'Response.Buffer = True Dim objXMLHTTP, xml ' Create an xmlhttp object: Set xml = Server.CreateObject("Microsoft.XMLHTTP") ' Or, for version 3.0 of XMLHTTP, use: 'Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP&quo t;) xml.Open "GET", "http://www.terra.es/", False xml.Send Dim texto,inicio,final,longitud,texto2 texto=xml.ResponseText texto2=Ucase(texto) inicio=instr(texto2,"<TITLE>") final=instr(texto2,"</TITLE>") longitud=(final-inicio) inicio = inicio + len("<title>") texto2= Mid(texto,inicio) response.write left(texto2,longitud- len("<title>")) Set xml = Nothing %> 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 |
| |||
Re: Capturar titulo de Pagina <% function buscar (url,tagin,tagout) 'Response.Buffer = True' Dim objXMLHTTP, xml, texto,inicio,final,longitud,texto2 ' Create an xmlhttp object:' Set xml = Server.CreateObject("Microsoft.XMLHTTP") ' Or, for version 3.0 of XMLHTTP, use:' 'Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP&quo t;)' xml.Open "GET", 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("http://www.terra.es","<META NAME=""description"" CONTENT="","">") 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 ">. 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 :) ) |