|
<%
dim pagenumber
pagenumber=trim(request("p"))
if pagenumber="" then
pagenumber=1
end if
if not IsNumeric(pagenumber) then
pagenumber=1
end if
if pagenumber < 1 then
pagenumber=1
end if
dim conn,rs,strsql,i
set conn=opendb()
set rs=server.CreateObject("adodb.recordset")
strsql="select * from tb_news where news_kind=1 order by news_date desc,news_id desc"
rs.open strsql,conn,1,1
rs.pagesize=13
if pagenumber > rs.pagecount then
pagenumber=rs.pagecount
end if
if rs.recordcount > 0 then
rs.absolutepage=pagenumber
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
|
|
|
