<%
csql="select count(*) AS co from t_news where 1=1"
if(id>0) then
csql=csql&" and catalogid="&id
end if
set rs=server.createobject("adodb.recordset")
rs.open csql,conn,3,1
allrec=rs(0)
totalpage=int((allrec+recpage-1)/recpage)
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select top "&recpage&" id,title,modtime,content from t_news where id <=(select min(id) from (select top "&(recpage*(currentpage-1)+1)&" id from t_news where 1=1"
if(id>0) then
sql=sql&" and catalogid="&id
end if
sql=sql&" order by id desc) as t)"
if(id>0) then
sql=sql&" and catalogid="&id
end if
sql=sql&" order by id desc "
rs.open sql,conn,3,1
if rs.eof or rs.bof then
response.Write("没有记录! ")
else
do while not rs.eof or rs.bof
%>
- <%=FormatDate(rs(2),1)%><%=rs(1)%>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
|