asp导入txt文档数据的方法

 asp导入txt文档数据方法一

<% Option Explicit

Const Filename = "/readme.txt" Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")
 Dim Filepath
Filepath = Server.MapPath(Filename)

if FSO.FileExists(Filepath) Then

    Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault)     Dim Contents
    Contents = TextStream.ReadAll
    Response.write "
" & Contents & "

---

" TextStream.Close Set TextStream = nothing Else Response.Write "

File "

& Filename &_ " does not exist" End If Set FSO = nothing %>  asp导入txt文档数据方法二 <% Option Explicit

Const Filename = "/readme.txt" Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject") Dim Filepath
Filepath = Server.MapPath(Filename)

if FSO.FileExists(Filepath) Then     Dim file    
    set file = FSO.GetFile(Filepath)     Dim FileSize
    FileSize = file.Size

    Response.Write "
File: " & Filename & " (size " & FileSize  &_
                   " bytes)
"
    Response.Write "
"     Dim TextStream
    Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)     Do While Not TextStream.AtEndOfStream
        Dim Line
        Line = TextStream.readline         Line = Line & vbCRLF
    
        Response.write Line 
    Loop


    Response.Write "

---

" Set TextStream = nothing Else Response.Write "

File "

& Filename &_ " does not exist" End If Set FSO = nothing %>