📄 ch16-04-01.aspx
字号:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<% Response.Expires = 0 %>
<Html>
<Head>
<Title>Ch16-04-01.aspx 使用Repeater控件显示记录</Title>
<Script Language="VB" Runat="Server">
' 在这里设置联机字符串的内容
Sub Page_Load(Obj As Object, e As EventArgs)
If Not IsPostBack Then
Dim DSN As String
Dim tSQL As String = "Select * From UserDatas"
Dim OBJConn As OleDbConnection
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("/ASP/chap14/ASP.NET网页数据库.mdb") & ";"
OBJConn = New OleDbConnection(DSN)
OBJConn.Open()
Dim OBJCmd As OleDbCommand = New OleDbCommand(tSQL, OBJConn)
RepeaterCTL.DataSource = OBJCmd.ExecuteReader()
RepeaterCTL.DataBind()
OBJConn.Close()
End If
End Sub
</Script>
</Head>
<Body>
<Center><H2>使用Repeater控件显示记录</H>
<Form Runat="Server" >
<asp:Repeater ID="RepeaterCTL" Runat="Server">
<HeaderTemplate>
<Table Border=1>
<TR BgColor="#80F0F0">
<TD>编号</TD><TD>登录账号</TD><TD>密码</TD>
<TD>姓名</TD><TD>电子邮件信箱</TD>
</TR>
</HeaderTemplate>
<ItemTemplate>
<TR BorderColor="#FF00FF">
<TD><%# Container.DataItem("UID") %></TD>
<TD><%# Container.DataItem("UserAccount") %></TD>
<TD><%# Container.DataItem("UserPWD") %></TD>
<TD><%# Container.DataItem("UserName") %></TD>
<TD><%# Container.DataItem("EMail") %></TD>
</TR>
</ItemTemplate>
<AlternatingItemTemplate>
<TR BorderColor="#FF00FF">
<TD><%# Container.DataItem("UID") %></TD>
<TD><%# Container.DataItem("UserAccount") %></TD>
<TD><%# Container.DataItem("UserPWD") %></TD>
<TD><%# Container.DataItem("UserName") %></TD>
<TD><%# Container.DataItem("EMail") %></TD>
</TR>
</AlternatingItemTemplate>
<FooterTemplate>
</Table>
</FooterTemplate>
</asp:Repeater>
</Form>
</Center>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -