【ASP】讀取文字檔

<%  
   Set fs = CreateObject ("Scripting.FileSystemObject")
       file_name="member.txt"
   '讀檔
   Set f = fs.OpenTextFile(server.MapPath(file_name),1, true )
    
    '方式一
    'do while f.AtEndOfLine<>true
    
    '方式二
    do while not f.AtEndOfStream
       response.Write f.ReadLine
       Response.Write("<br />")
    loop
   f.close
   set f=Nothing
   set fs=Nothing
 %> 

PS: server.MapPath一定要加入,否則會出現錯誤訊息
       Microsoft VBScript 執行階段錯誤 錯誤 '800a0046' 
       沒有使用權限 

      方式一及方式二 擇一即可
  
參考資料：
   http://www.w3schools.com/asp/asp_ref_textstream.asp
   屬性及方法
   
   http://www.w3schools.com/asp/prop_atendofline.asp
   AtEndOfLine 用法 一列一列到檔尾
   
   http://www.w3schools.com/asp/prop_atendofstream.asp
   AtEndOfStream 用法 串流到檔尾
   
   http://www.w3schools.com/asp/met_readline.asp
   ReadLine 一列一列讀取  保留換行符號
   
   http://www.w3schools.com/asp/met_readall.asp
   ReadAll  串流讀取 忽略換行符號
   
   http://www.w3schools.com/asp/met_read.asp
   Read 只讀部分字串