<%
dim fl1,fl2,fl3,fl4,fl5,fl6,fl7,fl8,fl9,fl10,fid1,fid2,fid3,fid4,fid5,fid6,fid7,fid8,fid9,fid10
set rsclass=server.createobject("adodb.recordset")
sqlclass = "select * from class1 order by paixu desc"
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
response.write "请先添加栏目。"
response.end
else
kk=0
do while not rsclass.eof
kk=kk+1
%>
<% 
Select Case kk
                Case "1"
                fl1=rsclass("class1")
                Case "2"
                fl2=rsclass("class1")
                Case "3"
                fl3=rsclass("class1")
                Case "4"
                 fl4=rsclass("class1")
                Case "5"
                fl5=rsclass("class1")
                Case "6"
               fl6=rsclass("class1")
                Case "7"
                fl7=rsclass("class1")
                Case "8"
               fl8=rsclass("class1")
			    Case "9"
               fl9=rsclass("class1")
			    Case "10"
               fl10=rsclass("class1")
                End Select%>
<% 
Select Case kk
                Case "1"
                fid1=rsclass("id")
                Case "2"
                fid2=rsclass("id")
                Case "3"
                fid3=rsclass("id")
                Case "4"
                 fid4=rsclass("id")
                Case "5"
                fid5=rsclass("id")
                Case "6"
               fid6=rsclass("id")
                Case "7"
                fid7=rsclass("id")
                Case "8"
               fid8=rsclass("id")
			     Case "9"
               fid9=rsclass("id")
			     Case "10"
               fid10=rsclass("id")
                End Select%>
<%
rsclass.movenext
%>
<%
loop
end if
%>
<%
rsclass.close
%>
<%sub floading1()%>

<table width="485" border="0" align="center" cellpadding="0" cellspacing="0" class="tablest12">
  <tr>
    <td width="101" height="34" class="mbg01"><div class="infoft"><%=fl1%></div></td>
    <td width="384" class="mbga1"><%set rs51=server.createobject("adodb.recordset")
sql51="select top 5 * from class2 where class1="&fid1&" order by id asc"
rs51.open sql51,conn,1,1%>
      <%do while not rs51.eof%>
      <a href="categories.asp?//=<%=rs51("id")%>&amp;/=<%=rs51("class1")%>&amp;jle=2" class="a13"><%=rs51("class2")%></a>|
<% rs51.movenext
loop
rs51=close
set rs51=nothing
%><a href="post.asp"><font color="#CC0000">免费发布</font></a></td>
  </tr>
  <tr>
    <td colspan="2" valign="top"><table  width="485" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 12 * from jle_info where yz=1 and class1="&fid1&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
j = 0
%>
        <%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if
j = j + 1
%>
        <td height="28"><font color="#990000">[<%=rs1("leixing")%>]</font> <a href="<%=rs1("xurl")%>" class="titleif"><%response.write ""&left(rs1("biaoti"),18)&""%></a>&nbsp;<%=fsj%></td><%if (j mod 2)=0 then%>
        </tr>
      <tr>
        <td height="1" background="img/dot_line.gif" colspan="2" ></td>
        </tr>
      <% end if
rs1.movenext
Loop
rs1.close
set rs1=nothing%>
</table></td>
  </tr>
</table>
<%end sub%>
<%sub floading2()%>
<table width="485" border="0" align="center" cellpadding="0" cellspacing="0" class="tablest12">
  <tr>
    <td width="181" height="36"  class="mbg02"><div class="infoft"><%=fl2%></div></td>
    <td width="632"  class="mbga1"><%set rs51=server.createobject("adodb.recordset")
sql51="select top 9 * from class2 where class1="&fid2&" order by id asc"
rs51.open sql51,conn,1,1%>
      <%do while not rs51.eof%>
      <a href="categories.asp?//=<%=rs51("id")%>&amp;/=<%=rs51("class1")%>&amp;jle=2" class="a13"><%=rs51("class2")%></a>|
<% rs51.movenext
loop
rs51=close
set rs51=nothing
%><a href="post.asp"><font color="#CC0000">免费发布</font></a></td>
  </tr>
  <tr>
    <td colspan="2" valign="top"><table  width="485" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 12 * from jle_info where yz=1 and class1="&fid2&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
j = 0
%>
        <%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if
j = j + 1
%>
        <td height="28"><font color="#990000">[<%=rs1("leixing")%>]</font> <a href="<%=rs1("xurl")%>" class="titleif"><%response.write ""&left(rs1("biaoti"),18)&""%></a>&nbsp;<%=fsj%></td><%if (j mod 2)=0 then%>
        </tr>
      <tr>
        <td height="1" background="img/dot_line.gif" colspan="2" ></td>
        </tr>
      <% end if
rs1.movenext
Loop
rs1.close
set rs1=nothing%>
</table></td>
  </tr>
</table>
<%end sub%>
<%sub floading3()%>
<table width="813" border="0" align="center" cellpadding="0" cellspacing="0" class="tablest12">
  <tr>
    <td height="36"  class="mbg03"><div class="infoft"><%=fl3%></div></td>
    <td  class="mbga1"><%set rs51=server.createobject("adodb.recordset")
sql51="select top 9 * from class2 where class1="&fid3&" order by id asc"
rs51.open sql51,conn,1,1%>
      <%do while not rs51.eof%>
      <a href="categories.asp?//=<%=rs51("id")%>&amp;/=<%=rs51("class1")%>&amp;jle=2" class="a13"><%=rs51("class2")%></a>|
<% rs51.movenext
loop
rs51=close
set rs51=nothing
%><a href="post.asp"><font color="#CC0000">免费发布</font></a></td>
  </tr>
  <tr>
    <td  width="181" valign="top">&nbsp;</td>
    <td  width="632"><table  width="635" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 12 * from jle_info where yz=1 and class1="&fid3&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
j = 0
%>
<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if
j = j + 1
%>
<td height="28"><font color="#990000">[<%=rs1("leixing")%>]</font> <a href="<%=rs1("xurl")%>" class="titleif"><%response.write ""&left(rs1("biaoti"),18)&""%></a>&nbsp;<%=fsj%></td><%if (j mod 2)=0 then%>
</tr>
<tr>
<td height="1" background="img/dot_line.gif" colspan="2" ></td>
</tr>
<% end if
rs1.movenext
Loop
rs1.close
set rs1=nothing%>
</table></td>
  </tr>
</table>
<%end sub%>
<%sub floading4()%>
<table width="813" border="0" align="center" cellpadding="0" cellspacing="0" class="tablest12">
  <tr>
    <td height="36"  class="mbg04"><div class="infoft"><%=fl4%></div></td>
    <td  class="mbga1"><%set rs51=server.createobject("adodb.recordset")
sql51="select top 9 * from class2 where class1="&fid4&" order by id asc"
rs51.open sql51,conn,1,1%>
      <%do while not rs51.eof%>
      <a href="categories.asp?//=<%=rs51("id")%>&amp;/=<%=rs51("class1")%>&amp;jle=2" class="a13"><%=rs51("class2")%></a>|
<% rs51.movenext
loop
rs51=close
set rs51=nothing
%><a href="post.asp"><font color="#CC0000">免费发布</font></a></td>
  </tr>
  <tr>
    <td  width="181" valign="top">&nbsp;</td>
    <td  width="632"><table  width="635" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 12 * from jle_info where yz=1 and class1="&fid4&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
j = 0
%>
<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if
j = j + 1
%>
<td height="28"><font color="#990000">[<%=rs1("leixing")%>]</font> <a href="<%=rs1("xurl")%>" class="titleif"><%response.write ""&left(rs1("biaoti"),18)&""%></a>&nbsp;<%=fsj%></td><%if (j mod 2)=0 then%>
</tr>
<tr>
<td height="1" background="img/dot_line.gif" colspan="2" ></td>
</tr>
<% end if
rs1.movenext
Loop
rs1.close
set rs1=nothing%>
</table></td>
  </tr>
</table>
<%end sub%>
<%sub floading5()%>
<table width="813" border="0" align="center" cellpadding="0" cellspacing="0" class="tablest12">
  <tr>
    <td height="36"  class="mbg05"><div class="infoft"><%=fl5%></div></td>
    <td  class="mbga1"><%set rs51=server.createobject("adodb.recordset")
sql51="select top 9 * from class2 where class1="&fid5&" order by id asc"
rs51.open sql51,conn,1,1%>
      <%do while not rs51.eof%>
      <a href="categories.asp?//=<%=rs51("id")%>&amp;/=<%=rs51("class1")%>&amp;jle=2" class="a13"><%=rs51("class2")%></a>|
<% rs51.movenext
loop
rs51=close
set rs51=nothing
%><a href="post.asp"><font color="#CC0000">免费发布</font></a></td>
  </tr>
  <tr>
    <td  width="181" valign="top">&nbsp;</td>
    <td  width="632"><table  width="635" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 12 * from jle_info where yz=1 and class1="&fid5&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
j = 0
%>
<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if
j = j + 1
%>
<td height="28"><font color="#990000">[<%=rs1("leixing")%>]</font> <a href="<%=rs1("xurl")%>" class="titleif"><%response.write ""&left(rs1("biaoti"),18)&""%></a>&nbsp;<%=fsj%></td><%if (j mod 2)=0 then%>
</tr>
<tr>
<td height="1" background="img/dot_line.gif" colspan="2" ></td>
</tr>
<% end if
rs1.movenext
Loop
rs1.close
set rs1=nothing%>
</table></td>
  </tr>
</table>
<%end sub%>
<%sub floading6()%>
<table width="813" border="0" align="center" cellpadding="0" cellspacing="0" class="tablest12">
  <tr>
    <td height="36"  class="mbg06"><div class="infoft"> <%=fl6%></div></td>
    <td  class="mbga1"><%set rs51=server.createobject("adodb.recordset")
sql51="select top 9 * from class2 where class1="&fid6&" order by id asc"
rs51.open sql51,conn,1,1%>
      <%do while not rs51.eof%>
      <a href="categories.asp?//=<%=rs51("id")%>&amp;/=<%=rs51("class1")%>&amp;jle=2" class="a13"><%=rs51("class2")%></a>|
<% rs51.movenext
loop
rs51=close
set rs51=nothing
%><a href="post.asp"><font color="#CC0000">免费发布</font></a></td>
  </tr>
  <tr>
    <td  width="181" valign="top">&nbsp;</td>
    <td  width="632"><table  width="635" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 12 * from jle_info where yz=1 and class1="&fid6&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
j = 0
%>
<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if
j = j + 1
%>
<td height="28"><font color="#990000">[<%=rs1("leixing")%>]</font> <a href="<%=rs1("xurl")%>" class="titleif"><%response.write ""&left(rs1("biaoti"),18)&""%></a>&nbsp;<%=fsj%></td><%if (j mod 2)=0 then%>
</tr>
<tr>
<td height="1" background="img/dot_line.gif" colspan="2" ></td>
</tr>
<% end if
rs1.movenext
Loop
rs1.close
set rs1=nothing%>
</table></td>
  </tr>
</table>
<%end sub%>
<%sub floading7()%>
<table width="813" border="0" align="center" cellpadding="0" cellspacing="0" class="tablest12">
  <tr>
    <td height="36"  class="mbg07"><div class="infoft"><%=fl7%></div></td>
    <td  class="mbga1"><%set rs51=server.createobject("adodb.recordset")
sql51="select top 9 * from class2 where class1="&fid7&" order by id asc"
rs51.open sql51,conn,1,1%>
      <%do while not rs51.eof%>
      <a href="categories.asp?//=<%=rs51("id")%>&amp;/=<%=rs51("class1")%>&amp;jle=2" class="a13"><%=rs51("class2")%></a>|
