asp 指定读取前几条记录set rs20170627 = server.CreateObject ("adodb.rs

我写的

         <%
set rs20170627 = server.CreateObject ("adodb.recordset")
sql20170627="select top 12 * from Product order by ID desc"
rs20170627.open sql20170627,conn,1,1
if rs20170627.eof and rs20170627.bof then
	Response.Write "栏目正在建设中……"
else
do while not rs20170627.eof
%>
        <li>
		<a href="productshow.asp?ID=<%=rs20170627("ID")%>" title="<%=rs20170627("Title")%>">
		<img src="<%=rs20170627("DefaultPicUrl")%>" width="154" height="107" />
		<span><%=strvalue(rs20170627("Title"),26)%></span>
		</a>
		</li>
<%
	rs20170627.movenext
	loop
	rs20170627.close
    set rs20170627=nothing
end if
%>

网上转载的

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>lovehui</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
 dim conn,sql,rs
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("lovehui.mdb")
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="Select * From lovehui"
 rs.Open sql,conn,1,1
 do while not rs.EOF
   response.Write"<br>"
   for i=0 to rs.Fields.count-1
     Response.Write rs.Fields(i).value
   next
  response.Write"<br>"
  rs.MoveNext
 loop
 rs.Clone
 set rs=nothing
 conn.Close
 set conn=nothing
%>
</html>