datalist1.aspx
来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 38 行
ASPX
38 行
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<body>
<Form runat="server">
<asp:DataList id="DataList1" runat="server"
RepeatDirection="Horizontal"
RepeatColumns="2">
<ItemTemplate>
<B><%#DataBinder.Eval(Container.DataItem, "姓名") %>
(<%#DataBinder.Eval(Container.DataItem, "学号") %>)</B>
<Blockquote>
语文:<%#DataBinder.Eval(Container.DataItem, "语文") %>,
数学:<%#DataBinder.Eval(Container.DataItem, "数学") %>
</Blockquote>
</ItemTemplate>
</asp:DataList>
</Form>
</body>
</html>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object,e As EventArgs)
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
</script>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?