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