第22课分页技术和登陆.ppt

网页编程技术 ——分页技术、登陆 复习：公告内容更改 复习：修改列表 复习： Modify页面，在表单中显示原信息 复习：保存修改内容 分页显示数据 网络上大型的论坛等程序数据库中记录时非常多的，我们经常看到的是分页来显示这些数据的，用户可以一页一页的浏览数据。如下示意图： 分页显示数据 要分页显示我们要用到recordset对象的下列属性. PageSize : 表示一页显示多少条记录 PageCount ：表示总共有多少页 AbsolutePage ：表示当前指向的页数 Recordcount : 记录集中共有多少条记录 分页思想 执行sql语句，得到记录集rs Set rs=Server.CreateObject(ADODB.Recordset) strSql =Select * From ggao rs.Open strSql,conn,1 判断当前页码 下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定 Dim page_no 定义页码变量 If Request.querystring(page_no)= Then page_no=1 Else page_no=Cint(Request.querystring(page_no)) 用Cint将字符串变为整数 End If 按页，逐条显示记录 rs.PageSize=6 设置每页6条记录 rs.AbsolutePage=page_no 设置当前显示第几页 Dim I 该变量用来控制显示当前页记录 I=rs.PageSize Do While Not rs.Eof And I0 循环直到当前页结束或记录集结尾 I=I-1 Response.Write rs(title) br 输出标题字段值 rs.MoveNext Loop 下面一段在下方显示页数信息，从1到总页数循环，如不是当前页 就加上超链接 Response.Write 请选择数据页: For I=1 To rs.PageCount If I=page_no Then 如是当前页，就不加超链接 Response.Write I nbsp Else 如不是当前页，就加上超链接 Response.Write a href=showpage.asp?page_no= I I /anbsp End If Next 下拉列表页码 form method=post action= 请选择数据页 select name=page_no % For I=1 To rs.PageCount response.writeoptionI Next % /select input type=submit value=go /form 登陆流程 登陆 form method=post action= 姓名input name=namep 密码input type=password name=passwordp INPUT TYPE=submitvalue=登陆 /form !--#include file=conn.asp-- %name=request.Form(name) password=request.Form(password) Set rs=Server.CreateObject(ADODB.Recordset) sql=select * from login where name=nameand password=password rs.Open sql,conn,1,1 注意参数设置 If Not rs.eof And Not rs.bof Then session(name)=name session(password)=password response.redirectggao.asp End If % 另一种方法 !--#include file=conn.asp-- %name=request.Form(name) password=request.Form(password) Set rs=Server.CreateObject(ADODB.Recordset) sql=select * from login rs.Open sql,conn,1,1 注意参数设置 Do While