案例：ASP.net案例     状态：不可编辑再运行    进入竖版
 运行结果　
​x
 
1
<script  runat="server">
2
sub Page_Load
3
if Not Page.IsPostBack then
4
   dim navigate=New SortedList
5
   navigate.Add("ArrayList","/dynamic/dotnet/aspnet_arraylist.html")
6
   navigate.Add("Hashtable","/dynamic/dotnet/aspnet_hashtable.html")
7
   navigate.Add("SortedList","/dynamic/dotnet/aspnet_sortedlist.html")
8
   navigate.Add("XML Files","/dynamic/dotnet/aspnet_xml.html")
9
   rb.DataSource=navigate
10
   rb.DataValueField="Value"
11
   rb.DataTextField="Key"
12
   rb.DataBind()
13
end if
14
end sub
15
​
16
sub navigate(s as Object, e As EventArgs)
17
response.redirect(rb.SelectedItem.Value)
18
end sub
19
</script>
20
​
21
<html>
22
<body>
23
​
24
<form runat="server">
25
<asp:RadioButtonList id="rb" runat="server"
26
AutoPostBack="True" onSelectedIndexChanged="navigate" />
27
</form>
28
​
29
</body>
30
</html>