|
第四章 留言板的结构设计与实现 4.1 用户、管理员浏览模块 内容来自www.paper51.com
paper51.com
(图4.1) http://www.paper51.com
此模块的功能是用户和管理员都能利用该模块浏览所有的留言内容，此模块不用注册即可使用，每页由7条记录组成，具有翻页功能，具体的设计步骤如下（此模块的图片如图3.1）。 http://www.paper51.com 下面的ASP代码实现显示表stu中的内容： paper51.com <%response.buffer=true%> http://www.paper51.com
<html> 内容来自论文无忧网 www.paper51.com <head> paper51.com <title>留言板</title> 内容来自论文无忧网 www.paper51.com </head> 内容来自论文无忧网 www.paper51.com <%'========================显示数据库表stu中的信息======================= 内容来自www.paper51.com sql="select * from lyb " 内容来自论文无忧网 www.paper51.com set rs=server.createobject("ADODB.Recordset") copyright paper51.com rs.Open sql,conn,1 http://www.paper51.com numzhuce=rs.RecordCount paper51.com page=request.querystring("page") '接收上一页、下一页的页号 http://www.paper51.com if len(page)>0 andisnumeric(page) then 内容来自www.paper51.com page=int(page) paper51.com else paper51.com
page=1 http://www.paper51.com end if copyright paper51.com if not rs.eof then 内容来自论文无忧网 www.paper51.com size=7 paper51.com rs.PageSize=size '每页记录数 http://www.paper51.com TotlePage=rs.PageCount '总页数 http://www.paper51.com TotlePage=int(numzhuce/size) 内容来自论文无忧网 www.paper51.com if (numzhuce mod size)>0 thenTotlePage=TotlePage+1 '总页数 paper51.com if page<1 or page>TotlePage then http://www.paper51.com
page=1 paper51.com rs.AbsolutePage=page '当前页 内容来自论文无忧网 www.paper51.com else http://www.paper51.com rs.AbsolutePage=page '当前页 内容来自www.paper51.com end if http://www.paper51.com num=1 '循环变量初值 copyright paper51.com %> http://www.paper51.com 以上的内容分别把接收到的数据放在变量中，下面的代码的功能是显示出这些信息。 paper51.com
<tdwidth="545" height="91" valign="top"> copyright paper51.com
<font size="2"> 内容来自论文无忧网 www.paper51.com <%while not rs.eof and num<=size%> 内容来自论文无忧网 www.paper51.com
<font color="#FF00FF"> 内容来自www.paper51.com [留言主题]</font><%=rs("主题")%><br> 内容来自论文无忧网 www.paper51.com
<font color="#FF00FF"> http://www.paper51.com [留言内容]</font><%=rs("内容")%><br> paper51.com                                    paper51.com <%=rs("昵称")%>  http://www.paper51.com [<%=rs("时间")%>] <br> paper51.com <font color="#0000FF"> paper51.com +---------------------------------------------------------------------+</font> <br> copyright paper51.com <%rs.movenext 内容来自论文无忧网 www.paper51.com num=num+1 copyright paper51.com wend copyright paper51.com rs.close 内容来自www.paper51.com setrs=nothing%> http://www.paper51.com
</font> 内容来自论文无忧网 www.paper51.com </td> copyright paper51.com
</tr> 内容来自论文无忧网 www.paper51.com <tr> paper51.com
<td width="545" height="91" valign="top"> paper51.com <font size="2"> 内容来自www.paper51.com <a href="lyb.asp?page=1">[第一页]</a> paper51.com <% select case page http://www.paper51.com
case 1: '只有下一页 内容来自论文无忧网 www.paper51.com if totlepage>1 then 内容来自论文无忧网 www.paper51.com
%> 内容来自www.paper51.com <a href="lyb.asp?page=2">[下一页]</a>[第<%=page%>页/共<%=TotlePage%>页][共<%=numzhuce%>条记录] paper51.com <% else %> http://www.paper51.com 第<%=page%>页/共<%=TotlePage%>页</font> copyright paper51.com <% end if %> 内容来自www.paper51.com <% case TotlePage: '只有上一页%> 内容来自论文无忧网 www.paper51.com <a href="lyb.asp?page=<%=page-1%>">[上一页]</a>[第<%=page%>页/共<%=TotlePage%>页][共<%=numzhuce%>条记录] copyright paper51.com <% case else: %> copyright paper51.com <a href="lyb.asp?page=<%=page-1%>">[上一页]</a> http://www.paper51.com <a href="lyb.asp?page=<%=page+1%>">[下一页]</a> copyright paper51.com [第<%=page%>页/共<%=TotlePage%>页][共<%=numzhuce%>条记录] 内容来自论文无忧网 www.paper51.com
<% end select %> copyright paper51.com
</font> 内容来自论文无忧网 www.paper51.com <%end if%> http://www.paper51.com </td> http://www.paper51.com |