怎樣讀取一個文本文件的內容?

曾經想知道如何使用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結束 - >

使用上面的代碼，單擊並將鼠標拖到代碼上以突出顯示。然後右鍵單擊

突出顯示代碼，然後單擊複製。現在，您可以將其粘貼到代碼編輯器中。