
19/01/2002, 12:12
|
 | | | Fecha de Ingreso: octubre-2000 Ubicación: Dentro de mi cabeza. ono?
Mensajes: 1.264
Antigüedad: 24 años, 7 meses Puntos: 3 | |
Re: Cargar texto en un ASP Hola tenía este código guardado que habla acerca de leer archivos de texto con ASP, quizás te sirva:
-------------------
<%
Const ForReading = 1
Const Create = False
Dim FSysObj
Dim TS
Dim strLine
Dim strFileName
'nombre del fichero a mostrar
strFileName = Server.MapPath("ficherofuente.txt")
'Creación del objeto FileSystemObject
Set FSysObj = Server.CreateObject("Scripting.FileSystemObje ct")
' Abrimos el fichero
Set TS = FSysObj.OpenTextFile(strFileName, ForReading, Create)
If not TS.AtEndOfStream Then
Response.Write "<FONT FACE=Verdana SIZE=1>"
Do While not TS.AtendOfStream
' Leemos el fichero linea a linea y lo mostramos
strLine = TS.ReadLine
Response.Write i & " " & Server.HTMLEncode(strLine) & "<br>"
loop
End If
' cerramos y destruimos los objetos
TS.Close
Set TS = Nothing
Set FSysObj = Nothing
%>
----------------------
Saludos |