<!--#Include File="conn.Asp"-->
<%
Dim rsa,sqla
Dim rsb,sqlb
set rsa=server.createobject("adodb.recordset")
sqla = "select * from b_nei order by bid"
rsa.open sqla,conn,1,1
set rsb=server.createobject("adodb.recordset")
sqlb = "select * from s_nei order by sid"
rsb.open sqlb,conn,1,1
%>
<SCRIPT language = "javascript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rsb.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rsb("s_tit"))%>","<%= trim(rsb("suyu"))%>","<%= trim(rsb("sid"))%>");
<%
count = count + 1
rsb.movenext
loop
rsb.close
%>
onecount=<%=count%>;
function change2(locationid2)
{
document.sf.sk.length = 0;
var locationid2=locationid2;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[1] == locationid2)
{
document.sf.sk.options[document.sf.sk.length] = new Option(subcat[0], subcat[2]);
}
}
}
</SCRIPT>

<select name="dk" >
<option selected value="">选择大类</option>
<% do while not rsa.eof %>
<option value="<%=trim(rsa("bid"))%>"><%=trim(rsa("b_tit"))%></option>
<%
rsa.movenext
loop
%>
</select>
<select name="sk">
<option selected value="">先选择分类</option>
</select>

我这个二级联动的用不了，谁帮我改下，我是新手