<%
sql="select * from news"
if Request("subject")<>"" then
if clng(trim(Request("subject")))=1 then
sql=sql&" where subject=1"
end if
if clng(trim(Request("subject")))=2 then
sql=sql&" where subject=2"
end if
if clng(trim(Request("subject")))=3 then
sql=sql&" where subject=3"
end if
end if
sql=sql+" order by newstime desc,id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,3,1
on error resume next
pagesize=20
rs.pagesize=pagesize
recordcount=rs.recordcount
pagecount=rs.pagecount
if Request("pagenumber")<>"" then
pagenumber=clng(trim(Request("pagenumber")))
else
pagenumber=1
end if
if pagenumber="" or pagenumber<=0 then pagenumber=1
if pagenumber>=pagecount then pagenumber=pagecount
rs.AbsolutePage=pagenumber
rowcount =rs.pagesize
If Not rs.Eof and not rs.bof Then
do while not rs.eof and rowcount>0
%>
