案例:ASP.net案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<script  runat="server">
3
Sub Page_Load
4
if Not Page.IsPostBack then
5
   dim mycountries=New ArrayList
6
   mycountries.Add("China")
7
   mycountries.Add("Sweden")
8
   mycountries.Add("France")
9
   mycountries.Add("Italy")
10
   mycountries.TrimToSize()
11
   mycountries.Sort()
12
   rb.DataSource=mycountries
13
   rb.DataBind()
14
end if
15
end sub
16
17
sub displayMessage(s as Object,e As EventArgs)
18
lbl1.text="Your favorite country is: " & rb.SelectedItem.Text
19
end sub
20
</script>
21
22
<html>
23
<body>
24
25
<form runat="server">
26
<asp:RadioButtonList id="rb" runat="server"
27
AutoPostBack="True" onSelectedIndexChanged="displayMessage" />
28
<p><asp:label id="lbl1" runat="server" /></p>
29
</form>
30
31
</body>
32
</html>
33