分页的一个例子

为了实现新闻的页面示例，源代码如下所示：

strcode = request.querystring（itemcode ）
设置conn = server.createobject（数据连接）
康涅狄格州开放应用（tt18_connectionstring ）
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM newsheadc哪里itemcode = strcode 以trdate降序，a.newstime
的。打开SQL，Conn，1,3
rs.pagesize = 15
数= rs.pagecount
如果Rs.BOF或Rs.EOF
响应。写vbcrlf
响应。写vbcrlf
响应。写对不起，没有相应的数据vbcrlf
响应。写vbcrlf
其他的
rs.absolutepage =页
For I = 1 to Rs.PageSize
trdate =左（RS（trdate ），4）中（RS（trdate ），5）权利（RS（trdate ），2）。
响应。写vbcrlf
响应。写vbcrlf trdate
响应。写vbcrlf
响应。写vbcrlf
响应。写vbcrlf
移到下一项
如果Rs.EOF Then Exit
下一个
响应。写vbcrlf
响应。写vbcrlf
如果第1页
响应。写vbcrlf
最后如果
tmppage = - 1页
如果tmppage tmppage = 1
其他的
响应。写vbcrlf
最后如果
tmppage =页+ 1
如果tmppage > Rs.PageCount
tmppage =页
其他的
响应。写vbcrlf
最后如果
如果Cstr（页）CSTR（rs.pagecount）然后
写vbcrlf响应。
最后如果
响应。写页页
响应。写共有：rs.pagecount 页面vbcrlf
响应。写onclick=Javaｓｃｒｉｐｔ：返回window.close（）；style=FONT-SIZE:小background-color：米色；
身高：22px；宽度：66px>vbcrlf
响应。写vbcrlf
最后如果
%>