1Imports System 
 2Imports System.Data 
 3Imports System.Configuration 
 4Imports System.Collections 
 5Imports System.Web 
 6Imports System.Web.Security 
 7Imports System.Web.UI 
 8Imports System.Web.UI.WebControls 
 9Imports System.Web.UI.WebControls.WebParts 
10Imports System.Web.UI.HtmlControls 
11Imports System.Data.OleDb 
12
13
14Public Partial Class indexClass index 
15    Inherits System.Web.UI.Page 
16    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
17        Using oleconn As New OleDbConnection() 
18            oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
19            oleconn.Open() 
20            Dim strSQL As String = "Select top 8 * From data Order By time DESC" 
21            Dim command As New OleDbCommand(strSQL, oleconn) 
22            Dim dataReader As OleDbDataReader = command.ExecuteReader() 
23            While dataReader.Read() 
24                Response.Write(dataReader("name").ToString()) 
25            End While 
26            dataReader.Close() 
27            
28            oleconn.Close() 
29            oleconn.Dispose() 
30        End Using 
31        
32    End Sub 
33End Class