关于FORM表单中下拉框连动的问题，十万火急，急需高手指点！

首先，非常谢谢大家的能在百忙之中来帮小弟！
这个是我的部分原代码！大家看看他，我是用FRONTPAGE编的，脚本是VB的！后台数据库是SQL SEVER的，其实只有一些简单的SELECT语句。
这部分网页包含两个框架，分别为right.asp和left.asp。主要想解决的问题就是下拉框连动的问题，取消表单中的提交步骤！
是否能把left.asp中的<input type=“submit” value="提交"name="B1">删掉啊！而直接把第一个表单中的信息直接传到另一个中去呢？
还望各位版主和高手来多多指点：）
这两个下拉框分别在两个框架里：
1.left.asp:
<form method="POST" action="rghsyb_right.asp" target="right" >
  <p align="center"><select size="1" name="D1">
  <%
    sqlstr="select b_name from rsv_code"
    set rs=fcpdb.execute(sqlstr)
    if not rs.eof and not rs.bof then
    rs.movefirst
    WHILE not rs.EOF
    if trim(rs("b_name"))<>"溧阳" then
    %>
  <option value="<%=rs("b_name")%>"><%=TRIM(rs("b_name"))%></option>
   <%
   end if
   rs.MoveNext
   WEND
   end if %>

  </select><input type="submit" value="提交" name="B1"> </p>“就是它”
</form>
2.这一半另外那个选择框right.asp:
<form method="POST" target="mn" action="result.asp" name="form1">
  <p align="center">测站名：<select size="1" name="D1">
  <%
    sknm=request.form("D1")
    sqlstr="select stcd from rsv_code where b_name='" & sknm & "'"
     set rs=fcpdb.execute(sqlstr)
       if not rs.eof and not rs.bof then
          if not isnull(rs("stcd")) then
             vstcd=rs("stcd")
          end if
       end if
     rs.close

    sqlstr="select b_code from rsv_cdr where stcd='" & vstcd & "'"
    set rs=fcpdb.execute(sqlstr)
        if not rs.eof and not rs.bof then
           if not isnull(rs("b_code")) then
              vbcode=rs("b_code")
           end if
        end if
     rs.close

   sqlstr="select hs_code from rst_code where b_code='" & vbcode & "'"
   set res=fcpdb.execute(sqlstr)
       if not res.bof and not res.eof then
          res.movefirst
          WHILE not res.EOF
       if not isnull(res("hs_code")) then
          vhscode=res("hs_code")
       end if

   sqlstr="select stcd from st_cdr where hs_code='" & vhscode & "'"
   set rs=fcpdb.execute(sqlstr)
       if not rs.eof and not rs.bof then
           if not isnull(rs("stcd")) then
               vsd=rs("stcd")
           end if
       end if
     rs.close
     sqlstr="select hs_name from st_code where hs_type='F' and stcd='" & vsd & "'"
    response.write sqlstr
    set rs=fcpdb.execute(sqlstr)
        if not rs.eof and not rs.bof then
           rs.movefirst
           WHILE not rs.EOF %>
