asp实现三级联动表单

< ! -- #includefile = " conn.asp " -->
< %sqlstr = " select*fromprolei "
set rs = conn.execute(sqlstr)
set rs1 = server.CreateObject( " adodb.recordset " )
sqlstr1 = " select*fromsecleiorderbyprolei_iddesc "
set rs1 = conn.execute(sqlstr1)
set rs2 = conn.execute( " select*fromendleiorderbyseclei_iddesc " )
% >
< scriptlanguage = " JavaScript " >
varonecount;
onecount = 0 ;
subcat = new Array ();
< %
CountLinkAction = 0
do while not rs1.eof
% >
subcat[ < % = CountLinkAction% > ] = new Array ( " <%=trim(rs1( " seclei " ))%> " , " <%=trim(rs1( " prolei_id " ))%> " , " <%=trim(rs1( " id " ))%> " );
// subcat[ < % = CountLinkAction% > ] = new Array ( " <%=trim(rs1( " seclei " ))%> " , " <%=trim(rs1( " prolei_id " ))%> " );
< %
CountLinkAction = CountLinkAction + 1
rs1.movenext
loop
rs1.close
set rs1 = nothing
% >
onecount =< % = CountLinkAction% > ;
function changelocation(locationid)
{
document.form1.selectlei2.length = 0 ;
varlocationid = locationid;
vari;
document.form1.selectlei2.options[ 0 ] = new Option ( ' 请选择小类','');
for (i = 0 ;i < onecount;i ++ )
{
if (subcat[i][ 1 ] == locationid)
{
document.form1.selectlei2.options[document.form1.selectlei2.length] = new Option (subcat[i][ 0 ],subcat[i][ 2 ]);
}
}
}
</ script >
< scriptlanguage = " JavaScript " >
varonecount1;
onecount1 = 0 ;
subcat1 = new Array ();
< %
CountLinkAction1 = 0
do while not rs2.eof
% >
subcat1[ < % = CountLinkAction1% > ] = new Array ( " <%=trim(rs2( " endlei " ))%> " , " <%=trim(rs2( " seclei_id " ))%> " );
< %
CountLinkAction1 = CountLinkAction1 + 1
rs2.movenext
loop
rs2.close
set rs2 = nothing
% >
onecount1 =< % = CountLinkAction1% > ;
function changelocation1(locationid1)
{
document.form1.selectlei3.length = 0 ;
varlocationid1 = locationid1;
varj;
document.form1.selectlei3.options[ 0 ] = new Option ( ' 请选择子类','');
for (j = 0 ;j < onecount1;j ++ )
{
if (subcat1[j][ 1 ] == locationid1)
{
document.form1.selectlei3.options[document.form1.selectlei3.length] = new Option (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% " >
< select name = " selectlei " class = " input " onChange = " changelocation(document.form1.selectlei.options[document.form1.selectlei.selectedIndex].value) " >
< option selected > 请选择大类 </ option >
< % do while not rs.eof
response.write( " <optionvalue= " & rs( " id " ) & " > " & rs( " prolei " ) & " </option> " )
rs.movenext
loop % >
</ select >
< select name = " selectlei2 " class = " input " id = " selectlei2 " onChange = " changelocation1(document.form1.selectlei2.options[document.form1.selectlei2.selectedIndex].value) " >
< option selected > 请选择小类 </ option >
</ select >
< select name = " selectlei3 " class = " input " id = " selectlei3 " >
< option selected > 请选择子类 </ 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 >