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

曾经想知道如何使用ASP显示文本文档的内容。这是一种简单的阅读方式

从文本文件中

<！ - ASP代码的开始---->

<％

'詹姆斯·西摩（James Seymour），http://jamesdot.org

昏暗写

Dim FilesySobj，TF，阅读

'阅读read.txt

'存储信息名称，其中将信息存储到一个称为read的变量中

读取= read.txt

'检索读取文件的全部路径

read = left（server.mappath（request.servervariobles（path_info））），instrrev（server.mappath

（request.servervariobles（path_info））， /）＆读取

'创建文件系统对象的实例，然后将其存储到一个称为filesysobj的变量中

set filesysobj = createObject（scripting.filesystemobject）

'检查是否存在读取文件

如果（filesysobj.fileexists（read））

'如果文件存在，请打开它以进行阅读

设置tf = filesysobj.opentextfile（读，1）

读取= tf.readline

tf.close

别的

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

读=我找不到文件read.txt！因此，这是我的默认消息。

如果结束

％>

'表显示read.txt文件

<div align =中心>

<center>

<table border = 0宽度= 40％cellspacing = 0 cellpadding = 0>

<tr>

<td width = 100％bgcolor =＃eeeecc> <b> <％= read％> </b>

</td>

</tr>

<tr>

<td宽度= 100％>

<！ - ASP结束 - >

使用上面的代码，单击并将鼠标拖到代码上以突出显示。然后右键单击

突出显示代码，然后单击复制。现在，您可以将其粘贴到代码编辑器中。