所属一级父类:
<select name="fl" class="textboxLINE_1" onChange="document.form2.submit();">
<%
set rs2=server.CreateObject("ADODB.Recordset")
set conn2=server.createobject("adodb.connection")
connstr2="DSN=gsj;uid=sa;pwd=sa;database=qjgsj_data"
conn2.open connstr2
sql2="select * from leibie"
rs2.open sql2,conn2,1,1
%>
<option><%=request.form("fl")%>
<% Do until rs2.EOF %>
<option><%=rs2("lbmc")%></option>
<%
rs2.movenext
loop
%>
</select>
所属二级父类:
<select name="zl1" class="textboxLINE_1" onChange="document.form2.submit();">
<%
set rs3=server.CreateObject("ADODB.Recordset")
set conn3=server.createobject("adodb.connection")
connstr3="DSN=gsj;uid=sa;pwd=sa;database=qjgsj_data"
conn3.open connstr3
sql3="select * from zbiao1 where ssfl='"&request.form("fl")&"'"
rs3.open sql3,conn3,1,1
%>
<option><%=request.form("zl1")%>
<% Do until rs3.EOF %>
<option><%=rs3("lbmc1")%></option>
<%
rs3.movenext
loop
%>
</select>
所属三级父类:
<select name="zl2" class="textboxLINE_1" onChange="document.form2.submit();">
<%
set rs4=server.CreateObject("ADODB.Recordset")
set conn4=server.createobject("adodb.connection")
connstr4="DSN=gsj;uid=sa;pwd=sa;database=qjgsj_data"
conn4.open connstr4
sql4="select * from zbiao2 where yjfl='"&request("fl")&"' and rjfl='"&request("zl1")&"'"
rs4.open sql4,conn4,1,1
%>
<option><%=request.form("zl2")%>
<% Do until rs4.EOF %>
<option><%=rs4("lbmc2")%></option>
<%
rs4.movenext
loop
%>
</select>
所属四级父类:
<select name="zl3" class="textboxLINE_1" id="zl3">
<%
set rs5=server.CreateObject("ADODB.Recordset")
set conn5=server.createobject("adodb.connection")
connstr5="DSN=gsj;uid=sa;pwd=sa;database=qjgsj_data"
conn5.open connstr5
sql5="select * from zbiao3 where yjfl='"&request("fl")&"' and rjfl='"&request("zl1")&"' and sjfl='"&request("zl2")&"'"
rs5.open sql5,conn5,1,1
%>
<% Do until rs5.EOF %>
<option><%=rs5("lbmc3")%></option>
<%
rs5.movenext
loop
%>
<option></option>
</select>
<input name="Submit22" type="submit" class="Bbutton" onclick="page1();" value="归类">
//pBase级数,以0基,
//pSele是<option 的value值
//pEle是下一级的表单名字
function chgSelect(pBase,pSele,pElem){
//当改变了一个列表之后。清除以后的列表的值。
for(i=parseInt(pElem.replace("Select",""));i<=5;i++){
var tmp="000"+i;
var pElem1=eval("document.Form1.Select"+tmp.substr(tmp.length-2));