<% set rs1=server.CreateObject("Adodb.RecordSet") rs1.source="select * from SmallClass order by SmallClassID" rs1.open rs1.source,conn,1,1 SmallClassCount=rs1.RecordCount dim ArraySmallClassID(20),ArraySmallClassName(20) for i=1 to SmallClassCount ArraySmallClassID(i)=rs1("SmallClassID") ArraySmallClassName(i)=trim(rs1("SmallClassName")) rs1.MoveNext next rs1.Close set rs1=nothing %>        <% for i=1 to SmallClassCount %> 〖<%=ArraySmallClassName(i)%>〗  <% Next %>
 
 
<% for i=1 to SmallClassCount SmallClassID=ArraySmallClassID(i) SmallClassName=ArraySmallClassName(i) set rs2=server.CreateObject("ADODB.RecordSet") rs2.Source="select top 8 * from Article where SmallClassName='" & SmallClassName &"' order by UpdateTime DESC" rs2.Open rs2.Source,conn,1,1 %>
8 【<%=SmallClassName%>】  
<% if not rs2.EOF then more=1 else more=0 end if while not rs2.EOF Title=trim(rs2("ArticleTitle")) TitleLen=len(Title) %> <% rs2.MoveNext wend rs2.close %>
" target="_blank" onMouseOver="showPopupText" alt="<%=rs2("ArticleTitle")%>"> <% if TitleLen>40 then %> <%=mid(Title,1,40)%> <% else %> <%=Title%> <% end if %> (<%=rs2("UpdateTime")%>)
  <%if more=1 then%> 更 多>> <%end if%>

<% next %>
 

  
  本站声明:马迪笛子艺术网站原创文章或首发文章,媒体或网友若需转载请通知本站同意,转载请保持文章完整性,并注明作者及文章来源。请勿擅自转载或编辑修改、挪作它用,否则追究相关责任。
 
     
版权所有©2009 马迪笛子艺术网站 设计:簪花吹雨