Question

asp 显示前10条新闻代码

<% ynzxsql="SELECT TOP 9 * FROM ynzx ORDER BY time DESC"
set ynzxrs = Server.CreateObject("ADODB.Recordset")
ynzxrs.open ynzxsql,conn,1,1
DO WHILE NOT ynzxrs.EOF
%>
<a href="ynzxShow.asp?ShowID=<%=ynzxrs("ID")%>" class="tex4"> <span class="text2">
<%
If Len(ynzxrs("title"))>15 Then
Response.Write(Left(ynzxrs("title"),15))&"..."
Else
Response.Write(ynzxrs("title"))
End If
%>
<% ynzxrs.MoveNext
LOOP
ynzxrs.close()
set ynzxrs = nothing%>
怎么全部显示出来呢？

Answer 1

把你代码换成这.

<% set ynzxrs =server.CreateObject("ADODB.Recordset")
ynzxsql="SELECT TOP 10 * FROM ynzx ORDER BY time DESC"
ynzxrs .open ynzxsql,conn,1,1
if not ynzxrs .bof and not ynzxrs .eof then
for i=1 to ynzxrs.recordcount
%>
<a href="ynzxShow.asp?ShowID=<%=ynzxrs("ID")%>" class="tex4"> <span class="text2">
<%
If Len(ynzxrs("title"))>15 Then
Response.Write(Left(ynzxrs("title"),15))&"..."
Else
Response.Write(ynzxrs("title"))
End If
%>
<%
ynzxrs.movenext
if ynzxrs.bof or ynzxrs.eof then
exit for
end if
next
end if
set ynzxrs=nothing
ynzxrs.close%>

Answer 2

ynzxsql="SELECT TOP 9 * FROM ynzx ORDER BY time DESC
改成
ynzxsql="SELECT * FROM ynzx ORDER BY time DESC (去掉TOP 9就行了)

Answer 3

top一般不是标准SQL语句

DO WHILE NOT ynzxrs.EOF and i<10
ynzxrs.MoveNext
i ++
loop