%
set rst=Server.CreateObject("adodb.Recordset")
const numperpage=20
dim curpage,totalpage
search_txt=trim(request.form("search_txt"))
if search_txt="" then
search_txt=trim(Request.querystring("search_txt"))
end if
pageno=trim(request.form("pageno"))
if pageno="" then
pageno=trim(Request.querystring("pageno"))
end if
if pageno="" then
pageno=1
else
curpage=cint(pageno)
end if
sql="select * from cp where 1=1 "
if search_txt<>"" then
sql=sql+" and (xh like '%"+search_txt+"%' or pp like '%"+search_txt+"%')"
end if
sql=sql+" order by xh"
'sql=sql+" order by px desc,id desc"
'sql=sql+" order by xh, pp, fz, cs"
rst.Open sql,conn,adOpenStatic
rst.PageSize =numperpage
totalpage=rst.PageCount
if curpage<1 then
curpage=1
end if
if curpage>totalpage then
curpage=totalpage
end if
%>