asp开发工具5教程十：生成分页查询代码

今天教大家使用asp开发工具5来生成多条记录的asp查询代码（这里还是以新闻表来做例子）

生成多条记录的asp查询代码这个功能，通过用于的地方，如：企业网站首页的新闻动态。生成的方法和asp开发工具5教程九：生成多条记录的asp查询代码中的许多步骤一样，只是有两个地方不一样：

1、类型：这里选择“分页”，并在右边的“每数量”框中输入你要每页要显示的新闻的条数

2、排序语句：因为是首页新闻分页，所以首页的新闻必须是以时间来排倒序的

    这里先点击“ORDER”按纽，进入排序对话框。这里支持三个字段的排序，必须从上到下来选择排序字段和排序类型。这里我选把新闻的发布时间“字段”，然后选择“降序”即可，如果还需要其他字段排序的话，再选择下面的排序。选择好了，就点击“确定”按纽。

3、然后点击“生成查询代码”即可得到生成的asp代码，代码如下：

<%
Dim news_id,news_title
Page = SafeRequest("Page",1,1)
Page_Size = SafeRequest("Page_Size",1,10)
Set Rs = Server.CreateObject("Adodb.Recordset")
sql = "select news_id,news_title from (select row_number() over (news_time desc) as rowId,news_id,news_title From news Where 1=1 And is_show = 1) as mytable Where rowId Between " & (Page-1) * Page_Size+1 & "    And " & Page * Page_Size 
Rs.Open sql,conn,1,1
IF Not Rs.EOF then 
Do While Rs.EOF
	news_id=Rs("news_id")
	news_title=Rs("news_title")
    '*****以下是您要添加代码的地方*****
    %>

    <%
    '*****以上是您要添加代码的地方*****
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs = Nothing
%>

剩下我们来生成每天导航代码，在“生成查询代码”按纽右边，有个“调用分页”按纽，点击这个按纽，可以得到相关的分页代码，把它贴到生成的asp查询代码下面的任何地方就可以了。

注意这里：这里需要去“函数查询”界面中获取“分页代码”函数，点击asp开发工具5界面上的“函数查询”标签，再点击“分页代码”，即可得到分页函数。

点击了"调用分页"按纽，得到如下asp分页代码：

<%
Sql = "Select Count(*) From news Where 1=1 And is_show = 1"
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
pagestr = Fpages("",num,page,page_size)
Response.Write pagestr
%>

把它粘贴到指定的地方即可。

运行一下代码asp文件，看看是不是可以分页了。