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
13Public Partial Class top_dismemoClass top_dismemo 
14    Inherits System.Web.UI.Page 
15    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
16        Using oleconn As New OleDbConnection() 
17            oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
18            oleconn.Open() 
19            Dim strSQL As String = "Select * From data where id=" + Request("id") 
20            Dim command As New OleDbCommand(strSQL, oleconn) 
21            Dim dataReader As OleDbDataReader = command.ExecuteReader() 
22            If dataReader.Read() Then 
23                Label1.Text = dataReader("name").ToString() 
24                Label2.Text = dataReader("time").ToString() 
25                Label3.Text = dataReader("neirong").ToString() 
26            End If 
27            dataReader.Close() 
28            oleconn.Close() 
29            oleconn.Dispose() 
30        End Using 
31    End Sub 
32End Class