【ASP】寫入文字檔

將資料庫的內容匯出到文字檔內

<% 
   session("dsn")="dsn=workflow;uid=sa;pwd=SQLsys"

   set rs=server.CreateObject ("adodb.recordset")
   sqlstr="select id,nickname,firstname from dbo.USERS"
   rs.Open sqlstr,session("dsn"),3,1,1
 
   dim id,nickname,firstname
 
   Set fs = CreateObject ("Scripting.FileSystemObject")
       file_name="member.txt"
   '寫檔 方式一
    Set ts = fs.CreateTextFile(Server.MapPath (file_name),True )
       
   '寫檔 方式二
   'Set ts=fs.OpenTextFile(Server.MapPath(file_name),8,true)

   if not rs.EOF then
       '寫入欄位名稱
       ts.WriteLine (rs.Fields("id").Name & "   " & rs.Fields("Nickname").Name & "  " & rs.Fields("firstname").Name )
       ts.WriteLine ("-----------------------------------")
      do while not rs.EOF
             '寫入欄位內容
             ts.WriteLine (rs("id") & "   " & rs("nickName") & "  " & rs("firstname"))
         rs.MoveNext
      loop      
   end if
   rs.Close
   ts.Close
   set ts=Nothing
   set fs=Nothing
 %>  
 PS: server.MapPath一定要加入,否則會出現錯誤訊息
       Microsoft VBScript 執行階段錯誤 錯誤 '800a0046' 
       沒有使用權限 
       
   寫檔方式擇一即可   

文字檔內容：

   參考資料：
   http://www.w3schools.com/asp/asp_ref_filesystem.asp
   CreateTextFile 用法
   
   http://www.w3schools.com/asp/met_opentextfile.asp
   OpenTextFile 用法
   
   http://www.w3schools.com/asp/met_write.asp
   Write 不換行寫入

   http://www.w3schools.com/asp/met_writeline.asp
   WriteLine 換行寫入
   
   http://www.w3schools.com/asp/met_writeblanklines.asp
   WriteBlankLines 插入空白列