<%set rs=server.createobject("adodb.recordset") rs.open "[gg] order by d_id desc",conn,1,1 if rs.bof and rs.eof then %> <% rs.close else%> <%for i=1 to 5 if rs.EOF or rs.BOF then exit for%> target="_blank"><%=left(rs("d_bz"),45)%>(<%=rs("d_date")%>) <%rs.movenext next rs.close%> <%end if%>

分类栏目

<% set rs = server.CreateObject("adodb.recordset") rs.open"[cls]",conn,1,3 clsnum=rs.recordcount %> <%do while not rs.eof%> <%rs.movenext loop rs.close %>

"><%=rs("typename")%>

站内搜索

友情链接

<% rs.open"[cls]",conn,1,3 do while not rs.eof%> <% set rs2 = server.CreateObject("adodb.recordset") sql="select id,title,date from bbs where typeid="&rs("typeid")&" order by id desc" rs2.open sql,conn,1,1 for i=1 to 5 if rs2.EOF or rs2.BOF then exit for title=rs2("title") if len(title)>32 then title=left(title,32)+"..." %> <% rs2.movenext next rs2.close%>


"><%=rs("typename")%> "> " target="_blank">更多
><%=title%>	(<%=rs2("date")%>)

<%rs.movenext loop rs.close %>