最简单的ASP读取数据库内容代码(带简单翻页功能)

《!-- #include file="conn.asp"-->
《!--翻页代码-->
《% dim ThisURL,ThisPage   '定义变量
ThisURL="http://"&request.ServerVariables("SERVER_NAME")&request.ServerVariables("URL") '取得当前页URL

if not isempty(request("page")) then   '如果 传递过来的 page 值为空值 则
thispage = request("page")             'thispage 的值就是page的值          
else             '否则                      
thispage = 1     'thispage 的值为 1                      
end if           '退出

'创建记录集      
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From [news] "  
Rs.Open Sql,Conn,1,1       '打开news表

rs.pagesize = 5      '每页显示5条记录
rs.absolutepage = thispage   '将thispage 转换成rs.absolutepage

for ipage=1 to rs.pagesize   '循环从1到 rs.pagesize ,前面我们定义了rs.pagesize=5  
if rs.eof then exit for      '如果表中没有记录 则退出循环,否则运行下面代码
%>

《!--读取内容-->
《ul>《li>《%=rs("title")%>《/li>《/ul>


《%
'jinbenli.com
rs.movenext
next
%>

《!--翻页-->
页次:《%=thispage%>/《%=rs.pagecount%>  
《%for i=1 to rs.pagecount%>
《a href="《%=thisURL%>?page=《%=i%>" target="_self">[《%=i%>]《/a>
《%next%>
共《%=rs.recordcount%>条信息

《!--关闭记录集-->
《%
Rs.Close
Set Rs=Nothing
%>


(使用时请用ctrl+h功能把《替换成< )

[本日志由 jinbenli 于 2011-10-26 01:28 PM 更新]
上一篇: 最简单的ASP读取数据库内容代码
下一篇: 《初恋这件小事》片尾曲 会有那么的一天
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp代码
相关日志:
评论: 0 | 引用: 0 | 查看次数: 249
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 关闭 | [img]标签 关闭