而在后台,只要:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("DataBase/BlShow.mdb"))
conn.Open()
Dim comm As New OleDbDataAdapter("Select * from blshow where bt= '" & Request.QueryString("bt") & "'", conn)
Dim ds As New DataSet
comm.Fill(ds)
DataList1.DataSource = ds
DataList1.DataBind()
End If
End Sub