<% rs51.movenext
loop
rs51=close
set rs51=nothing
%><a href="post.asp"><font color="#CC0000">免费发布</font></a></td>
  </tr>
  <tr>
    <td  width="181" valign="top">&nbsp;</td>
    <td  width="632"><table  width="635" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 12 * from jle_info where yz=1 and class1="&fid7&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
j = 0
%>
<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if
j = j + 1
%>
<td height="28"><font color="#990000">[<%=rs1("leixing")%>]</font> <a href="<%=rs1("xurl")%>" class="titleif"><%response.write ""&left(rs1("biaoti"),18)&""%></a>&nbsp;<%=fsj%></td><%if (j mod 2)=0 then%>
</tr>
<tr>
<td height="1" background="img/dot_line.gif" colspan="2" ></td>
</tr>
<% end if
rs1.movenext
Loop
rs1.close
set rs1=nothing%>
</table></td>
  </tr>
</table>
<%end sub%>
<%sub floading8()%>
<table width="813" border="0" align="center" cellpadding="0" cellspacing="0" class="tablest12">
  <tr>
    <td height="36"><div class="infoft"><%=fl8%></div></td>
    <td><%set rs51=server.createobject("adodb.recordset")
sql51="select top 9 * from class2 where class1="&fid8&" order by id asc"
rs51.open sql51,conn,1,1%>
      <%do while not rs51.eof%>
      <a href="categories.asp?//=<%=rs51("id")%>&amp;/=<%=rs51("class1")%>&amp;jle=2" class="a13"><%=rs51("class2")%></a>|
<% rs51.movenext
loop
rs51=close
set rs51=nothing
%><a href="post.asp"><font color="#CC0000">免费发布</font></a></td>
  </tr>
  <tr>
    <td  width="181" valign="top">&nbsp;</td>
    <td  width="632"><table  width="635" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 12 * from jle_info where yz=1 and class1="&fid8&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
j = 0
%>
<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if
j = j + 1
%>
<td height="28"><font color="#990000">[<%=rs1("leixing")%>]</font> <a href="<%=rs1("xurl")%>" class="titleif"><%response.write ""&left(rs1("biaoti"),18)&""%></a>&nbsp;<%=fsj%></td><%if (j mod 2)=0 then%>
</tr>
<tr>
<td height="1" background="img/dot_line.gif" colspan="2" ></td>
</tr>
<% end if
rs1.movenext
Loop
rs1.close
set rs1=nothing%>
</table></td>
  </tr>
</table>
<%end sub%>
<%sub floading9()%>
<table width="813" border="0" align="center" cellpadding="0" cellspacing="0" class="tablest12">
  <tr>
    <td height="36"><div class="infoft"> <%=fl9%></div></td>
    <td><%set rs51=server.createobject("adodb.recordset")
sql51="select top 9 * from class2 where class1="&fid9&" order by id asc"
rs51.open sql51,conn,1,1%>
      <%do while not rs51.eof%>
      <a href="categories.asp?//=<%=rs51("id")%>&amp;/=<%=rs51("class1")%>&amp;jle=2" class="a13"><%=rs51("class2")%></a>|
<% rs51.movenext
loop
rs51=close
set rs51=nothing
%><a href="post.asp"><font color="#CC0000">免费发布</font></a></td>
  </tr>
  <tr>
    <td  width="181" valign="top">&nbsp;</td>
    <td  width="632"><table  width="635" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top 12 * from jle_info where yz=1 and class1="&fid9&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
j = 0
%>
<%
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if
j = j + 1
%>
<td height="28"><font color="#990000">[<%=rs1("leixing")%>]</font> <a href="<%=rs1("xurl")%>" class="titleif"><%response.write ""&left(rs1("biaoti"),18)&""%></a>&nbsp;<%=fsj%></td><%if (j mod 2)=0 then%>
</tr>
<tr>
<td height="1" background="img/dot_line.gif" colspan="2" ></td>
</tr>
<% end if
rs1.movenext
Loop
rs1.close
set rs1=nothing%>
</table></td>
  </tr>
</table>
<%end sub%>
