<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objStream = objFSO.OpenTextFile(Server.MapPath("Files")) %>
<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP TextStream Object</title> </head> <body> <% Dim objFSO, objStream Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objStream = objFSO.OpenTextFile(Server.MapPath("MyFiles/thaicreate.txt")) Do Until objStream.AtEndOfStream Response.Write objStream.ReadLine & "<br>" Loop objStream.Close Set objStream = Nothing Set objFSO = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 05
