www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > inc/page.asp

    <% 
function fenpage(n,rs,nl)
dim sy,q10,qy,xy,x10,my,page,cpage,pagetol,i
sy="<font face=""Webdings"" title=""第一页"">9</font>"
q10="<font face=""Webdings"" title=""上10页"">7</font>"
qy="<font face=""Webdings"" title=""上一页"">3</font>"
xy="<font face=""Webdings"" title=""下一页"">4</font>"
x10="<font face=""Webdings"" title=""下10页"">8</font>"
my="<font face=""Webdings"" title=""最后一页"">:</font>"

if not rs.eof or not rs.bof then
if Request("page")="" then 
page=1
else
page=CInt(Request("page"))'读取 URL 页号
end if
rs.PageSize=n '定义每页显示记录数
If page<=0 Then page=1 '如果 page 小于或等于0, 返回值1
If page>rs.PageCount Then page=rs.PageCount ' 如果 page 大于分页总数, 返回分页末页值
rs.AbsolutePage=page '定义当前页码

cpage=rs.AbsolutePage
pagetol=rs.pagecount
 
If cpage<1 Then cpage=1'如果页数小于 1, 默认为 1; 当前页, cpage = Current Page NO.
If pagetol<1 Then pagetol=1
If cpage>pagetol Then cpage=pagetol 
Dim lent
lent=nl ' 显示数字链接数
Dim spage,epage ' 定义当前页, 开始页, 结束页
spage=(cpage/lent)*lent+1'为开始页赋值

if pagetol>1 then 
if page=1 then '判断是否首页, 如果是首页不添加链接,反之添加.
Response.Write "<span class=""fonth"">"&sy&"</span>"
Else
Response.Write("<a href="""&url("page")&"page=1"">"&sy&"</a>")
End If 

If (cpage Mod lent)=0 Then spage=spage-lent 
epage=spage+lent-1
If epage>pagetol Then epage=pagetol 

If spage>10 Then '向后移动一分页, 十页为一分页, 并且以 1, 11, 21... 为每页的开始篇数
Response.Write("<a href="&url("page")&"page="&(cpage-(cpage mod 10)-lent+1)&">"&q10&"</a>")
Else
Response.Write("<span class=""fonth"">"&q10&"</span>")
End If

If page <> 1 and page <>0 Then '后移一页
Response.Write "<a href="&url("page")&"page="&(page-1)&">"&qy&"</a> "
Else
Response.Write "<span class=""fonth"">"&qy&"</span>"
End If

For I=(spage-1) To epage
If I=cpage Then
Response.Write "<b>"&I&"</b>"
Else
Response.Write "<a href="&url("page")&"page="&I&">" &I& "</a>"
End If
If I<>pagetol Then Response.Write "&nbsp;" 
Next

If page <> rs.PageCount and page <>0 Then '前移一页
Response.Write("<a href="&url("page")&"page="&(page+1)&">"&xy&"</a>")
Else
Response.Write "<span class=""fonth"">"&xy&"</span>"
End If

If epage<pagetol Then'向前移动一分页, 十页为一分页, 并且以 1, 11, 21 为每页的开始篇数
Response.Write "<a href="&url("page")&"page="&(cpage-(cpage mod 10)+lent+1)&">"&x10&"</a> "
Else
Response.Write "<span class=""fonth"">"&x10&"</span>"
End If

if rs.PageCount<>page then '判断是否尾页
Response.Write "<a href="&url("page")&"page="&rs.PageCount&">"&my&"</a>"
Else
Response.Write "<span class=""fonth"">"&my&"</span>" 
End If

'跳转框
response.Write " 转到:<select NAME=""menu1"" onChange=""MM_jumpMenu('self',this,0)"">"
for i=1 to pagetol
response.Write "<option value='"&url("page")&"page="&i&"'"
if page=i then response.Write " selected "
response.Write ">第"&i&"页</option>"
next
response.Write "</select>&nbsp;&nbsp;&nbsp;"
end if

'页面信息
response.Write("["&n&"篇/页]&nbsp;&nbsp;["&cpage&"/"&pagetol&"页]&nbsp;&nbsp;[共"&rs.recordCount&"条信息]")

end if
end function
%>