菜鸟学堂在线工具

源代码

<HTML>
<HEAD></HEAD>

&lt;script&nbsp; runat="server"> sub Page_Load if Not Page.IsPostBack then &nbsp;&nbsp; dim mycountries=New ArrayList &nbsp;&nbsp; mycountries.Add("Norway") &nbsp;&nbsp; mycountries.Add("Sweden") &nbsp;&nbsp; mycountries.Add("France") &nbsp;&nbsp; mycountries.Add("Italy") &nbsp;&nbsp; mycountries.TrimToSize() &nbsp;&nbsp; mycountries.Sort() &nbsp;&nbsp; dd.DataSource=mycountries &nbsp;&nbsp; dd.DataBind() end if end sub sub displayMessage(s as Object,e As EventArgs) lbl1.text="Your favorite country is: " & dd.SelectedItem.Text end sub &lt;/script&gt; &lt;!DOCTYPE html> &lt;html> &lt;body> &lt;form runat="server"> &lt;asp:DropDownList id="dd" runat="server" AutoPostBack="True" onSelectedIndexChanged="displayMessage" /> &lt;p>&lt;asp:label id="lbl1" runat="server" />&lt;/p> &lt;/form> &lt;/body> &lt;/html> 
</HTML>

运行结果 在线运行