表名：Class_1 ——父类
字段：SortId（自动编号） Sort（类别名称）
表名：Class_2 ——子类
字段：Typeid（自动编号） TypeName（子类别名称） SortId（父类ID）——与父类表相对应(字段类型为数字型)
现在问题是只能显示大类的名称，小类的显示不了，请各位帮忙看一下哪里出了问题。代码如下：
<% call ShowSearch(1) %>
<% sub ShowSearch(ShowType)
dim count
if ShowType<>1 and ShowType<>2 then
ShowType=1
end if
set rs=server.createobject("adodb.recordset")
sql = "select * from Class_2 order by Typeid asc"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("Typename"))%>","<%= trim(rs("Sortid"))%>","<%= trim(rs("Typename"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.Typename.length = 1;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.Typename.options[document.myform.Typename.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script><%if ShowType=1 then%><%end if%>
<select name="Sortid" onChange="changelocation(document.myform.Sortid.options[document.myform.Sortid.selectedIndex].value)" size="1">
<option selected value="">所有大类</option>
<%
sqlBigClass="select * from Class_1 order by SortID"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1%>
<%
if not (rsBigClass.bof and rsBigClass.eof) then
rsBigClass.movefirst
do while not rsBigClass.eof
response.Write "<option value='" & trim(rsBigClass("Sortid")) & "'>" & trim(rsBigClass("Sort")) & "</option>"
rsBigClass.movenext
loop
end if
%>
</select>
<%if ShowType=1 then%><%end if%>
<select name="Typename">
<option selected value="">所有小类</option>
</select>
<%if ShowType=1 then%><%end if%>
<input type="text" name="keyword" size=35 value="关键字" maxlength="50" onFocus="this.select();">
<input name="imageField" type="image" src="images/serch.gif" align="top" width="65" height="22" border="0"><%
end sub
%>
