page_no=request.querystring("page_no")
if page_no="" then
page_no=1
else
page_no=cint(page_no)
end if
set rs= Server.CreateObject("adodb.recordset")
rsstr="select * from news"
rs.open rsstr,conn,1,1
k=20
rs.pagesize=k
rs_pagecount=rs.pagecount
rs.absolutepage=page_no
do while not rs.eof and not rs.bof and k>0
response.write "<div>"&rs("id")&" "&rs("title")&"</div>"
rs.movenext
k=k-1
loop
response.write "<p></p>"
num=page_no-4
if num<=0 then num=1
if num>=(rs.pagecount-9) then num=(rs.pagecount-9)
num1=page_no+5
if num1<=10 then num1=10
if num1>=rs.pagecount then num1=rs.pagecount
response.write "<a href='?page_no=1'>首页</a> "
for i=num to num1
if i=page_no then
response.write i&" "
else
response.write "<a href='?page_no="&i&"'>"&i&"</a> "
end if
next
response.write "<a href='?page_no="&rs.pagecount&"'>尾页</a> "
