01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP TextStream Object</title>
05.</head>
06.<body>
07.<%
08. Dim objFSO, objStream
09. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
10. Set objStream = objFSO.OpenTextFile(Server.MapPath("MyFiles/thaicreate.txt"))
11. Do Until objStream.AtEndOfStream
12. Response.Write objStream.ReadLine & "<br>"
13. Loop
14. objStream.Close
15.
16. Set objStream = Nothing
17. Set objFSO = Nothing
18.%>
19.</body>
20.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
