|
|
主题: 帮帮忙---------遇到一个菜单连级跳转的问题!!!
|
wangnb
职务：普通成员
等级：1
金币：0.0
发贴：33
|
#12004/11/18 9:20:51
我在DW里想作一个连级跳转的菜单，就是有几个菜单 ，选择第一个菜单后 ，第二个菜单根据第一个菜单的选择出现选项。我自己这倒也有一段代码，第一个选择这后，第二个也能出现，但第一个菜单的选项却定不住，选择这后又回到请选择项！！！！代码如下： <select name="Level" style="width:72pt" onChange=window.location="/bgs/jxjh/jxjh_index.asp?专业ID="+this.options[this.selectedIndex].value>
<option value="" <%If (Not isNull((zymc.Fields.Item("专业名称").Value))) Then If ("" = CStr((zymc.Fields.Item("专业名称").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>请选择……</option>
<%
While (NOT zymc.EOF)
%>
<option value="<%=(zymc.Fields.Item("专业ID").Value)%>" <%If (Not isNull((zymc.Fields.Item("专业名称").Value))) Then If (CStr(zymc.Fields.Item("专业ID").Value) = CStr((zymc.Fields.Item("专业名称").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(zymc.Fields.Item("专业名称").Value)%></option>
<%
zymc.MoveNext()
Wend
If (zymc.CursorType > 0) Then
zymc.MoveFirst
Else
zymc.Requery
End If
%>
</select>
<select name="Level2" style="width:72pt" onChange=window.location="/bgs/jxjh/jxjh_index.asp?专业ID=&班级ID="+this.options[this.selectedIndex].value>
<option value='' <%If (Not isNull((bjmc.Fields.Item("班级名称").Value))) Then If ("" = CStr((bjmc.Fields.Item("班级名称").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>请选择……</option>
<%
While (NOT bjmc.EOF)
%>
<option value="<%=(bjmc.Fields.Item("班级ID").Value)%>" <%If (Not isNull((bjmc.Fields.Item("班级名称").Value))) Then If (CStr(bjmc.Fields.Item("班级ID").Value) = CStr((bjmc.Fields.Item("班级名称").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(bjmc.Fields.Item("班级名称").Value)%></option>
<%
bjmc.MoveNext()
Wend
If (bjmc.CursorType > 0) Then
bjmc.MoveFirst
Else
bjmc.Requery
End If
%>
</select>
编辑历史:[此帖最近一次被 wangnb 编辑过(编辑时间:2004-11-18 09:35:10)]
|
wangnb
职务：普通成员
等级：1
金币：0.0
发贴：33
|
#22004/11/18 9:26:41
大家帮帮忙吧！我在线等各位大虾的回复！！！非常感谢·！！！
|
wangnb
职务：普通成员
等级：1
金币：0.0
发贴：33
|
#32004/11/18 13:48:56
大家救救急阿！！！
|
蓝鲸
职务：版主
等级：5
金币：42.1
发贴：2614
|
#42004/11/18 14:21:08
这个和前面的错误一模一样，本帖关闭。
非常大鱼
|
