<%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 pageselectend if end function
%>
