asp 指定读取前几条记录

来源：互联网发布：淘宝好评模板100字编辑：程序博客网时间：2024/06/05 23:51

我写的

         <%set rs20170627 = server.CreateObject ("adodb.recordset")sql20170627="select top 12 * from Product order by ID desc"rs20170627.open sql20170627,conn,1,1if rs20170627.eof and rs20170627.bof thenResponse.Write "栏目正在建设中……"elsedo 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.movenextlooprs20170627.close    set rs20170627=nothingend 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>

阅读全文

0 0