<%
Dim objrs1,strsql1
strsql1="select count(*) as recount from news where flag=0"
set objrs1=server.createobject("ADODB.Recordset")
objrs1.open strsql1,objconn,1,2,1
pagesize=15
pagecount=cint(objrs1("recount")-1)\pagesize+1
pageno=checkpage(rp(Request.querystring("page")),pagecount)
m=(pageno-1)*pagesize
Dim objrs,strsql
if m=0 then
strsql="select top " & pagesize & " id,topic,hits,addtime from news where flag=0 order by addtime desc,id"
else
strsql="select top " & pagesize & " id,topic,hits,addtime from news where id not in(select top " & m & " id from news where flag=0 order by addtime desc,id) and flag=0 order by addtime desc,id"
End if
set objrs=server.createobject("ADODB.Recordset")
objrs.open strsql,objconn,1,2,1
%>
洗车器资讯，中国洗车器网动态，汽车养护资讯， 护车士汽车用品
<% End if %>
