怎样读取一个文本文件的内容?


            Ever want to know how to display the contents of a text document using ASP. Here is a easy way to read 

from a text file 

<!--Start of ASP Code---->

<%

'by James Seymour, http://jamesdot.org

Dim write

Dim fileSysObj, tf, read

' Read the read.txt 

' Store the file name where the Information is stored into a variable called read

read = &quot;read.txt&quot;

' Retrieve the fullpath of the read file

read = LEFT(Server.Mappath(Request.ServerVariables(&quot;PATH_INFO&quot;)), InStrRev(Server.Mappath

(Request.ServerVariables(&quot;PATH_INFO&quot;)), &quot;\&quot;)) & read

' Create an instance of FileSystem Object and store it into a variable called fileSysObj

Set fileSysObj = createObject(&quot;Scripting.FileSystemObject&quot;)

' Check whether the read file exists

IF (fileSysObj.FileExists(read)) Then

' if the file exists, then open it for reading

Set tf = filesysobj.OpenTextFile(read, 1)

read = tf.ReadLine

tf.Close

ELSE

' if you can't find read.text, display default message

read = &quot;I can't find the file read.txt! So this is my default message.&quot;

END IF

%>



' table the displays the read.txt file 

<div align=&quot;center&quot;>

<center>

<table border=&quot;0&quot; width=&quot;40%&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;>

<tr>

<td width=&quot;100%&quot; bgcolor=&quot;#EEEECC&quot;><B><%=read%></B>

</td>

</tr>

<tr>

<td width=&quot;100%&quot;>



<!-- End of the ASP --> 



use the code above, click and drag your mouse over the code to highlight it. Then right click on the 

highlighted code and click &quot;Copy.&quot; Now you may paste it into your code editor.