📄 7-9.aspx
字号:
<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.Sqlclient" %>
<Script Language="VB" runat="Server">
Dim conn as SqlConnection
Dim com as SqlCommand
Dim ad as New SqlDataAdapter
Dim ds as New Dataset
Sub Page_Load(Sender As object,e As Eventargs)
Dim conStr,comStr as String
conStr="Persist Security Info=False;Initial Catalog=Northwind;Data Source=localhost;Integrated Security=SSPI;"
conn = New SqlConnection(conStr)
ComStr = "select * from customers"
Com = New SqlCommand(ComStr,conn)
ad.SelectCommand=Com
try
Conn.Open()
ad.Fill(ds, "Customers")
catch ex as SqlException
Label1.Text = ex.Message
end try
'datalist控件绑定到Northwind数据库的Customers数据表上
datalist1.DataSource=ds
datalist1.DataMember="Customers"
datalist1.DataBind()
End Sub
'当单击Datalist控件中的按钮或链接时，会触发OnItemCommand事件
Sub DataList_ItemCommand(byval 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
Page_Load(Sender,e)
End Sub
</Script>
<Html>
<Head><Title></Title></Head>
<Body>
<form runat="server">
<asp:Label id="Label1" runat="server" maintainstate=false /><br>
<asp:DataList id="datalist1" runat="server"
OnItemCommand="DataList_ItemCommand">
<HeaderTemplate>
<asp:Image id="image1" src="../include/ANM-005.GIF" runat="server"/>
<asp:Label id="Label2" runat="server">
<B><Font color="Blue">DataList控件演示</Font></B></asp:Label><p>
</HeaderTemplate>
<ItemTemplate>
<%# Container.DataItem("ContactName") %><br>
<asp:LinkButton id="watch" runat="server" text="查看"/>
</ItemTemplate>
<SelectedItemTemplate>
<table cellpadding="4" cellspacing="0" width="100%" border=0>
<tr>
<td>姓名：<%# DataBinder.Eval(Container.DataItem,"ContactName") %></td>
</tr>
<tr>
<td>工作单位：<%# DataBinder.Eval(Container.DataItem,"CompanyName") %></td>
</tr>
<tr>
<td>地址：<%# DataBinder.Eval(Container.DataItem,"Address") %></td>
</tr>
<tr>
<td>联系电话：<%# DataBinder.Eval(Container.DataItem,"Phone") %></td>
</tr>
<tr>
<td><asp:LinkButton id="close" runat="server" text="关闭"/></td>
</tr>
</table>
</SelectedItemTemplate>
<SeparatorTemplate>
<hr>
</SeparatorTemplate>
</asp:DataList>
</form>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -