<!-- 三级联动菜单 开始 -->
<script language="JavaScript">
<!--
<%
'二级数据保存到数组Dim count2,rsClass2,sqlClass2,conn,strpath,objConn
strPath = Server.MapPath(DATABASE)
DBConnect(strPath )
set rsClass2=server.createobject("adodb.recordset")
sqlClass2="select * from B_xlmc"
rsClass2.open sqlClass2,objConn
%>
var subval2 = new Array();
//数组结构:一级根值,二级根值,二级显示值
<%
count2 = 0
do while not rsClass2.eof
%>
subval2[<%=count2%>] = new Array('<%=rsClass2("B_dlid")%>','<%=rsClass2("ID")%>','<%=rsClass2("B_xlname")%>')
<%
count2 = count2 + 1
rsClass2.movenext
loop
rsClass2.close
%><%
'三级数据保存到数组
Dim count3,rsClass3,sqlClass3
set rsClass3=server.createobject("adodb.recordset")
sqlClass3="select * from B_xlmc"
rsClass3.open sqlClass3,objConn
%>
var subval3 = new Array();
//数组结构:二级根值,三级根值,三级显示值
<%
count3 = 0
do while not rsClass3.eof
%>
subval3[<%=count3%>] = new Array('<%=rsClass3("id")%>','<%=rsClass3("ID")%>','<%=rsClass3("B_xlcone")%>')
<%
count3 = count3 + 1
rsClass3.movenext
loop
rsClass3.close
%>function changeselect1(locationid)
{
document.form1.EventB_YyrXtx.length = 0;
document.form1.EventB_YyrXtx.options[0] = new Option('==请选择小类==','');
document.form1.EventB_YyrXtx.length = 0;
document.form1.EventB_YyrXtx.options[0] = new Option('==无内容==','');
for (i=0; i<subval2.length; i++)
{
if (subval2[i][0] == locationid)
{document.form1.EventB_YyrXtx.options[document.form1.EventB_YyrXtx.length] = new Option(subval2[i][2],subval2[i][1]);}
}
}function changeselect2(locationid)
{
document.form1.B_Txlr.length = 0;
document.form1.B_Txlr.options[0] = new Option('==无内容==','');
for (i=0; i<subval3.length; i++)
{
if (subval3[i][0] == locationid)
{document.form1.B_Txlr.options[document.form1.B_Txlr.length] = new Option(subval3[i][2],subval3[i][1]);}
}
}
//-->
</script><%
Dim count1,rsClass1,sqlClass1
set rsClass1=server.createobject("adodb.recordset")
sqlClass1="select * from B_Dlmc"
rsClass1.open sqlClass1,objConn
%>
<select name="EventB_YyrDtx" onChange="changeselect1(this.value)">
<option>==请选择大类==</option>
<%
count1 = 0
do while not rsClass1.eof
response.write"<option value="&rsClass1("ID")&">"&rsClass1("B_lbname")&"</option>"
count1 = count1 + 1
rsClass1.movenext
loop
rsClass1.close
%>
</select><select name="EventB_YyrXtx" onChange="changeselect2(this.value)">
<option>==请选择小类==</option>
</select>
<select name="B_Txlr">
<option>==请选择专题==</option>
</select>这是全部代码,请兄弟们帮我把第三级也就是(<select name="B_Txlr">)这级改为文本框显示,而不是下拉菜单!
谢谢
<script language="JavaScript">
<!--
<%
'二级数据保存到数组Dim count2,rsClass2,sqlClass2,conn,strpath,objConn
strPath = Server.MapPath(DATABASE)
DBConnect(strPath )
set rsClass2=server.createobject("adodb.recordset")
sqlClass2="select * from B_xlmc"
rsClass2.open sqlClass2,objConn
%>
var subval2 = new Array();
//数组结构:一级根值,二级根值,二级显示值
<%
count2 = 0
do while not rsClass2.eof
%>
subval2[<%=count2%>] = new Array('<%=rsClass2("B_dlid")%>','<%=rsClass2("ID")%>','<%=rsClass2("B_xlname")%>')
<%
count2 = count2 + 1
rsClass2.movenext
loop
rsClass2.close
%><%
'三级数据保存到数组
Dim count3,rsClass3,sqlClass3
set rsClass3=server.createobject("adodb.recordset")
sqlClass3="select * from B_xlmc"
rsClass3.open sqlClass3,objConn
%>
var subval3 = new Array();
//数组结构:二级根值,三级根值,三级显示值
<%
count3 = 0
do while not rsClass3.eof
%>
subval3[<%=count3%>] = new Array('<%=rsClass3("id")%>','<%=rsClass3("ID")%>','<%=rsClass3("B_xlcone")%>')
<%
count3 = count3 + 1
rsClass3.movenext
loop
rsClass3.close
%>function changeselect1(locationid)
{
document.form1.EventB_YyrXtx.length = 0;
document.form1.EventB_YyrXtx.options[0] = new Option('==请选择小类==','');
document.form1.EventB_YyrXtx.length = 0;
document.form1.EventB_YyrXtx.options[0] = new Option('==无内容==','');
for (i=0; i<subval2.length; i++)
{
if (subval2[i][0] == locationid)
{document.form1.EventB_YyrXtx.options[document.form1.EventB_YyrXtx.length] = new Option(subval2[i][2],subval2[i][1]);}
}
}function changeselect2(locationid)
{
document.form1.B_Txlr.length = 0;
document.form1.B_Txlr.options[0] = new Option('==无内容==','');
for (i=0; i<subval3.length; i++)
{
if (subval3[i][0] == locationid)
{document.form1.B_Txlr.options[document.form1.B_Txlr.length] = new Option(subval3[i][2],subval3[i][1]);}
}
}
//-->
</script><%
Dim count1,rsClass1,sqlClass1
set rsClass1=server.createobject("adodb.recordset")
sqlClass1="select * from B_Dlmc"
rsClass1.open sqlClass1,objConn
%>
<select name="EventB_YyrDtx" onChange="changeselect1(this.value)">
<option>==请选择大类==</option>
<%
count1 = 0
do while not rsClass1.eof
response.write"<option value="&rsClass1("ID")&">"&rsClass1("B_lbname")&"</option>"
count1 = count1 + 1
rsClass1.movenext
loop
rsClass1.close
%>
</select><select name="EventB_YyrXtx" onChange="changeselect2(this.value)">
<option>==请选择小类==</option>
</select>
<select name="B_Txlr">
<option>==请选择专题==</option>
</select>这是全部代码,请兄弟们帮我把第三级也就是(<select name="B_Txlr">)这级改为文本框显示,而不是下拉菜单!
谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货