我想做两个下拉框，其中一个是大栏目，一个是小栏目，如何做？？

[olivia3333]

我想做两个下拉框，其中一个是大栏目，一个是小栏目，要求选择大栏目后，小栏目跟着变，内容是数据库中的，如何做？？希望大家写完整，我菜的很！
大栏目目前能出来，我知道要用java可不会写，大家帮我写一下，
<select name="typeid" size="1" class="unnamed2" onchange=javascript:showsubcates()>
<OPTION value="-请选大类-" selected> -请选大类-</option> <%
dim rs,sql,sel
set rs=server.createobject("adodb.recordset")
sql="select distinct(typeid),type from type "
rs.open sql,conn,1,1
do while not rs.eof
sel="selected"
response.write "<option " & sel & " value='"+CStr(rs("typeID"))+"' name=typeid>"+rs("type")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
rs.close
%>
</select>

这是我开始写的一个小类的，可是不能用，我不知如何让他跟着大类动

<select name="smallid" id="smallid">
<%
set rs2=server.createobject("adodb.recordset")
sql="select * from type where typeid=rs("smallid")"
rs2.open sql,conn,1,1
do while not rs.eof

response.write "<option value='"+CStr(rs2("smallID"))+"' name=smallid>"+rs2("smalltype")+"</option>"+chr(13)+chr(10)
rs2.movenext
loop
rs2.close
%>
</select>

[olivia3333]

<!--#include file="articleconn.asp"-->
<%
typeid=request("typeid")
%>
<script language="vbscript">
sub pop()
typeid=search.typeid.value
window.location="select.asp?typeid="&typeid&" "
end sub
</script>

<select size="1" name="typeid" onChange="pop()" >
<OPTION value="-请选大类-" selected> -请选大类-</option>
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select distinct(typeid),type from type "
rs.open sql,conn,1,1
do while not rs.eof

%><option value=<%=rs("typeid")%> <% if typeid=rs("typeid") then response.write "selcted"%> name=typeid><%=rs("type")%></option>
<% rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
<b class="unnamed2"><font color="#FFFFFF">
<% if typeid="" then %>
<SELECT NAME="smallid" size="1" >
<OPTION VALUE=""></OPTION>
<OPTION><--无--></OPTION>
<OPTION VALUE=""></OPTION>
<OPTION VALUE=""></OPTION>
<OPTION VALUE=""></OPTION>
</SELECT>
<% else %>
<select name="smallid" size="1" id="smallid">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from type where typeid="&typeid
rs.open sql,conn,1,1
do while not rs.eof
%><option name=typeid value="<%=rs("smalltype")%>" ><%=rs("smalltype")%></option>
<% rs.movenext
loop
rs.close
end if %>
</select>

</font></b>


那错了，就是不提交

[xzq686]

search是窗体名，你没有加上
<FORM ACTION="" METHOD="post" name="search" >

[PPLUNCLE]

又是联动:
http://expert.csdn.net/Expert/topic/2661/2661683.xml?temp=.6863367

[swich]

在论坛搜索“联动”

[mrwang2000]

function SelectCity(){
var i=0;
for(i=0;i<form1.selarea.length;i++){
if(form1.selarea[i].selected==true){
var tempstr = form1.selarea[i].value;
break;
}
}
if(tempstr!=""){
form1.city.length=0;
var oOption = document.createElement('OPTION');
oOption.text = "-地区/城市-";
oOption.value = "";
form1.city.options.add(oOption);
for(i=0;i<thecity.length;i++){
if(thecity[i].substring(0,2)==tempstr){
//alert(city[i].substring(0,2));
var oOption = document.createElement('OPTION');
oOption.text=thecity[i].substring(4);
oOption.value=thecity[i].substring(0,4);
//alert(oOption.text);
//alert(oOption.value);
form1.city.options.add(oOption);
}
}
}
else
form1.city[0].selected=true;
return true;
};
function selectarea(){
var i=0;
for(i=0;i<form1.sel.length;i++){
if(form1.sel[i].selected==true){

[xzq686]

如果数据量不大的话，用数据库可以实现。
对了，理解好那个kindname变量最重要。
我觉得阿信的这个很好。简单易懂！

[xzq686]

我这网速有点慢，还老掉线，晕，我也去吃饭了！
今天晕的不行！改程序改错了几个表单，改完了才知道！