二级联动菜单怎么取值代码比较长

bbg65 2008-03-20 02:02:07

想实现一个按行业发布信息的功能先把每个行业显示出来然后点击直接把值传到二级联动菜单页直接把二级联动菜单的值和行业的对应上（?zhu_id=2&fu_id=5着样传然后直接二级联动菜单页直接显示对应的值）在网上找到了二级联动菜单的例子做了一下但是不知道怎么取值代码比较长希望高手帮帮忙

后台代码：
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim zhu_ID As String = (Convert.ToString(Request.QueryString("zhu_ID")))
Dim fu_ID As String = (Convert.ToString(Request.QueryString("fu_ID")))
'动态绑定DropDownList
'建立数据库连接
DropDownList1.Attributes.Add("OnChange", "Redirect(this.options.selectedIndex)")
DropDownList2.Attributes.Add("onchange", "choose(this.options.selectedIndex)")
Dim conn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
conn.Open()
Dim cmd As SqlCommand = New SqlCommand
cmd.Connection = conn
'classid.Visible = False

'=====================================================================================
'生成客户端脚本控制的联动菜单
'查询Tb_Province表获得所有的省份
Dim sqlstr As String = "SELECT zhuid, zhuname FROM zhulm "
cmd.CommandText = sqlstr
Dim sqlda As SqlDataAdapter = New SqlDataAdapter(cmd)
'建立临时表存储省份数据
Dim Province As DataTable = New DataTable
sqlda.Fill(Province)
'Response.Write("将省份数据绑定到DropDownList1控件")
'Response.End()

'将省份数据绑定到DropDownList1控件
DropDownList1.DataSource = Province
DropDownList1.DataValueField = "zhuid"
DropDownList1.DataTextField = "zhuname"
If Not IsPostBack Then DropDownList1.DataBind()

'获取省份的个数
Dim ProvinceNum As Integer = Province.Rows.Count()

'使用StringBuilder构造含客户端控制脚本的字符串
Dim sbscript As New System.Text.StringBuilder
sbscript.Append("<script>")
sbscript.Append("<")
sbscript.Append("/")
sbscript.Append("script>")

'注册客户端脚本，将脚本内容写入客户端输出流
Dim strscript As String = sbscript.ToString()

If (Not IsClientScriptBlockRegistered("clientScript")) Then
RegisterClientScriptBlock("clientScript", strscript)
End If
'=====================================================================================

'初始化DropDownList2中的内容
sqlstr = "SELECT fuid,funame FROM fulm WHERE (Left(zhuid,2) = '" & Province.Rows(0)(0) & "')"
cmd.CommandText = sqlstr
sqlda = New SqlDataAdapter(cmd)

Dim dtCity As DataTable = New DataTable
sqlda.Fill(dtCity)

DropDownList2.DataSource = dtCity
DropDownList2.DataValueField = "fuid"
DropDownList2.DataTextField = "funame"
If Not IsPostBack Then DropDownList2.DataBind()

sqlda.Dispose()
cmd.Dispose()
conn.Close()

End Sub
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
Dim myconn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
Dim str_insert As String = "insert into [xinxi](name,chengdu,zhuid,fuid,jiage,suoshu,diqu,youxiaoqi,dianhua,jianjie) VALUES (@name,@chengdu,@zhuid,@fuid,@jiage,@suoshu,@diqu,@youxiaoqi,@dianhua,@jianjie)"
Dim mycmd As SqlCommand = New SqlCommand(str_insert, myconn)
mycmd.Parameters.Add("@name", Trim(name.Text))
mycmd.Parameters.Add("@chengdu", Trim(chengdu.Text))
mycmd.Parameters.Add("@jiage", Trim(jiage.Text))
mycmd.Parameters.Add("@zhuid", Trim(DropDownList1.SelectedValue))
mycmd.Parameters.Add("@fuid", Trim(classid.Value.ToString()))
mycmd.Parameters.Add("@suoshu", Trim(suoshu.SelectedValue))
mycmd.Parameters.Add("@diqu", Trim(diqu.SelectedValue))
mycmd.Parameters.Add("@youxiaoqi", Trim(youxiaoqi.SelectedValue))
mycmd.Parameters.Add("@dianhua", Trim(dianhua.Text))
mycmd.Parameters.Add("@jianjie", Trim(jianjie.Text))
myconn.Open()
mycmd.ExecuteNonQuery()
myconn.Close()
HttpContext.Current.Response.Write("<script Language='javascript'>window.alert('操作成功,请等待审核');window.location.href = 'issue.aspx';</script>")
End Sub
前台二个下拉菜单：
行业:<asp:dropdownlist id="DropDownList1" runat="server"></asp:dropdownlist>
小类:<asp:dropdownlist id="DropDownList2" runat="server"></asp:dropdownlist>

...全文

223 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

bbg65 2008-03-24

打赏
举报

给个例子把带取值的谢谢

bbg65 2008-03-24

打赏
举报

就着些啊都在后台

bbg65 2008-03-21

打赏
举报

晕帮帮忙郁闷了

Go 旅城通票 2008-03-21

打赏
举报

choose的js函数在哪里,帖出来看看,我猜是你的名称搞错了

ReyZhang 2008-03-21

打赏
举报

[Quote=引用 9 楼 yangyifan0 的回复:]
这个还是比较简单``仿照ASP来取，直接使用 = request.getQustring('控件名称')
[/Quote]

这个应该可以

大新软件技术部 2008-03-21

打赏
举报

这个还是比较简单``仿照ASP来取，直接使用 = request.getQustring('控件名称')

MMshuozhelihenhuang 2008-03-21

打赏
举报

友情帮顶还是可以的``````````

sgasv 2008-03-21

打赏
举报

郁闷有人能帮看下吗

超级大笨狼 2008-03-20

打赏
举报

www.dullwolf.cn
连动例子

qiucp 2008-03-20

打赏
举报

vb 不懂

max_userid 2008-03-20

打赏
举报

vb的，看不懂

HarleyTung 2008-03-20

打赏
举报



		<script type="text/javascript">

//联动函数

function changehs(){

		      //首先取出当前选中的是那个省

		      var selectProObj = document.getElementById("DdlProvince");

		      var selectProId  = selectProObj.options[selectProObj.selectedIndex].value;

		      

              //获取所有省市ID的下拉框的项目的个数

		      var sLen = document.getElementById("DdlCity").options.length; 		      		      		      

              //清除以前的内容

		      for(var i=0;i<sLen;i++)

		        {document.getElementById("DdlCity").options.remove(0);}

		       	      

              //获取所有省市ID的下拉框的项目的个数		      

		      var idObj = document.getElementById("Ddl_ProId");

		      sLen = idObj.options.length; 

		      var hidecityObj = document.getElementById("Ddl_CityId");

		      var cityObj     = document.getElementById("DdlCity");

           

            cityObj.options.add(new Option("请选择市","请选择市"));

              for (var i=0;i<sLen;i++)

                if (selectProId == idObj.options[i].value){

		            cityObj.options.add(new Option(hidecityObj.options[i].text,hidecityObj.options[i].value));

		         }

		         

		        

		      }

		      

function setValue(obj){

   document.getElementById("edtCityId").value = obj.options[obj.selectedIndex].value;

}

　　</script>



DdlProvince.Attributes.Add("onchange", "changehs();");

this.DdlCity.Attributes.Add("onchange", "setValue(this)");



//添加两个隐藏dropdownlist 分别绑定 Ddl_ProId  Ddl_CityId