Make your own free website on Tripod.com
Click here to visit our sponsor
Free Advertising from Click2Net!

บทเรียนที่ 7 การเขียนข้อมูลลงไฟล์ Text ด้วย ASP



สำหรับบทนี้มีตัวอย่างให้ลองของจริงเลยครับ แต่ก่อนเรียกไฟล์ 2 ไฟล์นี้ให้คุณ
สร้างไฟล์ text ว่างๆชื่อ texthere.txt ไว้ใน /asp ก่อนนะครับ
การนำไปใช้งานแล้วแต่จะประยุกต์ใช้นะครับ

[ /asp/write2text.asp ]

<% if request.form("message") = "" then %>
<html>
<body>
<form action="write2text.asp" method="post">
<font size=+1>กรอกข้อมูลที่คุณต้องการเขียนลงไฟล์ text</font><br>
Name: <input type=text name=message size=30>
<input type=submit value=Writ2Text>
</form>
</body>
</html>
<%
else
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
MsgFile = Server.MapPath ("texthere.txt")
Set OutStream= FileObject.CreateTextFile (MsgFile, True)
OutStream.WriteLine Request.Form("message")
Set OutStream = Nothing
Set MessageStr =Nothing
%>

<html>
<body>
เรียบร้อยแล้วครับ เรียกไฟล์ <a href="readall.asp">readall.asp</a> ดูได้เลยครับ
</body>
</html>
<% end if %>



[ /asp/readall.asp ]

<html>
<body>
<font size=+2>อ่านไฟล์ text</font><hr>

<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
MsgFile = Server.MapPath ("texthere.txt")
On Error Resume Next
Set InStream= FileObject.OpenTextFile (MSGFile, 1, False, False)
Response.Write Instream.ReadALL & "<BR>"
Set Instream=Nothing
%>

</body>
</html>