📄 repeater3.aspx
字号:
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<body>
<Form runat="server">
<asp:Repeater id="Repeater1" runat="server">
<HeaderTemplate>
<Table Border="0" BgColor="Blue">
<Tr>
<Td>
<Font Color="White" Size="-1">一班期末考试成绩</Font>
</Td>
</Tr>
</Table>
<p>
</HeaderTemplate>
<ItemTemplate>
<p>
<Table Border="0" Bgcolor="Blue" width="300">
<Tr>
<Td>
<Font color="white"><B><%#DataBinder.Eval(Container.DataItem, "姓名")%>
(<%#DataBinder.Eval(Container.DataItem, "学号") %>)</B>
<Blockquote>
语文：<%#DataBinder.Eval(Container.DataItem, "语文") %>,
数学：<%#DataBinder.Eval(Container.DataItem, "数学") %>
</Blockquote>
</Font>
</Td>
</Tr>
</Table>
</ItemTemplate>
<AlternatingItemTemplate>
<p>
<Table Border="0" Bgcolor="darkred" width="300">
<Tr>
<Td>
<Font color="white"><B><%#DataBinder.Eval(Container.DataItem, "姓名")%>
(<%#DataBinder.Eval(Container.DataItem, "学号") %>)</B>
<Blockquote>
语文：<%#DataBinder.Eval(Container.DataItem, "语文") %>,
数学：<%#DataBinder.Eval(Container.DataItem, "数学") %>
</Blockquote>
</Font>
</Td>
</Tr>
</Table>
</AlternatingItemTemplate>
<SeparatorTemplate>
<Hr width="50%" align="left">
</SeparatorTemplate>
<FooterTemplate>
<Table Border="0" BgColor="Blue">
<Tr>
<Td>
<Font Color="White" Size="-1">这是结尾</Font>
</Td>
</Tr>
</Table>
<p>
</FooterTemplate>
</asp:Repeater>
</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结合在一起
Repeater1.DataSource=ds.Tables("学生成绩表").DefaultView
Repeater1.DataBind()
End Sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -