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%>