|
|
 |
|
<%
keyword=trim(request("keyword"))
if keyword="" then
sql="select id,title,creatdate from 02 order by creatdate desc"
else
sql="select id,title,creatdate from 02 where title like '%"&keyword&"%'"&" order by creatdate desc"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
%>
<%
else
num=request("num")
if num="" or not(isnumeric(num)) then num=1
if num<0 then num=1
page=cint(num)
if page=0 then page=1
rs.PageSize = 20
if page>rs.PageCount then
num=1
page=1
end if
rs.AbsolutePage =page
for i=1 to (rs.PageSize)
%>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
|
|
|
|