asp分页实例

<%
set rs=server.CreateObject("adodb.recordset")
ids=""
call lids(keys)
ids=keys&ids
sql="select id,title,pic_xiao,content from "&tables&" where lid in("&ids&") "

if request("keys_title")<>"" then
sql=sql&" and title like '%"&request("keys_title")&"%' "
end if
sql=sql&" order by shijian desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "产品整理中..."
else
rs.pagesize=12
page=clng(request.QueryString("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
j=0
for i = 1 to rs.pagesize
%>

<%
if page=1 then
response.Write("首页")
else
response.Write("<a href="?page=1&keys=" mce_href="?page=1&keys=""&keys&"&keys_title="&request("keys_title")&">首页</a>")
end if
if page=1 then
response.Write(" 上一页")
else
response.Write(" <a href="?page=" mce_href="?page="" & page-1 & "&keys="&keys&"&keys_title="&request("keys_title")&">上一页</a>")
end if
if page=rs.pagecount then
response.Write(" 下一页")
else
response.Write(" <a href="?page=" mce_href="?page="" & page+1 & "&keys="&keys&"&keys_title="&request("keys_title")&">下一页</a>")
end if
if page=rs.pagecount then
response.Write(&q