<%@ Page Language="vb" Debug="true" %>
<html><head>
<script language="VB" runat="server">
'处理提交按钮事件
sub btn_click(sender as object,e as commandeventargs)
dim s,temp as string, i,j as integer
for i = 0 to chkfond.items.count-1 '循环从0到chkfond集合的最大索引-1。
if chkfond.items(i).selected then '向temp加入被选择的课项目
temp=temp & chkfond.items(i).text & "\"
j+=1
end if
next
if j>0 then s= "<br>的课是：" & temp & "." '这里需要注意后面的赋值，s &= 表示这个值仍然存给变量S
lbl.text=s & "<br>提交：" & e.commandname & "-" & e.commandargument '下面标签上显示的内容
end sub
'处理chkdirection的选择改变事件，改变chkfond的排列方向
sub chk_checkedchanged(sender as object,e as eventargs)
if chkdirection.checked = true then '如果chkdirection的checked属性是选中，
chkfond.repeatdirection = repeatdirection.horizontal '那么就水平排列
else '否则
chkfond.repeatdirection = repeatdirection.vertical '就竖直排列了
end if
end sub
</script>
<body>
<form runat="server">
请选择你的选课<br />
<asp:CheckBoxList ID="chkfond" runat="server">
<asp:ListItem>文学</asp:ListItem>
<asp:ListItem>音乐</asp:ListItem>
<asp:ListItem>政治</asp:ListItem>
<asp:ListItem>历史</asp:ListItem>
<asp:ListItem>哲学</asp:ListItem>
<asp:ListItem>体育</asp:ListItem>
</asp:CheckBoxList>
<!--指定chkfond的排列方向-->
<asp:CheckBox ID="chkdirection" runat="server" AutoPostBack="true" Checked="false" Text="水平排列" OnCheckedChanged="chk_checkedchanged"/>
<!--提交和清除按钮-->
<asp:Button ID="btn" runat="server" Text="提交" oncommand="btn_click" CommandName="时间" CommandArgument="1900-08-20"/>
<asp:Label ID="lbl" runat="server"/>
</form>
</body>
</html>
<html><head>
<script language="VB" runat="server">
'处理提交按钮事件
sub btn_click(sender as object,e as commandeventargs)
dim s,temp as string, i,j as integer
for i = 0 to chkfond.items.count-1 '循环从0到chkfond集合的最大索引-1。
if chkfond.items(i).selected then '向temp加入被选择的课项目
temp=temp & chkfond.items(i).text & "\"
j+=1
end if
next
if j>0 then s= "<br>的课是：" & temp & "." '这里需要注意后面的赋值，s &= 表示这个值仍然存给变量S
lbl.text=s & "<br>提交：" & e.commandname & "-" & e.commandargument '下面标签上显示的内容
end sub
'处理chkdirection的选择改变事件，改变chkfond的排列方向
sub chk_checkedchanged(sender as object,e as eventargs)
if chkdirection.checked = true then '如果chkdirection的checked属性是选中，
chkfond.repeatdirection = repeatdirection.horizontal '那么就水平排列
else '否则
chkfond.repeatdirection = repeatdirection.vertical '就竖直排列了
end if
end sub
</script>
<body>
<form runat="server">
请选择你的选课<br />
<asp:CheckBoxList ID="chkfond" runat="server">
<asp:ListItem>文学</asp:ListItem>
<asp:ListItem>音乐</asp:ListItem>
<asp:ListItem>政治</asp:ListItem>
<asp:ListItem>历史</asp:ListItem>
<asp:ListItem>哲学</asp:ListItem>
<asp:ListItem>体育</asp:ListItem>
</asp:CheckBoxList>
<!--指定chkfond的排列方向-->
<asp:CheckBox ID="chkdirection" runat="server" AutoPostBack="true" Checked="false" Text="水平排列" OnCheckedChanged="chk_checkedchanged"/>
<!--提交和清除按钮-->
<asp:Button ID="btn" runat="server" Text="提交" oncommand="btn_click" CommandName="时间" CommandArgument="1900-08-20"/>
<asp:Label ID="lbl" runat="server"/>
</form>
</body>
</html>
