ASP & Text File

1. ASP & Text File

2. FileSytem Object • ใช้สำหรับสร้าง เขียนและอ่านไฟล์ข้อความ • มี 2 method • CreateTextFile Method • OpenTextFile

3. เมธอด CreateTextFile จะเป็นการสร้างไฟล์ข้อความขึ้นมาใหม่ โดยมีวิธีการใช้งานดังนี้ [object.]CreateTextFile(filename[,overwrite[,unicode]])

4. พารามิเตอร์ต่างๆ ในเมธอด CreateTextFile พารามิเตอร์ ค่าที่กำหนด filename ชื่อไฟล์ข้อความที่จะสร้าง overwrite true คือให้สร้างทับไฟล์ข้อความเดิม (หากมีอยู่แล้ว) falseคือไม่ให้สร้างทับไฟล์ข้อความเดิม unicode true คือสร้างเป็นไฟล์ข้อความชนิด unicode falseคือสร้างเป็นไฟล์ข้อความชนิด ASCII (ค่าปกติคือ false หรือเป็นไฟล์ข้อความชนิด ASCII)

5. ตัวอย่าง demo1.asp <% Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(”C:\asp\demo1.txt",true) a.WriteLine("Text file นี้สร้างจาก demo1.asp") a.Close %>

6. เมธอด OpenTextFile • เมธอดนี้จะใช้ในการอ่านไฟล์ข้อความ ไม่ว่าจะเป็นไฟล์ข้อความที่ สร้างขึ้นจากเมธอด CreateTextFile หรือจะเป็นไฟล์ข้อความที่สร้างมา จากวิธีการอื่นๆ ก็ได้ โดยมีรูปแบบการใช้งานดังนี้ [object.]OpenTextFile(filename[,iomode[,create[,format]]])

7. พารามิเตอร์ต่างๆ ในเมธอด OpenTextFile พารามิเตอร์ ค่าที่กำหนด filename ชื่อไฟล์ข้อความที่จะสร้างใหม่หรือเปิดขึ้นมา iomode 1 = เปิดไฟล์เพื่ออ่าน 8 = เปิดไฟล์เพื่อเขียนต่อเติม create true คือถ้าไม่พบไฟล์ที่กำหนด ให้สร้างไฟล์ขึ้นใหม่ false คือถ้าไม่พบไฟล์ที่กำหนด จะไม่สร้างไฟล์ขึ้น ใหม่ format ไม่ระบุให้คือ ascii

8. ตัวอย่าง demo2.asp <% ForReading=1 Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(”C:\asp\demo.txt",ForReading) Response.Write(a.readLine()) a.Close %>

9. ตัวอย่าง demo3.asp เพิ่มข้อมูล <% ForReading=8 Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(”C:\asp\demo.txt",ForAppend) a.WriteLine(“บรรทัดที่เพิ่มใหม่”) a.Close %>

10. ตัวอย่าง demo4.asp อ่านข้อมูล <% ForReading=1 Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(”c:\asp\demo.txt",ForReading,False) Do while not a.AtEndOfStream Response.Write(a.readLine() & "<BR>") loop a.Close %>

11. ตัวอย่าง demo5.asp กระดานข่าว บริษัท ABC มหาชน จำกัด<hr> <% ' อ่านข้อความเดิมมาแสดงก่อน ForReading=1 Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(".\webboard.txt",ForReading,False) do while not a.atendofstream response.write(a.readLine() & "<BR>") loop a.Close %>

12. <form action=”demo5-1.asp" method="post"> ข้อความที่จะประกาศ : <textarea rows="5" cols="70" name="message" ></textarea> <br> ผู้ประกาศ : <input type="text" name="by"> <input type="Submit" value="ส่ง"> <input type="reset" value="ยกเลิก"> </form> <hr>

13. ตัวอย่าง demo5-1.asp กระดานข่าว บริษัท ABC จำกัด<hr> <% 'รับข่าวใหม่ gnew=Request.Form("message") gby=Request.Form("by") ForAppend=8 Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(".\Webboard.txt",ForAppend,True) a.writeline("ข้อความ : " & gnew) a.writeline("โดย : " & gby) 'now หมายถึงวันเวลาปัจจุบัน a.writeline("วัน-เวลา : " & now & "<HR>") a.Close %>

14. %> ข้อที่เพิ่มเข้าไปคือ : <%=gnew%><br> ส่งมาโดย : <%=gby%><br> เพิ่มแล้วเมื่อ <%=now%><hr> <a href=”demo5.asp">กลับไปกระดานข่าว </a> <hr>