% dim str1(6),http(6) dim lnTot set Rs=server.createobject("adodb.recordset") if Session("IP")=Session("cmpIP") then sql="select * from news order by fdate desc" else sql="select * from news where tt<>2 order by fdate desc " end if Rs.open sql,conn,1,3 lnTot=rs.recordcount lnPer=20 Rs.pagesize=lnPer totpage=rs.pagecount page=Request("page") if (page-Rs.pagecount) > 0 then page=Rs.pagecount elseif page = "" or page < 1 then page = 1 end if Rs.absolutepage=page i=0 %>
|