<!--#include file="geditop.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>供求信息--<%=title%>--<%=web%></title>
</head>

<body>

<div align="center">
<table cellSpacing="0" cellPadding="0" width="930" border="0" id="table1">
		<tr>
			<td  height="25" colspan="3" class="tdtop"><b>&nbsp;&gt;&gt; 您的位置  
			<font color="#FFFFFF">-></font> <a class="scap1" href="index.htm"><%=title%></a>
			<font color="#FFFFFF">-></font> 供求信息频道：</b></td>
		</tr>
		
		<tr bgColor="#d9ebe5">
			<td  height="25" bgcolor="#FFFFFF" width="252" valign="top"><!--#include file="jingjiaxa.asp"--></td>
			<td  height="25" bgcolor="#FFFFFF" width="38" valign="top">
			<img border="0" src="<%=css%>bgfox1.jpg" width="25" height="280"></td>
			<td  height="25" bgcolor="#FFFFFF" width="640" valign="top" align="right">
<table border="0" width="100%" id="table65" cellspacing="0" cellpadding="0" class="table2">
	<tr>
		<td height="24" class="tdbg2">&nbsp; 供求信息分类</td>
	</tr>
<tr><td>
<%
dim Nclasslie,sql,classlie,classid,id
Set Nclasslie =Server.CreateObject("ADODB.Recordset") 
sql="select * from FOX_class1"        
Set classlie = Server.CreateObject("ADODB.Recordset")                          
classlie.open sql,conn,1,1
if not classlie.eof then
do while not classlie.eof
classid=classlie("id")%> 
<div align="center">
<TABLE width="98%" border=0 cellpadding="0" cellSpacing=1 style="border-collapse: collapse">
  <TBODY>
    <TR>
      <TD width="100%" height="24" colspan="6">
		<table width="100%" id="table63">
			<tr>
				<td class="tdbg4" vAlign="bottom">
      &nbsp;
      <img border="0" src="<%=css%>dot4.gif"> <b> <a href=xinxilist.asp?class1=<%=classid%>&fox=1><font class="z4"><%=classlie("class1")%></font></a></b>
          <%
                dim rs
                set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=0 and class1="&classid&"")
                %>
        [<%=rs(0)%>]</td>
			</tr>
			</table>
 </TD>
    </TR>
    <%
        sql="select * from [FOX_class2] where class1="&classid  
		Nclasslie.open sql,conn,1,1  
		do while not Nclasslie.eof
		%>
    <TR>
      <TD width="121" height="21" align=left><%if not Nclasslie.eof then%>
          <a href=xinxilist.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><font color="#000000"><%=Nclasslie("class2")%></font></a>
          <%
              set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=0 and class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext
              end if%>
      </TD>
      <TD width="121" height="21" align=left><%if not Nclasslie.eof then%>
          <a href=xinxilist.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><font color="#000000"><%=Nclasslie("class2")%></font></a>
          <%
              set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=0 and class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext  
              end if
              %>
      </TD>
      <TD width="121" height="21" align=left><%if not Nclasslie.eof then%>
          <a href=xinxilist.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><font color="#000000"><%=Nclasslie("class2")%></font></a>
          <%
              set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=0 and class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext  
              end if
              %>
      </TD>
      <TD width="121" height="21" align=left><%if not Nclasslie.eof then%>
          <a href=xinxilist.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><font color="#000000"><%=Nclasslie("class2")%></font></a>
          <%
              set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=0 and class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext  
              end if
              %>
      </TD>            
      <TD width="94" height="21" align=left><%if not Nclasslie.eof then%>
          <a href=xinxilist.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><font color="#000000"><%=Nclasslie("class2")%></font></a>
          <%
              set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=0 and class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext
              end if
              %>
      </TD>
    </TR>
    <%
loop               
Nclasslie.Close               
%>
  </TBODY>
</TABLE>
<table border="0" width="100%" id="table64" cellspacing="0" cellpadding="0" height="5">
	<tr>
		<td></td>
	</tr>
</table>
</div>
<%
classlie.movenext               
loop  
end if  
classlie.close  
set classlie=nothing  
set Nclasslie=nothing 
%>
</td>
		</tr>
		
</table>
</td>
</tr>
</table>
</div>

</body>
<!--#include file="ffbottom.asp"--></body></html>