asp留言本源码及论文 第7页

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>
    &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp                                 
    <%=rs("昵称")%>&nbsp                              
    [<%=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]  ... 下一页  >> 

asp留言本源码及论文 第7页下载如图片无法显示或论文不完整，请联系qq752018766