www.gusucode.com > 山寨版广告信息招贴网源码程序 > 山寨版广告信息招贴网源码程序/ewuyi/dir_发布/user/dir.asp
<!-- #include file="conn.asp"--> function change_dir(locationid) { var obj; obj=document.getElementById("ClassID"); obj.length=0; var i; for (i=0;i < onecount_er; i++) { if (subcat_er[i][2] == locationid) { obj.options[obj.length] = new Option(subcat_er[i][0], subcat_er[i][1]); } } } var onecount_yi; onecount_yi=0; subcat_yi = new Array(); count_yi = 0; <% set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from ewuyi_class where c_id=0" rs.open sql,conn,1,1 id=rs("id") c_name=rs("c_name") c_id=rs("C_id") c_key=rs("c_key") i="-1" do while not rs.eof i=i+1%> subcat_yi[<%=i%>] = new Array("<%=rs("c_name")%>","<%=rs("id")%>","<%=rs("c_id")%>"); <%rs.movenext loop rs.close set rs=nothing %> onecount_yi=<%=i+1%>; var onecount_er; onecount_er=0; subcat_er = new Array(); count_er = 0; <% set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from ewuyi_class where c_id>0" rs.open sql,conn,1,1 id=rs("id") c_name=rs("c_name") c_id=rs("C_id") c_key=rs("c_key") ii="-1" do while not rs.eof ii=ii+1 %> subcat_er[<%=ii%>] = new Array("<%=rs("c_name")%>","<%=rs("id")%>","<%=rs("c_id")%>"); <% rs.movenext loop rs.close set rs=nothing %> onecount_er=<%=ii+1%>