菜鸟学堂在线工具

源代码

<HTML>
<HEAD></HEAD>

&lt;script&nbsp; runat="server"> sub Page_Load if Not Page.IsPostBack then &nbsp;&nbsp; dim navigate=New SortedList &nbsp;&nbsp; navigate.Add("RadioButtonList","control_radiobuttonlist.asp") &nbsp;&nbsp; navigate.Add("CheckBoxList","control_checkboxlist.asp") &nbsp;&nbsp; navigate.Add("DropDownList","control_dropdownlist.asp") &nbsp;&nbsp; navigate.Add("ListBox","control_listbox.asp") &nbsp;&nbsp; rb.DataSource=navigate &nbsp;&nbsp; rb.DataValueField="Value" &nbsp;&nbsp; rb.DataTextField="Key" &nbsp;&nbsp; rb.DataBind() end if end sub sub navigate(s as Object, e As EventArgs) response.redirect(rb.SelectedItem.Value) 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="navigate" /> &lt;/form> &lt;/body> &lt;/html> 
</HTML>

运行结果 在线运行