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

如何使用ASP展示文本文件的内容

你是否曾想要知道如何使用ASP来展示文本文件的内容？下面是一个简单的方法，教你如何从文本文件中读取信息。

<%

'通过James Seymour（

Dim write

Dim fileSysObj, tf, read

'读取read.txt文件

'将存储信息的文件名存储在一个名为read的变量中

read = "read.txt"

'获取read文件的完整路径

read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read

'创建一个FileSystem对象的实例，并将其存储在名为fileSysObj的变量中

Set fileSysObj = createObject("Scripting.FileSystemObject")

'检查read文件是否存在

IF (fileSysObj.FileExists(read)) Then

'如果文件存在，则打开它以进行读取

Set tf = filesysobj.OpenTextFile(read, 1)

read = tf.ReadLine '读取文件的第一行

tf.Close '关闭文件

ELSE

'如果找不到read.text文件，则显示默认消息

read = "找不到文件read.txt！这是我的默认消息。"

END IF

%>