【asp源码栏目提醒】:网学会员--在 asp源码编辑为广大网友搜集整理了:ASP+VBScript分页显示代码 - 技术总结绩等信息,祝愿广大网友取得需要的信息,参考学习。
ASP分页代码VBScript我也是初学者对别人的加以总结下面代码是我运行过的确认无误有不足的地方还请大家多多谅解。
看代码之前做一下说明以便更好的理解。
rs.pagesize---定义每页显示的记录条数rs.recordcount---读取的记录总数rs.pagecount----记录的总页数rs.absolutepage---将数据库指针移动到当前页第一条记录比如有20条记录的一个数据库我们分为10条记录显示一页当你的页面为第2页时通过使用rs.absolutepage将指针移动到第11条记录处依次类推....sql_newsselectfromnewssetrs_newsserver.CreateObjectADODB.RecordSetrs_news.opensql_newsconn33setrs_newsconn.executesql_newsifrs_news.eofandrs_news.bofthenresponse.Write暂时没有相关测试else分页dimtotalCounttotalpagesnowpage每页设置25项我这里总记录数是一百多条pagesize可根据需要自由设置rs_news.pagesize25获取数据记录总条数totalCountrs_news.recordcount获取数据总页数totalpagesrs_news.pagecountrs_news.movefirst获取地址栏查询字符串参数即请求的页码nowpagerequest.QueryStringTpage地址栏页码参数为空则设置为第一页否则等于请求页ifnowpagethennowpage1else将地址栏查询字符串转换成整型数据nowpagecintnowpageendif将指针移动到当前页得第一条记录rs_news.absolutepagenowpageresponse.Writei1dowhilenotrs_news.eofandi1thenresponse.Write上一页elseresponse.Write上一页endif循环控制显示页码这里的for循环是从1开始的而不是从0开始forp1tototalpagesifpnowpagethen当前页设置为非连接response.Writepnbspelseresponse.Writepnbspendifnext如果当前页不是最后一页则显示末页连接ifnowpagetotalpagesthenresponse.Write下一页elseresponse.Write下一页endififnowpagetotalpagesthenresponse.Write末页elseresponse.Write末页endifresponse.Writeendif注解其中的标签是为了使一些非连接字体颜色的区分
上一篇:
学习php的心得,新手经典教程 开发者
下一篇:
临床前药物安全性评价中毒性病理学新技术的应用