<% 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 %> 洗车器资讯,中国洗车器网动态,汽车养护资讯, 护车士汽车用品
新闻资讯
<% Do while not objrs.Eof %> <% objrs.movenext loop if objrs.Recordcount<1 then '没有记录 %> <% else %> <% End if %>
主题   点击 时间
" target="_blank" title="<%=objrs("topic") %>"><%=objrs("topic") %> <% if datediff("d",objrs("addtime"),now())<=3 then %> <% End if %> <%=objrs("hits") %> [<%=formatdatetime(objrs("addtime"),2) %>]
暂时没有公司新闻!
<% call pagination(pagecount,"news.asp","key=" & key) %>
最新动态