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