通过Dreamweaver给网页添加超链接页码和翻页链接，实现分页导航的代码展示和讲解

通过Dreamweaver给网页添加超链接页码和翻页链接，实现分页导航的代码展示和讲解

（）：表示解释说明

<!--#includefile="conn.asp"-->

<% Set rs=conn.Execute("Select *From user Order By ID DESC") %>

（此处user为数据库名，执行一句SQL语句，并将记录集返回给rs对象）

<!--#includefile="conn.asp"-->

<%pageNo=Request("pageNo")

if not IsNumeric(pageNo) orpageNo="" then       （如果pageNo为空或者非法，则显示第一页）

       pageNo=1

Else      （pageNo一定要转换为数值型，因为要进行数值比较）

       pageNo=cInt(pageNo)

End if

Setrs=Server.CreateObject("ADODB.Recordset")

（server.CreateObject("adodb.recordset")是一个COM对象，是用ADO组件打开数据库时用的“记录集”对象,赋值到rs上）

rs.open"select * from user order byid desc",conn,1      （此处user为数据库名）

rs.pagesize=5      （设置每页显示5条记录，可根据实际需要改变此处值）

pageS=rs.pagesize      （用pageS保存rs.pagesize）

rs.AbsolutePage=pageNo     （从pageNo页开始显示）

%>

（设置超链接页码和翻页连接，实现分页导航）

if pageNo<>1 then     （如果当前页不是第一页，那么“首页”和“上一页”不存在链接）

       response.write"<ahref='?pageNo=1'>首页</a>&nbsp;"

       response.write"<ahref='?pageNo="&pageNo-1&"'>上一页</a>&nbsp;"

else     （如果当前页是第一页，那么“首页”和“上一页”不存在链接）

       response.write"首页 "

       response.write"上一页 "

end if

For i=1 to rs.PageCount    （分页，如果是当前页，则不存在链接，否则，则存在链接）

       ifi=pageNo then

              response.writei&" "  

       else

              response.write"<ahref='?pageNo="&i&"'>"&i&"</a>&nbsp;"

       endif

Next

if pageNo<rs.PageCount then （如果当前页不是最后一页，那么“下一页”和“末页”存在链接）

       response.write"<ahref='?pageNo="&pageNo+1&"'>下一页</a>&nbsp;"

       response.write"<ahref='?pageNo="&PageCount&"'>末页</a>&nbsp;"

else     （如果当前页是最后一页，那么“下一页”和“末页”存在链接）

       response.write"下一页 "

       response.write"末页 "

end if

       response.write"共"&rs.RecordCount&"条记录 &nbsp;"     

  （共多少条记录，即rs.RecordCount）

       response.writepageNo&"/"&rs.PageCount&"页"     

  （当前页的位置，即pageNo，PageCount为总共页数）

%>