📄 datalist3.aspx
字号:
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<body>
<Form runat="server">
<asp:DataList id="DataList1" runat="server"
Border="1" BorderColor="Black"
CellPadding="2" CellSpacing="0"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="lightgray"
SelectedItemStyle-BackColor="yellow"
OnItemCommand="DataList_ItemCommand" >
<HeaderTemplate>
姓名(学号)
</HeaderTemplate>
<ItemTemplate>
<%# DataBinder.Eval(Container.DataItem, "姓名")%>
(<%# DataBinder.Eval(Container.DataItem, "学号")%>)
<asp:LinkButton id="Detail" runat="server" Text="成绩查询"/>
</ItemTemplate>
<SelectedItemTemplate>
姓名: <%# DataBinder.Eval(Container.DataItem, "姓名")%><BR>
学号: <%# DataBinder.Eval(Container.DataItem, "学号")%><BR>
语文: <%# DataBinder.Eval(Container.DataItem, "语文")%><BR>
数学: <%# DataBinder.Eval(Container.DataItem, "数学")%><BR>
<asp:LinkButton id="Title" runat="server" Text="关闭查询"/>
</SelectedItemTemplate>
</asp:DataList>
</Form>
</body>
</html>
<script language="VB" runat="server">
Sub BindGrid()
Dim Provider,DataBase,ConnStr,SQL As String
'第一步: 进行数据库的链接
Provider="Microsoft.Jet.OLEDB.4.0;"
DataBase=Server.MapPath("Sample.mdb")
ConnStr="Provider="+Provider+"Data Source="+DataBase
'第二步：执行SQL指令，选出记录集合
Dim Cmd As OleDbDataAdapter
Cmd=New OleDbDataAdapter("Select * From 学生成绩表",ConnStr)
Dim ds As DataSet=New DataSet()
Cmd.Fill(ds,"学生成绩表")
'第三步：将数据集合同DataGrid结合在一起
DataList1.DataSource=ds.Tables("学生成绩表").DefaultView
DataList1.DataBind()
End Sub
Sub Page_Load(Sender As Object,e As EventArgs)
BindGrid
End Sub
Sub DataList_ItemCommand(sender As Object, e As DataListCommandEventArgs)
If e.CommandSource.Text = "成绩查询" Then
DataList1.SelectedIndex = e.Item.ItemIndex
ElseIf e.CommandSource.Text = "关闭查询" Then
DataList1.SelectedIndex = -1
End If
BindGrid
End Sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -