<%
dim count
set rs7=server.createobject("adodb.recordset")
rs7.Source= "select * from SmallClass order by zs_id desc"
rs7.open rs7.Source,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs7.eof
%>
subcat[<%=count%>] = new Array("<%=rs7("SmallClassName")%>","<%=rs7("bigclassname")%>","<%=rs7("SmallClassname")%>");
<%
count = count + 1
rs7.movenext
loop
rs7.close
set rs7=nothing
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.form1.smallclassname.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.form1.smallclassname.options[document.form1.smallclassname.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
请选择栏目:
<select name="bigclassname" onChange="changelocation(document.form1.bigclassname.options[document.form1.bigclassname.selectedIndex].value)" size="1">
<option selected value="<%=bigclassname%>"><%=bigclassname%></option>
<%
set rs8=server.CreateObject("ADODB.RecordSet")
rs8.Source="select * from BigClass order by zs_id"
rs8.Open rs8.Source,conn,1,1
do while not rs8.eof
%>
<option value="<%=rs8("bigclassname")%>"><%=rs8("bigclassname")%></option>
<%
rs8.movenext
loop
rs8.close
set rs8=nothing
%>
</select>
小类
<select name="smallclassname">
<option selected value="<%=smallclassname%>"><%=smallclassname%></option>
<%
set rs8=server.CreateObject("ADODB.RecordSet")
rs8.Source="select * from smallclass where bigclassname='"&bigclassname&"' order by zs_id"
rs8.Open rs8.Source,conn,1,1
do while not rs8.eof
%>
<option value="<%=rs8("smallclassname")%>"><%=rs8("smallclassname")%></option>
<%
rs8.movenext
loop
rs8.close
set rs8=nothing
%>
</select>