<%
Dim NoClass2
NoClass2=1
NoClass1=1
Set rs = Server.Createobject("ADODB.recordset")
asql="select  top 20 *   from   BigClass  where  NoClass='"&NoClass2&"'  order by BgOrder asc"
rs.open asql,Cn


%>
<%

if not rs.eof and not rs.bof then
 while not rs.eof
BigClass_Cp=rs("BigClass")
ClassCode_Cp=rs("ClassCode")
  
  Set rs1 = Server.Createobject("ADODB.recordset")
  bsql="select  top 1  *   from   Article  where BigClass='"&ClassCode_Cp&"' and NoClass='"&NoClass1&"'  order by id desc"
  rs1.open bsql,Cn
  if rs1.eof and rs1.bof then
 else
 %>
<div id=CpList01><img src=images/c1.JPG border=0><a  href=<%=Web_WebUrl%><%=ClassCode_Cp%>.html  title='<%=BigClass_Cp%>'><%=BigClass_Cp%></a></div>

<%
  rs1.close   
  set rs1=nothing
  end  if
rs.movenext
wend
rs.close   
set rs=nothing
  
end if
%>

1  9
2  10
3
4
5
6
7
8

谢谢楼上，我不懂啊，您能不能就上面的代码修改一下呢？感激不尽！

有高手吗？或者直接分两列显示也行。

代码不行啊，不过还是谢谢netlin斑竹。

我想要这个效果，可惜不行啊。直接分两列显示又如何修改呢？

[ 本帖最后由 雅免 于 2012-8-25 02:41 编辑 ]

谢谢netlin老师，您提供的代码还是不行，我的qq：寂寞生存  527081329  加我方便吗？我发源码给您。

难啊！加我qq或电邮吧。