<%
dim rs,sql,sortid
dim page,maxPerPage
maxPerPage=15
myKeyword=Request("myKeyword")
sort=2
page=Request("page")
if (page="" or isempty(page)) then page=1
thisUrl="news1.asp?myKeyword="&myKeyword&"&sort="&sort
session("oldUrl")=thisUrl&"&page="&page
set rs=server.createobject("adodb.recordset")
sql="select * from news"
if not (myKeyword="" or isempty(myKeyword) ) then
sql=sql&" and title like '%"&myKeyword&"%'"
end if
if not (sort="" or isempty(sort) ) then
sql=sql&" and where sort="&sort
end if
sql=sql&" order by id desc"
rs.open sql,conn,1,1
rs.pagesize=MaxPerPage
%>
<%
dim rsID
i=1
if not (rs.eof or err) then rs.move (page-1)*maxPerPage
do while not (rs.eof or err)
rsID=rs("id")
%>
<%
i=i+1
if i>maxPerPage then exit do
rs.moveNext
loop
%>
|
|
|
|
