怎么实现下拉菜单项跟着数据库记录的增加而增加呢？

[capnet]

是这样的：由于标题栏要分很多类而这些类的项又是不确定的，所以我想用数据库控制这些类，而且标题栏用下拉菜单的隐含层来显示这些类。我怎么写标题栏的代码呢？比如我的产品现在有一，二，三；以后可能要增加四，五，六。而且每项是一个展示页（也即一个与此类相关的链接）我要怎么做呢？？请教高手了

[xxrl]

<%="<script language="JavaScript">"%>
function mmLoadMenus() {
if (window.mm_menu_0807114755_0) return;
window.mm_menu_0807114755_0 = new Menu("root",120,18,"",12,"#000000","#FFFFFF","#CCCCCC","#000084","center","middle",3,0,1000,-5,7,true,false,true,0,true,true);
<%
'连接数据库
while not rs.eof
%>
mm_menu_0807114755_0.addMenuItem("<%=trim(rs("数据库选项"))%>","location='cpxx.asp?kind=<%=trim(rs("数据库选项"))%>'");
<%
rs.movenext
wend
%>
mm_menu_0807114755_0.hideOnMouseOut=true;
mm_menu_0807114755_0.bgColor='#555555';
mm_menu_0807114755_0.menuBorder=1;
mm_menu_0807114755_0.menuLiteBgColor='#FFFFFF';
mm_menu_0807114755_0.menuBorderBgColor='#777777';

mm_menu_0807114755_0.writeMenus();
} </script>

[xiejunhua]

<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 %>

搞定！

[xiejunhua]

把 上面的 end if 去掉。

[xxrl]

你下拉的项目值从数据库中读取不就得了？

[chenxingbai]

<option value=<%=rs("xuanxiang")%><%=rs("xuanxiang")%></option>

[pp4u]

同意楼上。

[capnet]

不是动态增加的时候我是这样写的：
<script language="JavaScript">
<!--
function mmLoadMenus() {
if (window.mm_menu_0807114755_0) return;
window.mm_menu_0807114755_0 = new Menu("root",120,18,"",12,"#000000","#FFFFFF","#CCCCCC","#000084","center","middle",3,0,1000,-5,7,true,false,true,0,true,true);
mm_menu_0807114755_0.addMenuItem("西洋乐器","location='cpxx.asp?kind=西洋乐器'");
mm_menu_0807114755_0.addMenuItem("电声乐器","location='cpxx.asp?kind=电声乐器'");
mm_menu_0807114755_0.addMenuItem("打击乐器","location='cpxx.asp?kind=打击乐器'");
mm_menu_0807114755_0.addMenuItem("民族乐器","location='cpxx.asp?kind=民族乐器'");
mm_menu_0807114755_0.addMenuItem("舞台灯光音响","location='cpxx.asp?kind=舞台灯光音响'");
mm_menu_0807114755_0.addMenuItem("戏剧服装","location='cpxx.asp?kind=戏剧服装'");
mm_menu_0807114755_0.hideOnMouseOut=true;
mm_menu_0807114755_0.bgColor='#555555';
mm_menu_0807114755_0.menuBorder=1;
mm_menu_0807114755_0.menuLiteBgColor='#FFFFFF';
mm_menu_0807114755_0.menuBorderBgColor='#777777';

mm_menu_0807114755_0.writeMenus();
} // mmLoadMenus()
//-->
</script>
那要增加的时侯怎么写呢，在这儿：mm_menu_0807114755_0.addMenuItem("民族乐器","location='cpxx.asp?kind=民族乐器'");

[sephiroth0079]

mm_menu_0807114755_0.addMenuItem("西洋乐器","location='cpxx.asp?kind=西洋乐器'");
mm_menu_0807114755_0.addMenuItem("电声乐器","location='cpxx.asp?kind=电声乐器'");
mm_menu_0807114755_0.addMenuItem("打击乐器","location='cpxx.asp?kind=打击乐器'");
mm_menu_0807114755_0.addMenuItem("民族乐器","location='cpxx.asp?kind=民族乐器'");
mm_menu_0807114755_0.addMenuItem("舞台灯光音响","location='cpxx.asp?kind=舞台灯光音响'");
mm_menu_0807114755_0.addMenuItem("戏剧服装","location='cpxx.asp?kind=戏剧服装'");
替换成：
<%
dim rsCata
//rsCata获得菜单的recordSet，这里省略
if not rsCata.eof then
%>
mm_menu_0807114755_0.addMenuItem("<%=rsCata("xuanxiang")%>","location='cpxx.asp?kind=("<%=rsCata("xuanxiang")%>'");

<%
end if
set rsCata=nothing


%>

[xupiao]

當第一個下拉框onchange時
select 資料庫 類別是第一個下拉框的值記錄
然後寫入第二個下拉框 就像二樓的
<option value=<%=rs("xuanxiang")%><%=rs("xuanxiang")%></option>

[capnet]

tosephiroth0079(红色彗星)
直接在函数里写不行呀,显示不出来也

[61]

<TD vAlign="top" align="right" width="30%" height="28" >产品名称：</TD>
<TD vAlign="center" align="left" height="28">
<SELECT id=Select_Production name=Select_Production>
<%
set rs=server.CreateObject ("adodb.recordset")
SQLStr = "SELECT * FROM Production order by Production_Name"
rs.Open SQLStr,Conn,1,3 '取数据库中记录
while not rs.EOF
’在下拉框中显示
%>
<OPTION <%if Production_ID=rs("Production_ID") then%> selected <%end if%> VALUE="<%=rs("Production_ID")%>"><%=rs("Production_Name")%></OPTION>
<%
rs.MoveNext
wend
rs.Close
%>
</SELECT>
</TD>

[Nakata6]

<select name="jinji">
<option value="请选择" selected>请选择</option>
<%
//连接数据库
set rs1=server.createobject("adodb.recordset")
sql1="select * from tsec_grade"
rs1.open sql1,conn,1
while not rs1.eof and not rs1.bof
%>
<option value="<%=rs1("id")%>"><%=rs1("fsec_grade")%></option>
<%
rs1.movenext
wend
%>
</select>