asp最新一条记录特殊处理

来源：百度知道编辑：UC知道时间：2024/04/28 14:07:43

select top 4 * from news where lei='1' order by id desc

以上取出5条记录，
1--------
2--------
3--------
4--------
这样就显示了四条新闻记录，如何使首条变大显示
笔误竟然写成5条了，呵呵

set rs = "select top 4.............."
if rs.eof and rs.bof then
else
rsnum=1
do while not rs.eof and rsnum<=4
if rsnum=1 then
response.write "......"
else
response.write "......"
end if
rs.movenext:rsnum=rsnum+1
loop
end if
rs.close:set rs=nothing

<%
Dim I
Set Rs = Conn.Execute("select top 4 * from news where lei='1' order by id desc ")
I = 0
Do While Not Rs.Eof
If I < 1 Then
Response.Write(""&Rs(1)&" ")
Else
Response.Write(""&Rs(1)&" ")
End If
I = I + 1
Rs.MoveNext
Loop
Set Rs = Nothing
%>