简单的问题

Question

Dim sUrl as String
sUrl="Index.aspx?Name="&HttpUtility.UrlEncode(DropDownList1.SelectedItem.Text.Trim())
Response.Redirect(sUrl);

Answer 1

Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ok.ClickResponse.redirect(ddltype.SelectedItem.Value)end sub

Answer 2

Private Sub DropDownList_ItemClick(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles DropDownList.ClickResponse.redirect(Index.aspx?Name="&HttpUtility.UrlEncode(DropDownList1.SelectedItem.Text.Trim())end sub

Answer 3

建议你把页面的内容（PAGENAME）和页面的URL(PAGEURL) 存入到数据库中 这样以后添加新的页面的时候就不用修改程序了
       Private SelectCommand As OleDbCommand
        Private ConOledb As OleDbConnection
        Private DadOleUser As New OleDbDataAdapter()
        Private strConnectionString As String
        Private OleDbConnectionString1 As String
          Dim strsql As String
          strsql = "select PAGENAME,PAGEURL  From PAGETABLE"
            SelectCommand = New OleDbCommand(strsql, New OleDbConnection(OleDbConnectionString1))
            DadOleUser.SelectCommand = SelectCommand
            DadOleUser.Fill(data)
                DadOleUser.SelectCommand = LoadCommand
                DadOleUser.Fill(data)
            End WiTH 
DopDownList1.DataSource=DATA
DropDownList1.DataTextField="PAGENAME"
DropDownList1.DataValueField="PAGEURL"
DropDownList1.DataBinD
数据已经添加到了下拉框中在BUTTON 的CLICK 事件中
    
Response.Write("<script>window.open('page.aspx','neW');</script>")'page.aspx' 用 DropDownList1.SELECTITEM.VALUE 替换就可以了

Answer 4

在下拉菜单上代码上增加OnSelectedIndexChanged事件
<asp:DropDownList ID="DropDownList1" RunAt="Server" OnSelectedIndexChanged="ddlChange" >
  <asp:ListItem Value="www.sina.com.cn" >新浪网</asp:ListItem>
  <asp:ListItem Value="www.sohu.com" >搜狐</asp:ListItem>
  <asp:ListItem Value="www.163.net" >163</asp:ListItem>
</asp:DropDownList>在.vb文件中添加代码Private Sub ddlChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
       Response.Redirect(DropDownList1.SelectedValue)
    End Sub