只怪自己学艺不精   
老是不对  弄了几个小时  头都大了   请各位帮忙..
 <!--#include file="fun/conn.asp" -->
 <TABLE cellSpacing=0 cellPadding=0 width=696 align=center border=0>
          <TBODY>
              <TR> <!--开始读类 -->
                 <% if sys_indexlei="" then sys_indexlei=6
 set frs= Server.CreateObject("adodb.recordset")
 set srs= Server.CreateObject("adodb.recordset")
 set lrs= Server.CreateObject("adodb.recordset")
 lrs.open ("select * from boolei where  lleiji=0 order by ldianji desc"),conn,1,1
 for lx=1 to int(lrs.recordcount)
 '如果小于6继续大于就改变
 if (lx mod 2)=0 then
 styleshu=2
 else
 styleshu=1
 end if%>
 <TD width=100  background=info_bg.gif height=26>  
                <IMG height=9 src="images/arrow_04.gif" width=5>
                <SPAN class=white14b><a href='bogou.asp?blei=<%= lrs("lid") %>' target="_blank"><%= left(lrs("lname"),4) %></SPAN></TD>
               
                <TD class=bot vAlign=bottom align=right width=281>
                 <% frs.open ("select top 2 * from boolei where lleiji="&lrs("lid")&" order by ldianji desc"),conn,1,1
  if not frs.eof then
  for xj=1 to int(frs.recordcount)%><a href='bogou.asp?blei=<%= lrs("lid") %>&blei2=<%= frs("lid") %>' target="_blank"><font color="#FFFFFF"><%= left(frs("lname"),5) %></font></a>  
  <% if xj=2 then exit for
  frs.movenext
  next %>
                <A href="bogou.asp?blei=<%= lrs("lid") %>" target=_blank>
    <IMG height=17 alt=更多网站交易信息 src="images/button_more_01.gif" width=37 border=0></A><% End If
  frs.close %></TD><TR>
                <TD class=list vAlign=top colSpan=2 height=125>
                <% srs.open ("select top 10 * from spboo where stui<99 and slei like '%a"&lrs("lid")&"a%' order by stime desc"),conn,1,1
  for zx=1 to int(srs.recordcount) %>
  <span style="width:177px">[<font color="#FF0000">最新</font>]<a href='boo_sp.asp?bid=<%= srs("sid") %>' target="_blank" class="titlefont"  title='<%= srs("sname") %> 价格：<%= srs("sjia1") %>元 <%= replace(left(srs("sjie1"),250),"<BR>"," ") %>'><%= left(srs("sname"),14) %></a></span>
  <% if zx=10 then exit for
  srs.movenext
  next
  srs.close
   %>
    <div align="center">
      <% srs.open ("select top 10 * from spboo where stui<99 and slei like '%a"&lrs("lid")&"a%' order by sdian desc"),conn,1,1
    for nc=1 to int(srs.recordcount) %>
      <span style="height:75px; width:72px"><a href='boo_sp.asp?bid=<%= srs("sid") %>' target="_blank"  title='热门点击商品： <%= srs("sname") %> 价格：<%= srs("sjia1") %>元 <%= replace(left(srs("sjie1"),250),"<BR>"," ") %>' >
        <img src="<%= srs("simg") %>"  width="60" height="60" align="absmiddle" border="0" class="spimgs" onload="picchuli(this,110,130)"> <font color="#FF6600">心动<%= srs("sjia1") %>元</font>
        </a></span>
              <% if nc=6 then exit for
  srs.movenext
  next
  srs.close %>  
</td>
<% if lx=>int(sys_indexlei) then exit for
 lrs.movenext
 next
 lrs.close
 set lrs=nothing
 set srs=nothing
 set frs=nothing %>
 <!--结束 --></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
    </TR></TBODY></TABLE>