留言本如何分页

ujjeiu 2004-01-20 03:54:07
谁能告诉我留言本如何分页呀！谢谢
...全文
61 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
ujjeiu 2004-01-21
  • 打赏
  • 举报
 回复
谢谢你们呀！！
lovewangshu 2004-01-21
  • 打赏
  • 举报
 回复
呵呵，看了上面的有没有晕哦~~~给你一个我的
www.popxp.com/vchome一页的分页代码

'------------------------------------------------------------------
'- 模块开始: 文章显示
'- 说明: 列出所有文章的标题,并且通过displayId来
'- 传递将要显示的文章
'------------------------------------------------------------------
'分页程序
rs.pageSize=2 '每页显示文章数为2,可修改
page=1
artNum=1
'======================================
'= 注意:以下的一段if嵌套语句只用到了最外
'= 边的一层,中间的是留给做"next"和
'= "prev"时使用的.
'=======================================
if not isEmpty(request("page")) then
page=CInt(request("page"))
if page>rs.pageCount then
rs.absolutePage=rs.PageCount
artNum=rs.pageCount*rs.pageSize
if page<=0 then
page=1
artNum=1
end if
else
rs.absolutePage=page
artNum=page*rs.pageSize-(rs.pageSize-1)
end if
end if

'循环显示出每一页
response.write "[  "
for i = 1 to rs.pageCount
if i = page then
'如果是当前页,就粗体并换颜色显示
aa = "<b><font color=#09a6ae class='bottom'>-" & cstr(i) & "-</font></b>"
else
aa = cstr(i)
end if
response.write "<a href='" & "words.asp?page=" & i & "&artNum=" & artNum & "'>" & aa & "</a>  "
next
response.write "]" & "共有文章" & rs.recordCount & "篇-共" & rs.pageCount & "页"& rs.pageSize &"篇/页-现在是第<b>" & page & "</b>页"

%>

这样就比较容易看了吧？有什么问题QQ啊，3148222
eyun 2004-01-21
  • 打赏
  • 举报
 回复
http://www.eyun.org/publish/zp/leave_word.zip

很漂亮的留言簿看看。也有很清晰的分页代码
等待888 2004-01-20
  • 打赏
  • 举报
 回复
