asp留言本源码及论文 第7页
page=int(page)
else
page=1
end if
if not rs.eof then
size=7
rs.PageSize=size '每页记录数
TotlePage=rs.PageCount '总页数
TotlePage=int(numzhuce/size)
if (numzhuce mod size)>0 then TotlePage=TotlePage+1 '总页数
if page<1 or page>TotlePage then
page=1
rs.AbsolutePage=page '当前页
else
rs.AbsolutePage=page '当前页
end if
num=1 '循环变量初值
%>
以上的内容分别把接收到的数据放在变量中，下面的代码的功能是显示出这些信息。
<td width="545" height="91" valign="top">
<font size="2">
<%while not rs.eof and num<=size%>
<font color="#FF00FF">
[留言主题]</font><%=rs("主题")%><br>
<font color="#FF00FF">
[留言内容]</font><%=rs("内容")%><br>
                                     
<%=rs("昵称")%> 
[<%=rs("时间")%>] <br>
<font color="#0000FF">
+---------------------------------------------------------------------+</font> <br>
<%rs.movenext
num=num+1
wend
rs.close
set rs=nothing%>
</font>
</td>
</tr>
<tr>
<td width="545" height="91" valign="top">
<font size="2">
<a href="lyb.asp?page=1">[第一页]</a>
<% select case page
case 1: '只有下一页
if totlepage>1 then
%>
<a href="lyb.asp?page=2">[下一页]</a>[第<%=page%>页/共<%=TotlePage%>页][共<%=numzhuce%>条记录]
<% else %>
第<%=page%>页/共<%=TotlePage%>页</font>
<% end if %>
<% case TotlePage: '只有上一页%>
<a href="lyb.asp?page=<%=page-1%>">[上一页]</a>[第<%=page%>页/共<%=TotlePage%>页][共<%=numzhuce%>条记录]
<% case else: %>
<a href="lyb.asp?page=<%=page-1%>">[上一页]</a>
<a href="lyb.asp?page=<%=page+1%>">[下一页]</a>
[第<%=page%>页/共<%=TotlePage%>页][共<%=numzhuce%>条记录]
<% end select %>
</font>
<%end if%>
</td>
此模块用到了RecordCount、request.querystring等方法以及一些翻页的技巧。由于篇幅限制，这里只给出了一部分比较重要的代码，其它的简略。4.2 用户留言及修改模块 该模块的功能是，用户可以在这里把自己的留言写在这里，如果其它用户浏览里，就可以看到此用户的留言（模块的缩略图如下3.2）。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>