<% Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from cnarticle" rs.Open sql,conn,1,1 %>
<% if rs.EOF and rs.BOF then response.write ("暂时还没有文章") else Do Until rs.EOF response.write("文章标题是:"& rs("cn_title")) response.write("<br>文章作者是:"& rs("cn_author")) response.write("<br>文章加入时间是:"& rs("cn_time")) response.write("<br>文章内容是:"& rs("cn_content")) response.write("<hr>") rs.MoveNext Loop end if %>
<% rs.close Set rs = Nothing conn.close set conn=Nothing %>
5,if rs.EOF and rs.BOF then 该语句里面涉及到了rs.EOF 和 rs.BOF 以及两者的逻辑运算 and 。rs.EOF 表示到达数据库表中的最后一行,rs.BOF 表示到达数据库表中的第一行。整个语句可以理解为,如果当前数据库中的最后一行就是数据库表中第一行,那么可以肯定:当前数据库表中没有任何数据。
由 sql = "Select * from cnarticle" 添加修改为 sql = "Select * from cnarticle order by cn_id desc" 其中 order by cn_id 即通过cn_id字段,desc 即降序了。
2,有是时候,只需要提取最前或者最新的几条信息,那这个又具体如何操作呢?同样还是连接字符串的修改 由 sql = "Select * from cnarticle order by cn_id desc" 添加修改为 sql = "Select top 3 * from cnarticle order by cn_id desc" 其中 top 3 就表示提取最新的三条信息内容了。
That's All. 现在一个文章系统、新闻系统或者留言本显示部分的精华内容你已不费吹灰之力搞定。