<%
 Dim fileName
 fileName = "temp.txt" '將開啟的檔案

 '同樣建立 FileSystemObject 物件
 Dim fso
 Set fso = Server.CreateObject("Scripting.FileSystemObject")

 '使用 OpenTextFile 方法開啟文件檔, 並且讀取顯示
 Dim stream
 Set stream = fso.OpenTextFile(fileName)
 Dim lineText
 Do While Not stream.AtEndOfStream
  lineText = stream.ReadLine
  Response.Write lineText & vbcrlf
 Loop

 stream.Close
 Set stream = Nothing
 Set fso = Nothing
%>