<% Dim rs,sql,message Set rs = Server.CreateObject("ADODB.Recordset") sql = "Select * From messages order by datetime desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then Response.Write "<tr>" Response.Write "<td><p aligh=center align=center><font color=#fffffff size=2>现在还没有任何记录!</td><td></font></td>" Response.Write "</tr></table>" response.End() end if rs.pagesize=8 %>

请问哪一位大侠能帮我解释一下.本人初学ASP

<% Dim rs,sql,message //定义变量 Set rs = Server.CreateObject("ADODB.Recordset") //新建记录集读取方式 sql = "Select * From messages order by datetime desc" //SQL语句 rs.open sql,conn,1,1 //通过rs，在conn连接下打开SQL语句 if rs.eof and rs.bof then //如果返回的记录为空的话 Response.Write "<tr>" //response.write用来输出语句 Response.Write "<td><p aligh=center align=center><font color=#fffffff size=2>现在还没有任何记录!</td><td></font></td>" Response.Write "</tr></table>" response.End() //结束输出 end if rs.pagesize=8 //定义一个记录集一页输出的数据条数 %>

太感谢你啦! regedit

Set Rs1 = Server.CreateObject("ADODB.Recordset") sql1="select * from admin" Rs1.open sql,conn,3,2 if date <> today_time then Rs1("today_count") = 0 end if Rs1("today_time") = date Rs1.update Rs1.close set Rs1 = nothing

哪这个呢?麻烦啦.

[此贴子已经被作者于2004-10-08 11:37:17编辑过]

更新数据

Set Rs1 = Server.CreateObject("ADODB.Recordset") sql1="select * from admin" Rs1.open sql,conn,3,2 if date <> today_time then Rs1("today_count") = 0 //写入数据 end if Rs1("today_time") = date Rs1.update //更新 Rs1.close //关闭 set Rs1 = nothing //清空