¿Alguna vez querrá saber cómo mostrar el contenido de un documento de texto usando ASP? Aquí hay una manera fácil de leer
de un archivo de texto
<!-Inicio del código ASP ---->
<%
'Por James Seymour, http://jamesdot.org
Escribir de mal tiempo
Dim FileSySobj, TF, Leer
'Lea el read.txt
'Almacene el nombre del archivo donde la información se almacena en una variable llamada lectura
Read = Read.txt
'Recupere la trayectoria completa del archivo de lectura
Read = Left (server.mappath (request.servervariables (path_info)), instrrev (server.mappath
(Request.serverVariables (path_info)), /)) y leer
'Cree una instancia del objeto del sistema de archivos y guárdelo en una variable llamada filessObj
Establecer filesSoBJ = createObject (scripting.filesystemObject)
'Verifique si existe el archivo de lectura
If (filesSoBJ.FileExists (read)) entonces
'Si el archivo existe, ábralo para leer
Establecer tf = filesysobj.opentextfile (leer, 1)
leer = tf.readline
tf.lose
DEMÁS
'Si no puede encontrar read.text, muestra el mensaje predeterminado
Leer = No puedo encontrar el archivo Read.txt! Entonces este es mi mensaje predeterminado.
Final si
%>
'Tabla que muestra el archivo read.txt
<Div align = Center>
<centro>
<Tabla Border = 0 ancho = 40% CellSpacing = 0 CellPadding = 0>
<tr>
<td width = 100%bgcolor =#eeeecc> <b> <%= read%> </b>
</td>
</tr>
<tr>
<ancho de td = 100%>
<!-End of the ASP->
Use el código de arriba, haga clic y arrastre el mouse a través del código para resaltarlo. Luego haga clic derecho en el
código resaltado y haga clic en Copiar. Ahora puede pegarlo en su editor de código.