| Chapter 10.
การเขียนและอ่าน Text file
ASP มีความสามารถเปิด file
เพื่ออ่าน เขียน แก้ไข หรือสร้าง
file ใหม่ได้ตัวอย่างเช่น Programe Counter
สำหรับนับตัวเลขผู้เข้าเยี่ยมชม
Website หลักการคือเปิด file นับตัวเลขใน
file เขียนทับลงไปใหม่
แล้วรายงานจำนวนผู้เยี่ยมชมออกทางหน้า
Website เป็นต้น
การเขียนและการอ่าน file ใช้ Method
- Method CreateTextFile
- Method OpenTextFile
การเขียน file สำหรับ Windows แล้ว
ไม่ต้องคำนึงถึงเรื่อง Ower
หรือสิทธิผู้ใช้ เหมือน Unix
รูปแบบคำสั่ง
Method CreateTextFile
[object.]CreateTextFile(filename[,overwrite[,unicode]])
| Paramitor |
ค่าที่กำหนด |
| filenmae |
ชื่อ file
ที่ต้อ้งการสร้าง |
| overwrite |
true
คือให้สร้างทับ file
ข้อความเดิมเดิมที่มีอยู่แล้ว
false คือไม่สร้างทับ file
ข้อความเดิมเดิมที่มีอยู่แล้ว |
| unicode |
true
คือสร้างเป็น file ข้อความชนิด unicode
false คือสร้างเป็น file ข้อความชนิด
ASCII
(ค่าปกติเป็น fase เป็น file
ชนิดข้อความ) |
เราจะใช้ชุด
Code ต่อไปนี้เพื่อเขียนลง Text File
| <% Set FileObject =
Server.CreateObject("Scripting.FileSystemObject")
MsgFile = Server.MapPath ("textfile.txt")
Set OutStream= FileObject.CreateTextFile (MsgFile, True)
OutStream.WriteLine Request.Form("message")
Set OutStream = Nothing
Set MessageStr =Nothing
%> |
ตัวอย่าง
วิธีการให้สร้าง
file ต่อไปนี้
1.text_file.txt ว่างๆ
2.write_text.html เพื่อสร้าง form
กรอกข้อมูล
3.write_text.asp เพื่อเขียนข้อความจาก form
ลง text_file.txt
4.read_text.asp เพื่ออ่านข้อความจาก
tex_file.txt
write_text.html
<html>
<head><title>ทดสอบเขียน
file</title></head><body>
<form action="write_text.asp"
method="post">
เชิญกรอกข้อความเพื่อบันทึกลง
text file<br>
Message:
<input type="text"
name="message" size="30">
<input type="submit" >
</form>
</body>
</html> |
write_text.asp
<html>
<head><title>ทดสอบเขียน file โดย
ASP</title></head><boby>
ทดสอบเขียน text file
<%
Set FileObject =
Server.CreateObject("Scripting.FileSystemObject")
MsgFile = Server.MapPath ("textfile.txt")
Set OutStream= FileObject.CreateTextFile (MsgFile, True)
OutStream.WriteLine Request.Form("message")
Set OutStream = Nothing
Set MessageStr =Nothing
%>
<a href=
read_text.asp>อ่าน text file </a>
</boby>
</html> |
เราจะใช้ Method OpenTextFile
รูปแบบคำสั่ง
Method OpenTextFile
[object.]OpenTextFile(filename[,iomode[,creat[,format]]])
| Paramitor |
ค่าที่กำหนด |
| filenmae |
ชื่อ file
ที่ต้อ้งการสร้าง |
| iomode |
1 = เปิด file
เพื่ออ่าน
0 = เปิด file เพื่อเขียนต่อ |
| creat |
true คือ ถ้าไม่พบ
file ที่กำหนด ให้สร้าง file ใหม่
false คือ ถ้าไม่พบ file ที่กำหนด
จะไม่สร้าง file ใหม่
(ค่าปกติเป็น fase เป็น file
ชนิดข้อความ) |
| format |
ถ้าไม่ระบุจะเป็น
ascii |
และเราจะใช้ชุด
Code ต่อไปนี้เพื่ออ่าน File
| <% Set FileObject =
Server.CreateObject("Scripting.FileSystemObject")
MsgFile = Server.MapPath ("textfile.txt")
On Error Resume Next
Set InStream= FileObject.OpenTextFile (MSGFile, 1, False, False)
Response.Write Instream.ReadALL & "<BR>"
Set Instream=Nothing
%> |
read_text.asp
<html>
<head><title>อ่าน file โดย ASP</title></head><boby>
ทดสอบอ่าน text file
<hr>
<%
Set FileObject =
Server.CreateObject("Scripting.FileSystemObject")
MsgFile = Server.MapPath ("textfile.txt")
On Error Resume Next
Set InStream= FileObject.OpenTextFile (MSGFile, 1, False, False)
Response.Write Instream.ReadALL & "<BR>"
Set Instream=Nothing
%>
</body>
</html> |
Copy right Passkorn Roungrong 2000 |