<option value="<%=rs("hs_name")%>"><%=TRIM(rs("hs_name")%></option>
   <%
   rs.MoveNext
   WEND
   end if

   res.MoveNext
   WEND
   end if
%>
</select>
大家费心了，再次感谢各位版主和高手能看完小弟的程序！真的很希望大家能帮帮我的忙，小弟一定将分数全数奉上！：）急急急！！

37 个解决方案

#1

不要老问这样的问题了好不好，你搜一下“连动”
一大对了

#2

不是啊！这个有点不同的地方，他的两个下拉框是分别位于同一页面的两个框架，而且，也是处于不同的两个FORM表单中的啊！在传值的时候有不同的！不信你仔细看一下！

#3

在本网站搜索一下吧，肯定有源代码，前几天我还看过呢！！
GOOD GOOD STUDY
DAY DAY UP

#4

我这个网页包含了两个框架，在这其中又分别包含了两个form表单，第一个表单中有一个select框，如何cancel掉<input type=submit>这个过程，而使得<option value="<%=rs("b_name")%>"><%=TRIM(rs("b_name"))%></option>中的值传到第二个表单中呢？还有，我想问一下在使用VBS的过程中onclick这个事件是否要写到<select>中去！谢谢大家！

#5

#6

如果你的form是分别在两个框架的话,试试这个:
假设你的框架名分别为left(left.asp) 和right(some.asp),form的id和名为form1 和form2,select名为select1
你可以在select1的表单内建一个按钮button1,他的onClick事件为:
function b_click(){
right.location.href="some.asp?para="+document.form1.select1.value;
}
然后你在some.asp里获取参数para,就行啦!
ps:一般来说是不会在select里加上onclick事件的,而是onChange=''

#7

是在select里添加button吗？
那要怎么写？
那个para是不是select1中选定的值啊？

#8

还有你哪个click事件的b是什么东东？

#9

http://webdeveloper.earthweb.com/repository/javascripts/2003/01/106591/SelDrop.htm

这是演示,你找找他们也提供源码的

#10

谢谢maquanjun(俺是菜鸟俺怕谁) 和 jeffrry(无聊剑客) ！

#11

http://expert.csdn.net/Expert/topic/1895/1895621.xml?temp=.8350183

http://expert.csdn.net/Expert/topic/1981/1981283.xml?temp=.5082209

#12

可不可以使用VBscript的啊！
对select进行设置
java的好象比较麻烦！

#13

近来问连动下拉列表的人很多，我就自己做了一个，自己暂时不用，完全是给大家分享的，数据库结构采用常见的省份和城市，数据库结构结构来自csdn某文章，大家可以自己改。有什么意见请提出来，要代码文件和数据库请开贴放分并且留下email。
本文完全VBS制作，结交VBS高手，我用VBS能做出Javascript能做的一切QQ:28963147,email:panyuguang962@sohu.com

Access数据库
●     数据库名：DB_ProvinceCat
●     表名：1）Tb_Province     2）Tb_City
说明：表Tb_Province用来存放省份名称；表Tb_City用来存放相应的城市名称。
●     字段名的设计
1）  表Tb_Province的字段有省份ID号（ProvinceCatID）、省份代码（ProvinceCode）、省份名称（ProvinceName），表1给出了示例：
ProvinceCatID    ProvinceCode     ProvinceName
1                 01          北京市
2                 02          上海市
3                 03          天津市
4                 04          重庆市
5                 05          广东省
6                 06          浙江省
7                 07          福建省
8                 08          海南省
9                 09          江苏省
表1
2）  表Tb_City的字段有城市ID号（CityID）、城市代码（CityCode）、城市名称（CityName），表2给出了示例：

CityID      CityCode     CityName
1           01001       北京市
2           02001       上海市
3           03001       天津市
4           04001       重庆市
5           05001       广州市
6           05002       深圳市
7           05003       珠海市
8           05004       茂名市
9           05005       中山市
10          06001       杭州市
11          06002       温州市
12          07001       福州市
13          07002       厦门市
14          08001       海口市
15          08002       三亚市
16          08003       万宁市
17          08004       五指山市
18          09001       南京市
19          09002       苏州市

表2

说明：这里要注意的一点就是，身份代码要对应城市代码的头两位,数据库尽量不要出现有父亲没儿子的事情。
文件：TwoSelect.asp经简单测试好用！
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

</HEAD>
<BODY>
<%
Dim Cn,Rs
Dim SQL,StrDSN
Dim MyArray()
Set cn=Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
StrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DB_ProvinceCat.mdb")
Cn.Open strDSN
SQL="select * from Tb_Province order by ProvinceCatID"
Rs.Open SQL,cn,3,2
Rs.MoveFirst
redim MyArray(Rs.RecordCount-1)
%>
<table width="273" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="96"> <SELECT id=select1 style="WIDTH: 96px" name=select1>
        <OPTION selected value=select<%=Rs("ProvinceCode")%>><%=Rs("ProvinceName")%></OPTION>
        <%
MyArray(0)=Rs("ProvinceCode")
Rs.MoveNext
for i=1 to Rs.RecordCount-1
%>
        <OPTION  value=select<%=Rs("ProvinceCode")%>><%=Rs("ProvinceName")%></OPTION>
        <%
MyArray(i)=Rs("ProvinceCode")
Rs.MoveNext
next
%>
      </SELECT>
      <%
Rs.Close
%>
    </td>
    <td width="96">
      <%
for i=0 to ubound( MyArray)
SQL="select * from Tb_City  where CityCode like '" &  MyArray(i) & "%'"
'Response.End
Rs.Open SQL,cn,3,2
if Rs.RecordCount >0 then
Rs.MoveFirst
%>
      <SELECT id=select<%=MyArray(i)%> style="WIDTH: 96px;display='none'" name=select<%=MyArray(i)%>>
        <%do while not Rs.EOF %>
        <OPTION  value="<%=Rs("CityName")%>"><%=Rs("CityName")%></OPTION>
        <%
Rs.MoveNext
loop
%>
      </SELECT>
      <%
end if
Rs.Close
next
%>
<SCRIPT  LANGUAGE=vbscript>

</SCRIPT>
    </td>
    <td width="81"><input type="button" name="Submit" value="按钮" onClick="vbs:SubMe"></td>
  </tr>
</table>
</BODY>

</HTML>

#14

最好可以更有些针对性！谢谢！

#15

首先,要感谢各位的大力支持!
可是我的这个和以往的两级连动还有些区别,主要是两个select不在同一个form表单下面!
实在不知道如何处理这个东西!
如果大家还有空是否可以仔细看看前面的代码!
多多提些意见,楼上几位朋友的那些代码都挺好的,可惜用起来还有些差别!

#16

快啊!! up!up!up!

#17

up...

#18

不行了,快撑不住了……………………up！啊！

#19

1.left.asp:
去掉提交按钮了，加上 onchange="this.form.submit()">
下面是改过的

<form method="POST" action="rghsyb_right.asp" target="right" >
  <p align="center">
<select size="1" name="D1" onchange="this.form.submit()">
  <%
    sqlstr="select b_name from rsv_code"
    set rs=fcpdb.execute(sqlstr)
    if not rs.eof and not rs.bof then
    rs.movefirst
    WHILE not rs.EOF
    if trim(rs("b_name"))<>"溧阳" then
    %>
  <option value="<%=rs("b_name")%>"><%=TRIM(rs("b_name"))%></option>
   <%
   end if
   rs.MoveNext
   WEND
   end if %>

  </select>

#20

还差点！
那位高手还能在指点一下！
帮忙！谢

#21

我很想结帖，可是问题还没有解决，哎，这可如何是好呢？
很头疼！
这个东西挺着急的，各位大哥帮帮忙吗！

#22

还差在哪里，在说一下，现在已经实现了，选 left.asp 里的内容直接提交到right.asp 里，还差在哪里？

#23

那为什么功能不能实现呢？
应该对onchange这个进行设置吧？

#24

#25

不是吧，怎么个没实现法，说出来看看

#26

<table border="0">
    <tr>
      <td>
    <form action="ygrep.asp" method="post" name="form1">
          <select name="userdept" size="1" onChange="document.form1.submit();">
            <option value="<%=request("userdept")%>" selected><%=request("userdept")%></option>
            <option value="市场部">市场部</option>
            <option value="采购部">采购部</option>
            <option value="技术部">技术部</option>
            <option value="财务部">财务部</option>
            <option value="经理办">经理办</option>
          </select>
    </form></td>
      <td>
    <form action="ygrep.asp" method="get" enctype="multipart/form-data" name="form2">
  <input type="hidden" name="userdept" value=<%=userdept%>>
          <select name="username" size="1">
    <option value="<%=request("username")%>" selected><%=request("username")%></option>
            <%  set rs=server.createobject("adodb.recordset")
          sql="select * from login where bm='"& userdept &"'"
          rs.open sql,conn1,1,1
  do while not rs.eof %>
            <option value="<%=rs("name")%>"><%=rs("name")%></option>
            <% rs.movenext
     loop
rs.close
set rs=nothing
conn1.close
set conn1=nothing
%>
          </select>
    <select name="year" size="1">
<option value="<%=request("year")%>" selected><%=request("year")%></option>
<option value="2000">2000</option>
            <option value="2001">2001</option>
            <option value="2002">2002</option>
            <option value="2003">2003</option>
            <option value="2004">2004</option>
            <option value="2005">2005</option>
            <option value="2006">2006</option>
            <option value="2007">2007</option>
            <option value="2008">2008</option>
            <option value="2009">2009</option>
            <option value="2010">2010</option>
          </select>
    <select name="month" size="1">
            <option value="<%=request("month")%>" selected><%=request("month")&"月"%></option>
            <option value="1">1月</option>
            <option value="2">2月</option>
            <option value="3">3月</option>
            <option value="4">4月</option>
            <option value="5">5月</option>
            <option value="6">6月</option>
            <option value="7">7月</option>
            <option value="8">8月</option>
            <option value="9">9月</option>
            <option value="10">10月</option>
            <option value="11">11月</option>
            <option value="12">12月</option>
          </select>
<select name="day" size="1">
      <option value="<%=request("day")%>" selected><%=request("day")%></option>
          <option value="1">1</option>
          <option value="2">2</option>
          <option value="3">3</option>
          <option value="4">4</option>
          <option value="5">5</option>
          <option value="6">6</option>
          <option value="7">7</option>
          <option value="8">8</option>
          <option value="9">9</option>
          <option value="10">10</option>
          <option value="11">11</option>
          <option value="12">12</option>
          <option value="13">13</option>
          <option value="14">14</option>
          <option value="15">15</option>
          <option value="16">16</option>
          <option value="17">17</option>
          <option value="18">18</option>
          <option value="19">19</option>
          <option value="20">20</option>
          <option value="21">21</option>
          <option value="22">22</option>
          <option value="23">23</option>
          <option value="24">24</option>
          <option value="25">25</option>
          <option value="26">26</option>
          <option value="27">27</option>
          <option value="28">28</option>
          <option value="29">29</option>
          <option value="30">30</option>
          <option value="31">31</option>
       </select>
    <input type="submit" value="选择">

</form></td>
    </tr>
  </table>
  不知你要的是不是这个样子的？

#27

to:summercat(飘轩)
就是我在left.asp中选定后，在第二个select中根本没变化，还是空值。
我也不知道这是为什么？
还望继续支持！

#28

up!up!

#29

冲啊！

#30

长见识！！！
UP！

#31

action="rghsyb_right.asp"

=====>>>
action="right.asp"

#32

什么意思啊？

#33

#34

我顶

#35

顶

#36

咋不用个带参数的存储过程来实现呢？
其实也不难

#37

能否说的详细点？

#1