当前位置:asp编程网>技术教程>软件使用教程>  正文

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

2012-10-30 23:40:56   来源:www.aspbc.com    作者:wangsdong   浏览量:972   收藏

今天教大家使用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
%>
(鼠标移到代码上去,在代码的顶部会出现四个图标,第一个是查看源代码,第二个是复制代码,第三个是打印代码,第四个是帮助)
然后在上面*号的地方添加上你要循环的html代码即可显示每页的新闻了。


剩下我们来生成每天导航代码,在“生成查询代码”按纽右边,有个“调用分页”按纽,点击这个按纽,可以得到相关的分页代码,把它贴到生成的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文件,看看是不是可以分页了。



关于我们-广告合作-联系我们-积分规则-网站地图

Copyright(C)2013-2017版权所属asp编程网