📄 formdatasource.aspx
字号:
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.sql" %>
<!--DataSet 要引用system.data,数据库连接要用到system.data.sql-->
<html>
<script language="vb" runat=server>
sub Page_Load(o as object,e as eventargs)
dim MyConnection as SQLConnection
dim MyStr as String
dim MyDataSetCommand as SQLDataSetCommand
dim MyDataSet as New DataSet
If Not IsPostBack
MyConnection=New SQLConnection("server=localhost;uid=sa;pwd=;database=pubs")
'指定连接的服务器、用户、口令、数据库
MyStr="Select au_lname,au_fname from authors"
'要得到的数据为author表中的姓氏和名字
MyDataSetCommand=New SQLDataSetCommand(Mystr,MyConnection)
MyDataSetCommand.FillDataSet(MyDataSet,"Authors")
'从数据库中取得数据放入内存DataSet对象中,并映射为Authors表
Session("MyDs")=MyDataSet
'保存DataSet对象于连接变量MyDs中
Else
MyDataSet=Session("MyDs")
'取出DataSet对象
if MyDataSet is Nothing
Response.Write("无法取得数据")
else
'根据选择列表的选择,绑定数据，并显示相应的画板
Select Case DpDnLst.SelectedItem.text
case "Repeater"
Response.write ("<center>以<I>Repeater</I>控件显示数据</center>")
db1.datasource=MyDataSet.tables("authors").defaultview
db1.databind
panel1.visible=True
panel2.visible=False
panel3.visible=False
case "DataList"
Response.write ("<center>以<B>DataList</B>控件显示数据</center>")
db2.datasource=MyDataSet.tables("authors").defaultview
db2.databind
panel1.visible=False
panel2.visible=True
panel3.visible=False
case "DataGrid"
Response.write ("<center>以<U>DataGrid</U>控件显示数据</center>")
db3.datasource=MyDataSet.tables("authors").defaultview
db3.databind
panel1.visible=False
panel2.visible=False
panel3.visible=True
case else
End Select
end if
End If
end sub
</script>
<head>
<title>
数据绑定技术试验
</title>
</head>
<body bgcolor=#ffffff>
<center>
<h2>DataSource试验</h2>
<hr>
<form runat=server>
请选择控件类型：
<asp:DropDownList id="DpDnLst" runat=server>
<asp:Listitem>Repeater</asp:Listitem>
<asp:Listitem>DataList</asp:Listitem>
<asp:Listitem>DataGrid</asp:Listitem>
</asp:DropDownList>
<asp:button text="提交" runat=server/>
<hr>
<!--定义三个画板，根据下拉列表的选择，使指定的画板可见-->
<!-- 画板一 :定义一个Repeater控件 -->
<asp:panel id="panel1" visible=false runat=server>
<asp:repeater id="db1" runat=server>
<!--定义Repeater控件显示的表头 -->
<template name="headertemplate">
<table>
<tr>
<td>
姓氏
</td>
<td>
名字
</td>
</tr>
</template>
<!--定义Repeater控件数据显示的格式 -->
<template name="itemtemplate">
<tr>
<td>
<%# databinder.eval(container.dataitem,"au_lname") %>
</td>
<td>
<%# databinder.eval(container.dataitem,"au_fname") %>
</td>
</tr>
</template>
<!--定义Repeator控件显示的表尾 -->
<template name="footertemplate">
</table>
</template>
</asp:repeater>
</asp:panel>
<!-- 画板二：定义一个DataList控件 -->
<asp:panel id="panel2" visible=false runat=server>
<asp:datalist id="db2" runat=server>
<!--定义datalist的显示格式为：姓氏----名字 -->
<template name="itemtemplate">
<%# databinder.eval(container.dataitem,"au_lname") %>
----
<%# databinder.eval(container.dataitem,"au_fname") %>
<br>
</template>
</asp:datalist>
</asp:panel>
<!-- 画板三：定义一个DataGrid控件 -->
<asp:panel id="panel3" visible=false runat=server>
<asp:datagrid id="db3" runat=server>
</asp:datagrid>
</asp:panel>
</form>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -