28,390
社区成员
发帖
与我相关
我的任务
分享
<%
set Rs_Class = server.createobject("adodb.recordset")
Sql_Class = "select typeid,typename from cls"
Rs_Class.open Sql_Class,conn,1,1
Do While Not Rs_Class.EoF
%>
<div class="Box">
<h5><%=Rs_Class("typename")%></h5>
<ul>
<%
Sql_List="select id,title,date,typeid from bbs where typeid='"&Rs_Class("typeid")&"'"
Set RsList=server.createobject("adodb.recordset")
RsList.open Sql_List,conn,1,1
Do While Not RsList.Eof
%>
<li><span><%=FormatDate(RsList("date"),18)%></span><a href="ShowNews.Asp?id=<%=RsList("id")%>" target="_blank" title="<%=RsList("title")%>"><%=RsList("title")%></a></li>
<%
RsList.MoveNext
Loop
RsList.Close
Set RsList=Nothing
%>
</ul>
</div>
<%
Rs_Class.MoveNext
Loop
Rs_Class.Close
Set Rs_Class=Nothing
conn.Close
Set conn=Nothing
%>