Mostrando Codigo - Asp
Leer archivo de texto
Abrimos un archivo de texto y mostramos su contenido
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
<html>
<head>
</head>
<body>
<%' Codigo ofrecido por tutores.org
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objTextStream
const strFileName = "d:websites uarchivo_de_texto.txt"
const fsoForReading = 1
If objFSO.FileExists("d:\websites uarchivo_de_texto.txt") then
èl archivo es encontrado y mostramos el contenido
Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
Response.Write "<PRE>" & objTextStream.ReadAll & "</PRE>"
objTextStream.Close
Set objTextStream = Nothing
Else
'el archivo no existe
Response.Write strFileName & " no se encontro."
End If
'Clean up
Set objFSO = Nothing
%>
</body>
</html>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Leer archivo de texto" href="http://www.tutores.org/codigo/14/" target="_blank">Leer archivo de texto</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Leer archivo de texto" href="http://www.tutores.org/codigo/14/" target="_blank">Leer archivo de texto</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Esteban 05-11-2010 15:45:34
cuanto tiempo publicado y ningun comentario.
debo decir que el codigo funciona de maravillas, me oriento de forma clara para lograr lo que necesitaba......
Grax.....
debo decir que el codigo funciona de maravillas, me oriento de forma clara para lograr lo que necesitaba......
Grax.....
INSERTAR COMENTARIO