利用asp开发工具生成列表分页页面

asp开发工具4.0版下载地址：http://www.aspbc.com/soft/showsoft.asp?id=181
今天开始使用asp开发工具生成列表页，并实现分页功能。

假设效果图如下：
 

我们运行asp开发工具，在系统设置中连接上数据库。由于这里要进行分页，这里就需要去常用函数中把分页函数代码复制出来，粘贴到conn.asp文件中去。

接下来就点击asp开发工具上的“查询”选项，进入生成分页代码的过程。
【代码类型】 - 选择非函数。
【表名】- 选择news表。
【字段名】- 由于生成上面的表，所以需要选择news_id，news_title，news_from，news_hits，news_time 五个字段名。
【类型】- 由于要分页，所以这里选择分页。
【每页数量】 - 输入每页新闻的数量，默认为10。
【ORDER】按纽 - 由于是新闻，所以需要按news_id排倒序。方法：点击“ORDER”按纽，进入order对话框，在第一排序中选择news_id字段，然后选择“降序”；由于不需要其他的排序，所以下面两个排序就不用选择了，然后点击“确定”按纽。
【sql语句】- 显示生成的sql语句，不要修改里面的任何东西，这里可以复制它段名等信息，用于其它地方。
这样查询设置就好了，点击“生成代码”来得到查询的代码。进入DW的代码状态，在第一个</tr>后面加上<%和%>，并将复制来的代码加到<%和%>之间。然后找到代码中的
'*****以下是您要添加代码的地方*****
'*****以上是您要添加代码的地方*****
这两个地方，加上%>和<%，并把下面的表格行的代码移动到这两个之间，修改一下相应的显示地方。
代码如下：

<!--#include file="../include/conn.asp"-->
<%
conn=openConn()
%>
<table width="500" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center">&nbsp;</td>
    <td align="center">新闻标题</td>
    <td align="center">新闻来源</td>
    <td align="center">点击数</td>
    <td align="center">发布时间</td>
    <td align="center">操作</td>
  </tr>
  <%
    Dim news_content,news_from,news_hits,news_id,news_time,news_title,str,sql,Rs
    Set Rs = Server.CreateObject("Adodb.RecordSet")
    page = trim(request("page"))
    If page ="" or not isnumeric(page) then
       page = 1
    Else
       page = Cint(page)
    End if
    page_size = trim(request("page_size"))
    IF Not Isnumeric(page_size) or page_size = "" Then
      page_size = 10
    ELSE
      page_size = cint(page_size)
    End IF
    Set Rs = Server.CreateObject("Adodb.Recordset")
    sql = "select news_content,news_from,news_hits,news_id,news_time,news_title from news order by news_id desc"
    Rs.Open sql,conn,1,1
    IF Not Rs.EOF then 
    Rs.PageSize=page_size
    IF Not Isnumeric(page) or page = "" Then
    page = 1
    else
    page = cint(page)
    End IF
    IF page<1 Then page=1
    IF page>Rs.pagecount Then page = Rs.pagecount
    Rs.AbsolutePage = page
    For i=1 to Rs.PageSize
        news_content=Rs("news_content")
        news_from=Rs("news_from")
        news_hits=Rs("news_hits")
        news_id=Rs("news_id")
        news_time=Rs("news_time")
        news_title=Rs("news_title")
        '*****以下是您要添加代码的地方*****

		%>
        <tr>
        <td align="center">
          <input type="checkbox" name="d" id="d" value="<%=news_id%>">
        </td>
        <td align="left"><%=news_title%></td>
        <td align="center"><%=news_from%></td>
        <td align="center"><%=news_hits%></td>
        <td align="center"><%=news_time%></td>
        <td align="center"><a href="news_edit.asp?id=<%=news_id%>">修改</a>|<a href="news_del.asp?id=<%=news_id%>">删除</a></td>
      </tr>
        <%
        '*****以上是您要添加代码的地方*****
        Rs.MoveNext
        IF Rs.EOF Then 
          Exit For
        End IF
    Next
    End IF
    Rs.Close
    Set Rs = Nothing
  %>  
  <tr>
    <td colspan="6"><%
sql = "select count(*) from news "
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql,conn,1,1
If Not Rs.Eof Then
	num = Rs(0)
End If
Rs.Close
Set Rs = Nothing
Call fpage("",num,page,page_size)
	%></td>
  </tr>
</table>
<%
closeConn(conn)
%>

然后点击“分页代码”，得到分页代码，把它粘贴到最下面的空白行中。
这样就好了，运行一下news_manage.asp试试，是不是带有分页的列表页