|
|
 |
<% dim curpage
if request.QueryString("curpage")=""or request.QueryString("curpage")=0 then
curpage=1
else
curpage=cint(request.QueryString("curpage"))
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from news order by id desc"
rs.open sql,conn,3,3
if not rs.eof then
dim yes
yes=1
rs.pagesize=20
dim infpagesize
infpagesize=rs.pagesize
totalpages=rs.pagecount
if curpage>rs.pagecount then
curpage=rs.pagecount
end if
rs.absolutepage=curpage
rs.cachesize=rs.pagesize
totalcount=int(rs.recordcount)
i=0
do while not rs.eof and i
 |
|
|
<%rs.movenext
i=i+1
loop
rs.close
set rs=nothing
else
rs.close
set rs=nothing
end if%>
<%if yes=1 then%>
<%end if%>
|
|
|
|
|
