01.<%@ Import Namespace="System.IO"%>
02.<%@ Import Namespace="System.Data"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06. Sub Page_Load(sender As Object, e As EventArgs)
07. BindData()
08. End Sub
09.
10. Sub BindData()
11.
12. Dim dt As New DataTable
13. Dim dr As DataRow
14.
15.
16. dt.Columns.Add("CustomerID")
17. dt.Columns.Add("Name")
18. dt.Columns.Add("Email")
19. dt.Columns.Add("CountryCode")
20. dt.Columns.Add("Budget")
21. dt.Columns.Add("Used")
22.
23. Dim StrWer As StreamReader
24. Dim readLine As String
25. StrWer = File.OpenText(Server.MapPath("thaicreate.txt"))
26. Do Until StrWer.EndOfStream
27.
28. readLine = StrWer.ReadLine()
29.
30. dr = dt.NewRow
31. dr("CustomerID") = Split(readLine,",")(0)
32. dr("Name") = Split(readLine,",")(1)
33. dr("Email") = Split(readLine,",")(2)
34. dr("CountryCode") = Split(readLine,",")(3)
35. dr("Budget") = Split(readLine,",")(4)
36. dr("Used") = Split(readLine,",")(5)
37. dt.Rows.Add(dr)
38.
39. Loop
40. StrWer.Close()
41.
42. myGridView.DataSource = dt
43. myGridView.DataBind()
44.
45. End Sub
46.</script>
47.<html>
48.<head>
49.<title>ThaiCreate.Com ASP.NET - GridView</title>
50.</head>
51.<body>
52. <form id="form1" runat="server">
53. <asp:GridView id="myGridView" runat="server"></asp:GridView>
54. </form>
55.</body>
56.</html>
