01.<%@ Page Language="VB" %>
02.<%@ Import Namespace="System.Data"%>
03.<%@ Import Namespace="System.Data.OleDb"%>
04.<script runat="server">
05. Dim objConn As OleDbConnection
06. Dim objCmd As OleDbCommand
07.
08. Sub Page_Load(sender As Object, e As EventArgs)
09. Dim strConnString As String
10. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
11. objConn = New OleDbConnection(strConnString)
12. objConn.Open()
13.
14. BindData()
15. End Sub
16.
17. Sub BindData()
18. Dim strSQL As String
19. strSQL = "SELECT * FROM picture"
20.
21. Dim dtReader As OleDbDataReader
22. objCmd = New OleDbCommand(strSQL, objConn)
23. dtReader = objCmd.ExecuteReader()
24.
25.
26. myRepeater.DataSource = dtReader
27. myRepeater.DataBind()
28.
29. dtReader.Close()
30. dtReader = Nothing
31.
32. End Sub
33.
34. Sub Page_UnLoad()
35. objConn.Close()
36. objConn = Nothing
37. End Sub
38.</script>
39.<html>
40.<head>
41.<title>ThaiCreate.Com ASP.NET - Upload files</title>
42.</head>
43.<body>
44. <form id="form1" runat="server">
45. <asp:Repeater id="myRepeater" runat="server">
46. <HeaderTemplate>
47. <table border="1">
48. <tr>
49. <th>PictureID</th>
50. <th>PictureName</th>
51. </tr>
52. </HeaderTemplate>
53. <ItemTemplate>
54. <tr>
55. <td align="center"><%#Container.DataItem("PictureID") %></td>
56. <td><a href="Myfiles/<%#Container.DataItem("PictureName") %>" target="blank">
57. <%#Container.DataItem("PictureName") %></a>
58. </td>
59. </tr>
60. </ItemTemplate>
61. </asp:Repeater>
62. </form>
63.</body>
64.</html>
