- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
在 BBS 中如何实现分页?
代码和详细说明如下:
<% @ language="vbscript" %>
<!--#include file="connect.asp"-->
<% page=Request.QueryString("page") If page="" Then page="1" page=Cint(page)
%>
<html>
<head>
<TITLE>精彩春风之 BBS 分页技术</title>
</head>
<body>
<form action="del.asp" method="post">
<table>
<tr>
<td>删除</td>
<td>用户名</td>
<td>密码</td>
<td>管理员</td>
<td>网址</td>
<td>电子邮件</td>
</tr>
<% strIndex="select * from com "
Set rst=CreateObject("ADODB.RecordSet") rst.cursorlocation=3 '
将 cursorlocation 的值赋为 3,否则不能取得总数
rst.open strIndex,strProvider,2,3
打开数据库,cursortype 和 locktype 的值分别为 2 和 3, rst.PageSize=30
设置每页的记录数
tcount=rst.RecordCount ' 取得所有记录的总数tpage=rst.PageCount
If Not rst.BOF Then
取得页面的总数
%>
<tr><td>共有记录<font color=red><%=tcount%></font></td><td>当前为<fon t color=red><%=page%></font>/<font color=red><%=tpage%></font></td>
<td>
<%
上下页面设置
If page>1 Then %>
<a href="master.asp?page=<%=1%>">上一页</a>
<% Else %>
上一页
<% End If %>
</td>
<td>
<% If page<tpage Then %>
<a href="master.asp?page=<%=page+1%>">下一页</a>
<% Else %>
下一页
<% End If %>
</td>
</tr>
<%
rst.Move (1)*rst.pagesize For i=1 to rst.PageSize
将记录定位在所翻到的页面的首个记录上
%>
<tr>
<td><input type="checkbox" name="del" value="<%=rst("username")%>">删除</td>
<td><%=rst("username")%></td>
<td><%=rst("password")%></td>
<td><%=rst("man")%></td>
<td><a href="<%=rst("web")%>"><%=rst("web")%></a></td>
<td><a href="mailto:<%=rst("email")%>"><%=rst("email")%><A></TD>
</tr>
<% rst.MoveNext
If rst.EOF Then Exit For
移到下一个记录
Next
如果到了数据库的末尾,就退出 for Else
%>
<tr><td>没有用户</td></tr>
<% End IF
rst.close
Set rst=Nothing
关闭数据库连接
%>
<tr><td><input type="submit" value="删除"></td>
<td><input type="reset" value="全都不删"></td>
</tr>
</table>
</form>
首先我们来看看,数据库的结构。
这个数据数据库中有些什么,下面是数据的字段和类型名以及用途,表名为com
序号
字 段
类 型
用 途
1
username
varchar(50)
用户名
2
password
varchar(20)
密码
3
man
varchar(10)
管理员
4
web
varchar(50)
网址
5
email
varchar(20)
电子邮件
1亿VIP精品文档
相关文档
最近下载
- 基于python的图像去噪算法研究与仿真.docx
- CNAS ISO 15189 医学实验室授权签字人试卷及答案.docx
- T∕CCIA∕T 0010-2019 建设工程施工项目经理岗位职业标准.pdf
- 机械加工工艺手册.doc
- 综合实践活动指引五年级 第3单元 我做校园小导游 课件.pptx
- 连续性肾脏替代治疗的护理中华护理学会团体标准解读.pptx
- 2024年广东省初中学业水平考试模拟测试(一)地理试题(附答案解析).pdf VIP
- 滚珠丝杠螺母副的计算与选型.doc
- 《减重手术围术期护理指南2023》解读.docx
- 国开作业公共关系学-实训项目5:赞助活动(六选一)-赞助方案参考(含答案)2.docx
文档评论(0)