ASP 파일 읽기 – AuctionPro


Const filePath = "D:\List.xml"
 Dim fso
 set fso = server.createObject("Scripting.FileSystemObject") 

if fso.FileExists(filePath) then
      set textStream = fso.OpenTextFile(filePath, 1, false)
      Dim contents
      contents = textStream.ReadAll
      Response.write contents
      textStream.Close
      set textStream = nothing
 else
      Response.write  "Error"
 end if
 set fso = nothing

Const filePath = "D:\List.xml"

Dim fso

set fso = server.createObject("Scripting.FileSystemObject")

if fso.FileExists(filePath) then

set textStream = fso.OpenTextFile(filePath, 1, false)

Dim contents

contents = textStream.ReadAll

Response.write contents

textStream.Close

set textStream = nothing

else

Response.write "Error"

end if

set fso = nothing