Asp - Funcion para titulo de paginas

Códigos Asp

La función del título vuelve una secuencia que representa el título de una pagina web. Explora específicamente un pagina web que busca las etiquetas del título y vuelve lo que está mientras tanto. El path requerido es la trayectoria de una pagina

Tutores.org

Inicio > Asp

Visitas: 16,605 - 18/04/2003

EXPLICACION

Archivos que pueden ser leidos.[ * htm, * html, * asp, * cfm, * cgi, etc... ].

CODIGO

<% 'Codigo ofrecido por Tutores.org %>

<% = Title(server.mappath("/public/ejemplo.html")) %>
Aqui estaria el contenido.
<%
Private Function Title(byVal pathname)
dim objFSO, objFile, a, tmp, firstCt, secondCt
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(pathname, 1, False)
a = objFile.ReadAll()
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
firstCt = InStr(UCASE(a), "<TITLE>") + 7
secondCt = InStr(UCASE(a), "</TITLE>")
tmp = Mid( a, firstCt, secondCt - firstCt )
Title = CStr( Trim( tmp ) )
End Function
%>

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Funcion para titulo de paginas" href="http://www.tutores.org/codigo/302/" target="_blank">Funcion para titulo de paginas</a>

COMENTARIOS

Aun no existe ningun comentario para este Codigo.

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.