|
 |
|
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="select top 8 * from article where classid=2 order by dateandtime desc"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
%>
<%else i=1
do while not rs.eof
%>
<% i=i+1
if i=7 then
exit do
end if
rs.movenext
loop
if rs.recordcount>6 then
%>
<% end if
rs.close
set rs=nothing
end if
%>
|
|
 |
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="select top 8 * from article where classid=3 order by articleid asc"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
%>
<%else i=rs.recordcount
%>
| |
<%
rs.movenext
if i>=3 then
%>
|
<%rs.movenext
%>
|
<%end if
if i=2 then
%> |
无图片! |
<%end if
if i=1 then
%>
无图片! |
无图片! |
<%end if
%>
<%
if rs.recordcount>3 then
%>
<% end if
rs.close
set rs=nothing
end if
%>
|
|
|
