<%@ Page Language="VB" Debug="true"%>
<%@ import namespace="system.data.oledb"%>
<%@ import namespace="system.data"%>
<html><head>
<script runat="server">
Sub Page_init(Src As Object, E As EventArgs)
dim dbconn as oledbconnection '声明一个数据库连接对象
dim dbcommand as oledbdataadapter '利用oledbdataadapter对象声明一个数据检索
dim dspagedata as new dataset '利用dataset保存检索结果的数据
dbconn=new oledbconnection("provider=sqloledb;server=thc;initial catalog=thc;user id=sa;pwd=980123;") '数据库连接
dbcommand = new oledbdataadapter("select id,quert,name from thcjp", dbconn) '从thcjp表中检索数据
dbcommand.fill(dspagedata,"thcjp") '把纪录放在dataset对象中一个名为“thcjp”的表中
dbcommand.fill(dspagedata,"thcjp1")
ddlthcjp.datasource=dspagedata.tables("thcjp").defaultview '定义所用dataset表的名字
ddlthcjp1.datasource=dspagedata.tables("thcjp1").defaultview
ddlthcjp.databind() '绑定这个表
ddlthcjp1.databind()
End Sub
sub btn_click(Src As Object, E As EventArgs)
lbl.text="先头那个框框写的是：" & ddlthcjp.selecteditem.text & "<br>第二个框框里头选的是： "& ddlthcjp1.selecteditem.text
end sub
</script>
</head><body>
<form runat="server">
<asp:DropDownList ID="ddlthcjp" runat="server" DataTextField="name" DataValueField="id"/>
<asp:DropDownList ID="ddlthcjp1" runat="server" DataTextField="quert" DataValueField="id"/>
<asp:Button ID="btn" runat="server" Text="提交" OnClick="btn_click" />
</form>
<asp:Label ID="lbl" runat="server"/>
</body></html>
