ASP 分页插件-优快云博客

<%
public function pagehead(rs,sql,page_size,pagenow)
'sql： sql查询语句
' page_size:每页的条数
set rs=server.CreateObject("Adodb.recordset")'
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
  if pagenow="" then
  page_now=1
  else
  page_now=cint(pagenow)
  end if
    rs.pagesize=page_size '每页的数目
    pagehead=rs.pagecount '共分成多少页
    rs.absolutepage=page_now '当前页
else
response.Write "数据库为空！"
pagehead=0
end if
end function

' 输出循环体

'输出页码信息
public function page_select(numbers,page_now,page_total) '首页上一页 << 6 7 8 9 10 >> 下一页尾页页面跳转选择
'numbers :int 每页输出的页面选择数
'page_now: 当前传递过来的页面默认request.QueryString("page_now")
'page_total:int 总的页面由函数pagehead 获得

dim pageurl,pageselect,p_number,pages,ip,pagenumber,k
'pageurl:当前网页的地址
'pageselect:跳转输出
if page_total<>0 then '当总页数不为0才输出
pageurl=Request.ServerVariables("SCRIPT_NAME") '取得当前文件名称

if page_now="" then
page_now=1
else
page_now=cint(page_now)
end if

if page_now>1 then
response.Write "<a href="&PageUrl&"?page_now=1"&">首页</a> " '输出首页
response.Write "<a href="&PageUrl&"?page_now="&page_now-1&">上一页</a> " '上一页
else
response.Write "首页 "
response.Write "上一页 "
end if

'==============================输出每个页面显示几个选择页
if (page_now mod numbers)<>0 then
p_number=page_now/numbers
else
p_number=page_now/numbers-1
end if

if p_number>0 then
response.Write "<a href="&PageUrl&"?page_now="&p_number*numbers&"><<</a> "
end if

for pages= 1 to numbers
pagenumber=p_number*numbers+pages
if pagenumber=page_now then
response.Write pagenumber&" "
else
response.Write "<a href="&PageUrl&"?page_now="&pagenumber&">"&pagenumber&"</a> "
end if

if pagenumber=page_total then exit for end if
next

if pagenumber<>page_total then
response.Write "<a href="&PageUrl&"?page_now="&pagenumber+1&">>></a> "
end if
'==============================输出每个页面显示几个选择页

if page_now<page_total then
response.Write "<a href="&PageUrl&"?page_now="&page_now+1&">下一页</a> " '下一页
response.Write "<a href="&PageUrl&"?page_now="&page_total&">尾页</a> "   '尾页
else
response.Write "下一页 "
response.Write "尾页 "
end if

response.Write "第"&page_now&"页/共"&page_total&"页 " ' 第几页/共几页

'================输出跳转选择
pageselect="跳到<select name='pageSelect' onChange='document.location=this.value'>"
for ip=1 to page_total
  If ip=page_now Then
  pageselect=pageselect&"<option value="&PageUrl&"?page_now="&ip&" selected>"&ip&"</option>"
  Else
  pageselect=pageselect&"<option value="&PageUrl&"?page_now="&ip&">"&ip&"</option>"
  End If
Next
response.Write pageselect
end if
end function

对asp分页函数的修正!