
2006-4-13 13:08
shuang025
那位前辈可以告诉我php文本文件怎么样才能实现分页?
我在做留言板,老大要求实现分页功能!艾,我才学两天啊 !晕
2006-4-13 16:29
木舟
去下载个php文本留言本程序看看别人的分页是怎么写的.
2006-4-15 15:38
风の迷惑
强,才学两天就能写文本留言簿!
文本分页的话,看你是怎么设计保存记录的了
如果一行一条记录的话,就用行号来分页
要是用文件保存一条记录的话,就用多少个文件分一页
不过,文件的话,你需要用一个来排序的,比如文件名是 1 , 2 , 3 ...
还有一个办法就是文件的创建时间,当然如果没有修改功能的话,用修改时间也可以
要用XML的话,呵呵,这个去找一下XML的东东吧,无论啥都好做了
2006-7-10 11:46
leionnet
请问:我的留言板如何实现分页功能:
谢谢各位:帮忙修改下下:
代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="DBconnect.asp"-->
<html>
<head>
<title>COOLMAX留言板--欢迎你光临</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript" src="time.js">
</script>
<script language="javascript">
function addTimeLoad()
{
document.form1.addtime.value=getNowTime();
}
function checkStr()
{
if(document.form1.username.value=="" || document.form1.text.value =="")
{
alert("姓名和留言内容为必填项!");
document.form1.text.focus ;
return false;
}else{
return true;
}
}
</script>
<link href="css.css" rel="stylesheet" type="text/css">
</head><center>
<body background="images/show_bg.gif">
<table bgcolor="#14445c" cellspacing="1" width="80%" class="black_12" cellpadding="4">
<tr bgcolor="#000000">
<td colspan="2"><font color="#FFFFFF">留言板 </font></td>
</tr>
<%
id=request("id")
if id="" then id=1
rs.open "select * from guestbook order by id desc",conn,1,1
'算得页数
rscount=rs.recordcount
floor=rscount-(id-1)*10+1
if rscount mod 10=0 then
page=rscount\10
else
page=rscount\10+1
end if
if id>1 then
id1=10*id
rs.move id1-10
end if
for i=1 to 10
if not rs.eof then
%>
<tr bgcolor="#ffffff">
<td width="21%" height="94" valign="top">
<% floor=floor-1
response.Write floor
%>楼<br>
<img src="images/rock.jpg" width="120" height="90"> <br><font color="#000000"><%=rs("username")%></font> 的留言<br>
<img src="images/fromwhere.gif" width="16" height="16"> 来自 <%=rs("fromwhere")%><br></td>
<td width="79%" height="94" valign="top"> <img src="images/web.jpg"><a href="<%=rs("homepage")%>" target=_blank title="<%=username%>
>的主页" class="black_12">主页</a>| <img src="images/email.gif"> <a href="mailto:<%=rs("email")%>" title="给<%=rs("username")%>写信" class="black_12">Email</a> | <img src="images/oicq.gif"> <%=rs("qq")%> | <img src="images/clock.jpg"> <%=rs("addtime")%> | <img src="images/re.gif"> <a href="guestbook_re.asp?id=<%=rs("id")%>&username=<%=rs("username")%>&page=<%=id%>&text=<%=rs("content")%>" title="站长回复" class="black_12">回复</a>
| <img src="images/del.gif"> <a href="guestbook_del.asp?id=<%=rs("id")%>&page=<%=id%>" title="删除这条留言" onclick="return confirm('确定要删除吗?')" class="black_12">删除</a> | <img src="images/ip.gif"> <%=rs("ip")%> <hr>
<img src="images/fu.gif">内容:<br> <font color="#000000">
<%
content = Replace(rs("content"), CHR(13), "")
content = Replace(content, "<", "<")
content = Replace(content, ">", ">")
content = Replace(content, CHR(10) & CHR(10), "<BR><BR>")
content = Replace(content, CHR(10), "<BR>")
content=replace(content,chr(32)," ")%>
<%=content%>
</font>
<hr>站长<img src="images/clock.jpg"> <%=rs("retime")%><br><img src="images/fu.gif">内容:<br> <font color="red"><%
if rs("recontent")<>"" then
recontent = Replace(rs("recontent"), CHR(13), "")
recontent = Replace(recontent, "<", "<")
recontent = Replace(recontent, ">", ">")
recontent = Replace(recontent, CHR(10) & CHR(10), "<BR><BR>")
recontent = Replace(recontent, CHR(10), "<BR>")
recontent=replace(recontent,chr(32)," ")%>
<%=recontent%>
<% end if%></font><br></td>
</tr>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> </td>
</tr>
<%
rs.movenext
end if
next
%>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> 共有<<%=page%>>页<%=rscount%>条留言
<%
if id<>1 then'分页
%>
<a href="index.asp?id=<%=id-1%>">上一页</a>
<%
end if
if id<>page then
%>
<a href="index.asp?id=<%=id+1%>">下一页</a>
<%
end if
%>
</td>
</tr>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2">第
<%for i=1 to page%>
<a href="index.asp?id=<%=i%>"><%=i%></a>
<%next%>
页
</td>
</tr>
</table>
<br><br>
<table width="60%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#14445c" class="black_12">
<form action="guestbook_addnew.asp" method="post" name="form1" onsubmit="return checkStr()">
<tr bgcolor="#000000">
<td colspan="2"><font color="#FFFFFF">写新留言</font></td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="25%" align="right">姓 名:</td>
<td width="75%">
<input type="text" name="username" maxsize="30">
** </td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="25%" align="right">来 自:</td>
<td width="75%">
<input type="text" name="fromwhere" value="COOLMAX" maxsize="20">
</td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="25%" align="right">主 页:</td>
<td width="75%">
<input type="text" name="homepage" value="http://" maxsize="20">
</td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="25%" align="right">Email:</td>
<td width="75%">
<input type="text" name="email" maxsize="20">
</td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="25%" align="right">QQ:</td>
<td width="75%">
<input type="text" name="qq" maxsize="10">
<input name="addtime" type="hidden" value="">
</td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="25%" align="right" valign="top">内 容:<br>* * </td>
<td width="75%">
<textarea name="text" cols="60" rows="5"></textarea>
</td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="25%" align="right"> </td>
<td width="75%">
<input type="submit" name="Submit" value="提交" onclick="javascript:addTimeLoad()">
<input type="reset" name="Submit2" value="重填">
</td>
</tr>
</form>
</table>
</body>
</center>
</html>
<!--#include file="DBconndel.asp"-->
2006-7-10 14:47
php店小二
[quote][b]引用第0楼[i]shuang025[/i]于[i]2006-04-13 13:08[/i]发表的“那位前辈可以告诉我php文本文件怎么样才能实现分页?”[/b]:
我在做留言板,老大要求实现分页功能!艾,我才学两天啊 !晕[/quote]
下载个文本留言本分析一下别人的分页思路
要不了两天就能写出自己的文本留言本来!
2006-7-10 15:32
leionnet
[quote][b]引用第4楼[i]php店小二[/i]于[i]2006-07-10 14:47[/i]发表的“”[/b]:
下载个文本留言本分析一下别人的分页思路
要不了两天就能写出自己的文本留言本来![/quote]
不要说两天啦,以我现在的编程经验,两个星期都不行啦
你帮一下我分析一下代码,如何实现我要功能。
感谢你的帮助
2006-7-10 15:50
php店小二
[url]http://web.nyist.net/~songxinfeng/wenxue.php[/url]
里面全是用文本实现的 N年前写的!
给你来个最简单的
也是我最初写的思路
第一:读所有记录集 假设有 DatasetlNum
第二:设定你每页要显示多少条 假设 PerPageNum
第三:计算总共多少页 PageNum
第四:设三个变量 PrePage(上一页),CurrPage(当前页),NextPage(下一页)
分页显示时重载三变量!
。。。。。。
页:
[1]
Powered by Discuz! Archiver 5.5.0
© 2001-2006 Comsenz Inc.