asp实现三级联动表单

<!--#includefile="conn.asp"-->
<%sqlstr="select*fromprolei"
setrs=conn.execute(sqlstr)
setrs1=server.CreateObject("adodb.recordset")
sqlstr1="select*fromsecleiorderbyprolei_iddesc"
setrs1=conn.execute(sqlstr1)
setrs2=conn.execute("select*fromendleiorderbyseclei_iddesc")
%>
<scriptlanguage="JavaScript">
varonecount;
onecount=0;
subcat=newArray();
<%
CountLinkAction=0
dowhilenotrs1.eof
%>
subcat[<%=CountLinkAction%>]=newArray("<%=trim(rs1("seclei"))%>","<%=trim(rs1("prolei_id"))%>","<%=trim(rs1("id"))%>");
//subcat[<%=CountLinkAction%>]=newArray("<%=trim(rs1("seclei"))%>","<%=trim(rs1("prolei_id"))%>");
<%
CountLinkAction=CountLinkAction+1
rs1.movenext
loop
rs1.close
setrs1=nothing
%>
onecount=<%=CountLinkAction%>;
functionchangelocation(locationid)
{
document.form1.selectlei2.length=0;
varlocationid=locationid;
vari;
document.form1.selectlei2.options[0]=newOption('请选择小类','');
for(i=0;i<onecount;i++)
{
if(subcat[i][1]==locationid)
{
document.form1.selectlei2.options[document.form1.selectlei2.length]=newOption(subcat[i][0],subcat[i][2]);
}
}
}
</script>
<scriptlanguage="JavaScript">
varonecount1;
onecount1=0;
subcat1=newArray();
<%
CountLinkAction1=0
dowhilenotrs2.eof
%>
subcat1[<%=CountLinkAction1%>]=newArray("<%=trim(rs2("endlei"))%>","<%=trim(rs2("seclei_id"))%>");
<%
CountLinkAction1=CountLinkAction1+1
rs2.movenext
loop
rs2.close
setrs2=nothing
%>
onecount1=<%=CountLinkAction1%>;
functionchangelocation1(locationid1)
{
document.form1.selectlei3.length=0;
varlocationid1=locationid1;
varj;
document.form1.selectlei3.options[0]=newOption('请选择子类','');
for(j=0;j<onecount1;j++)
{
if(subcat1[j][1]==locationid1)
{
document.form1.selectlei3.options[document.form1.selectlei3.length]=newOption(subcat1[j][0],subcat1[j][0]);
}
}
}
</script>
<formname="form1"method="post"action="send.asp"onSubmit="returncheckadd()">
<tablewidth="95%"align="center"cellpadding="5"cellspacing="1"bgcolor="A4B6D7">
<trbgcolor="ECF5FF">
<tdwidth="20%"height="30"align="right"bgcolor="ECF5FF">所属类别：</td>
<TDwidth="80%">
<selectname="selectlei"class="input"onChange="changelocation(document.form1.selectlei.options[document.form1.selectlei.selectedIndex].value)">
<optionselected>请选择大类</option>
<%dowhilenotrs.eof
response.write("<optionvalue="&rs("id")&">"&rs("prolei")&"</option>")
rs.movenext
loop%>
</select>
<selectname="selectlei2"class="input"id="selectlei2"onChange="changelocation1(document.form1.selectlei2.options[document.form1.selectlei2.selectedIndex].value)">
<optionselected>请选择小类</option>
</select>
<selectname="selectlei3"class="input"id="selectlei3">
<optionselected>请选择子类</option>
</select>
</TD>
</tr>
<trbgcolor="ECF5FF">
<tdheight="30"align="right"bgcolor="ECF5FF"></td>
<tdbgcolor="ECF5FF">
<inputname="Submit"type="submit"class="button"value="提交"onFocus="blur()">
<inputname="reset"type="reset"class="button"value="重置"onFocus="blur()"></td>
</tr>
</table>
</form>

三级的联动，全是读数据库里的数据，级别：prolei--seclei--endlei