代码如上:
<%
dim sqlBL,rsBL
sqlbl="select top 5 * from content order by infotime desc"
set rsbl=server.CreateObject("adodb.recordset")
rsbl.open sqlbl,conn,1,3
%>
<TABLE cellSpacing=0 cellPadding=3 width="99%" align=center border=0>
<TBODY>
<tr><td height="5"></td></tr>
<%
if not rsbl.eof then
do while not rsbl.eof
%>
<TR>
<TD width="29%"><SPAN class=red2>[ <%=rsbl("BigClassName")%> ]</SPAN></TD>
<TD width="70%">
<A href="blog/blog_list.asp?id=<%=rsbl("id")%>"><%=left(rsbl("title"),14)%>...</A>
</TD>
</TR>
<%
rsbl.movenext
loop
rsbl.close
set rsbl=nothing
end if
%>