给你一个我的代码！自己研究吧！
<!--#include file="adovbs.inc"-->
<!--#include file="server.asp"-->
<%if not session("ht") then
response.redirect "../index.asp"
response.end
end if%>
<html>
<head>
<title>欢迎查看留言簿</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet>
<style type="text/css">
<!--
.样式2 {
font-size: 24pt;
color: #FF0000;
font-weight: bold;
}
.样式4 {color: #0000FF}
-->
</style>
</head>
<%
id="ID"
edit="editly.asp"
aadd="addly.asp"
adelete="deletely.asp"
xxnr="lyxxnr.asp"
sql="select * from lyb order by ID desc"
rs.open sql,conn,adopenstatic%>
<body bgcolor="#BCC7ED" topmargin="0">
<form name="form1" method="post" action="ly.asp">
<IFRAME frameBorder=0 height=110 scrolling=no src="htou.asp" width="100%"></IFRAME>
<%if rs.eof then
response.write("<p>   <font size=2><div align=center>对不起，目前数据库里没有数据！！<a href=addly.asp>我要添加</a></div></font></p>")

response.end
else
if trim(request("page2"))<>"" then
page=clng(request("page2"))
else
page=clng(request("page"))
end if
end if
rs.pagesize=10
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page%>

<table border="1" align="center" cellpadding="0" cellspacing="0">
<tr> <td colspan="8" valign="middle"> 当前第 <font color=#ff0000><%=page%></font> 页　共 <font color=#ff0000><%=rs.pagecount%></font>页</td>
<%if page=1 then%>
<td colspan="6" valign="middle">
<img src="../intp/FIRST.gif" width="19" height="19" border="0">
<img src="../intp/forward.gif" width="19" height="19" border="0">
<a href=ly.asp?page=<%=(page+1)%>><img src="../intp/next.gif" width="19" height="19" border="0"></a>
<a href=ly.asp?page=<%=rs.pagecount%>><img src="../intp/last.gif" width="20" height="19" border="0"></a></td>
<%else
if page=rs.pagecount then%>
<td colspan="6" valign="middle">
<a href=ly.asp?page=1><img src="../intp/FIRST.gif" width="19" height="19" border="0"></a>
<a href=ly.asp?page=<%=(page-1)%>><img src="../intp/forward.gif" width="19" height="19" border="0"></a>
<img src="../intp/next.gif" width="19" height="19" border="0">
<img src="../intp/last.gif" width="20" height="19" border="0"></td>
<%else%>
<td colspan="6" valign="middle">
<a href=ly.asp?page=1><img src="../intp/FIRST.gif" width="19" height="19" border="0"></a>
<a href=ly.asp?page=<%=(page-1)%>><img src="../intp/forward.gif" width="19" height="19" border="0"></a>
<a href=ly.asp?page=<%=(page+1)%>><img src="../intp/next.gif" width="19" height="19" border="0"></a>
<a href=ly.asp?page=<%=rs.pagecount%>><img src="../intp/last.gif" width="20" height="19" border="0"></a></td>
<%end if%>
<%end if%>
</tr>
<tr bordercolor="#FF99CC" bgcolor="#6699FF">
<th align="center" nowrap> <div align="center"><font color="#FFFF00"><strong><font size="4">--</font></strong></font></div></th>
<th align="center" nowrap> <div align="center"><font color="#FFFF00"><strong><font size="4">--</font></strong></font></div></th>
<th align="center" nowrap> <div align="center"><font color="#FFFF00"><strong><font size="4">--</font></strong></font></div></th>
<td align="center"> <div align="center"><font color="#FFFF00"><strong><font size="4">ID</font></strong></font></div></td>
<td><div align="center"><strong>姓名</strong></div></td>
<td><div align="center"><strong>电子邮件</strong></div></td>
<td><div align="center"><strong>主题</strong></div></td>
<td><div align="center"><strong>留言</strong></div></td>
<td><div align="center"><strong>时间1</strong></div></td>
<td><div align="center"><strong>回复者</strong></div></td>
<td><div align="center"><strong>内容</strong></div></td>
<td><div align="center"><strong>回复</strong></div></td>
<td><div align="center"><strong>时间2</strong></div></td>
<td><div align="center"><strong>次数</strong></div></td>
</tr>
<% for i=1 to rs.pagesize
if not rs.eof then %>
<tr>
<td>
<%my_link=edit & "?which=" & rs(id)%>
<p align="center"><a href="<%=my_link%>">编辑</a></p></td>
<td>
<%my_link2=aadd & "?which=" & rs(id)%>
<p align="center"><a href="<%=my_link2%>">添加</a></p></td>
<td>
<%my_link3=adelete & "?which=" & rs(id)%>
<p align="center"><a href="<%=my_link3%>" onclick="checkvalue1()">删除</a></p></td>
<td nowrap>  <%=rs(id)%></td>
<td nowrap>  <%=rs("姓名")%></td>
<td>  <%=rs("电子邮件")%></td>
<td>  <%=rs("主题")%></td>
<td><a href="<%=xxnr & "?which=" & rs(id) & "&lb=" & "留言"%>">  <font color="#FF0000">请进…</font></a></td>
<td>  <%=rs("时间1")%></td>
<td>  <%=rs("回复者")%></td>
<td><a href="<%=xxnr & "?which=" & rs(id) & "&lb=" & "内容"%>"> <font color="#FF0000">请进…</font></a></td>
<%if rs("回复")="否" then%>
<td> <font color="#FF00FF"><b> <%=rs("回复")%></b></font></td>
<%else%>
<td> <%=rs("回复")%></td>
<%end if%>
<td>  <%=rs("时间2")%></td>
<td>  <%=rs("次数")%></td>
<%rs.movenext
end if
next%>
</tr>
<tr>
<td colspan="14"><div align="center">
<%if page<>1 then%>
<a href=ly.asp?page=1>最前一页</a> <a href=ly.asp?page=<%=(page-1)%>>上一页</a>
<%end if%>
<%if page<>rs.pagecount then%>
<a href=ly.asp?page=<%=(page+1)%>>下一页</a> <a href=ly.asp?page=<%=rs.pagecount%>>最后一页</a>
<%end if%>
当前第 <font color=#ff0000><%=page%></font> 页　共 <font color=#ff0000><%=rs.pagecount%></font> 页 转到第
<input name="page2" size="3">
页
<input name="Submit" type="submit" value="GO">
</div>
</td>

</tr>
</table></form>
</body>
</html>
<script language="vbscript">
sub checkvalue1()
window.event.returnvalue=confirm("您真的要删除此条信息留言吗？")
end sub
</script>
nbchp 2004-01-20
  • 打赏
  • 举报
 回复
点上面搜索 输入 分页 ，能出来N多文章！

或者随便找本教材，应该都有关于如何分页介绍吧！


祝愿楼主新年快乐！
Zend Framework实现留言本分页功能(附demo源码下载)
本文实例讲述了Zend Framework实现留言本分页功能的方法。分享给大家供大家参考，具体如下： 这里的分页功能运用了..Zend_Paginator这个组件来实现留言本分页…这里我也是参考PHPCHINA里一位PHPer写的这方面的教程 ...
由php实现的留言本，提供全套详细代码（包含分页）
本项目是一个基于PHP实现的留言本系统，提供了完整的代码，包括分页功能，旨在帮助开发者学习和理解PHP在实际应用中的操作。 首先，我们要了解留言本系统的基本构成。留言本系统通常包括以下几个核心功能： 1. **...
申江ASP留言本标准版 v1.17
申江ASP留言本 标准版 1.17 更新公告 1、支持修改留言本外框粗细和衬距（需使用管理工具）。 2、版主头像可以URL方式引用。 3、分页、搜索窗口可设置显示在上方、下方、上下方。 4、新增支持留言置顶功能。 5、新增...
类似百度分页
本篇文章将详细讲解如何实现一个类似百度和QQ空间的分页功能，以及如何通过模仿QQ空间留言板分页来实现这一功能。 首先，我们需要了解分页的基本原理。分页通常是通过限制每一页显示的数据量，然后提供导航链接或...
ASP.NET开发在线留言本
1、用户能够注册 2、用户登录后 查看并编辑用户注册...首页分页显示全部的留言主题 可以留言，或对他人的留言进行回复 对自己的留言进行修改或删除 可增加的功能：下载专区功能，提供文件的上传、显示和下载
ASP

28,407

社区成员

356,948

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章