<% set wz=server.CreateObject("adodb.recordset") sql="select * from muban where len(pic)>3 and zt=1 order by id desc" wz.open sql,coon,1,3 wz.pagesize=9 p=clng(request.QueryString("p")) if p<1 or p="" then p=1 end if if p>wz.pagecount then p=wz.pagecount end if if wz.eof=false then wz.absolutepage=p end if '最新文章 set nwz=server.CreateObject("adodb.recordset") sql="select top 10 * from muban where zt=1 and len(pic)>3 order by id desc" nwz.open sql,coon,1,3 '热门文章 set hwz=server.CreateObject("adodb.recordset") sql="select top 10 * from muban where zt=1 and len(pic)>3 order by hits desc" hwz.open sql,coon,1,3 %> 图说三农_<%=w("w_name")%>
<%wz.close%>
    <%if nwz.eof=false then for i=1 to nwz.recordcount %>
  • <%=i%>
    "><%=nwz("name")%>
    • <% nwz.movenext if nwz.eof then exit for next else %>
  • 暂无信息！
    • <% end if nwz.close %>