01.<%@ Import Namespace="System.IO"%>
02.<%@ Page Language="VB" %>
03.<script runat="server">
04. Sub Page_Load(sender As Object, e As EventArgs)
05. Dim StrWer As StreamReader
06. Try
07. StrWer = File.OpenText(Server.MapPath("MyFiles/") & "thaicreate.txt")
08. Do Until StrWer.EndOfStream
09. Me.lblText.Text = Me.lblText.Text & StrWer.ReadLine() & "<br>"
10. Loop
11. StrWer.Close()
12. Catch ex As Exception
13. Me.lblText.Text = "Read failed. ("& ex.Message &")"
14. End Try
15. End Sub
16.</script>
17.<html>
18.<head>
19.<title>ThaiCreate.Com ASP.NET - Read Text Files</title>
20.</head>
21.<body>
22. <form runat="server">
23. <asp:Label id="lblText" runat="server"></asp:Label>
24. </form>
25.</body>
26.</html>
