<%
cateid=request.querystring("cateid")
if cateid="" then
sql="select * from news"
else
sql="select * from news where cateid="&cateid
end if
set rsnews=server.CreateObject("adodb.recordset")
rsnews.open sql,conn,1,1
if rsnews.eof then
response.write("本类无记录")
response.end
end if
page=request.querystring("page")
rsnews.pagesize=20
if cint(page)<=1 then page=1
if cint(page)>rsnews.pagecount then page=rsnews.pagecount
rsnews.absolutepage=page
%>
