菜鸟学堂在线工具

源代码

<HTML>
<HEAD></HEAD>

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

运行结果 在线运行