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
%>