%
dim bigclassname,ClassName,keyWord,sql,url,title
bigclassname=Request("bigclassname")
ClassName=Request("ClassName")
keyword=Request("keyword")
const pagesize=15 '每页显示的条数
if bigclassname="" then
if keyword="" or isnull(keyword) then
sql="select * from NewData Where Classname=7 order by News_ID desc"
else
if ClassName<>"" or isnull(ClassName) then
sql="Select * from NewData where News_Name like '%"& keyword &"%' and classname="&bigclassname&" order by News_ID desc"
else
sql="select * from NewData where News_Name like '%"& keyword &"%' order by News_ID desc"
end if
end if
else
sql="select * from NewData where ClassName="&bigclassname&" order by News_ID desc"
end if
dim maxpage,page,i
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.PageSize =pagesize '每页记录条数
' result_num=rs.RecordCount '记录总数
maxpage=rs.PageCount
total=rs.recordcount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
%>