加入收藏在线咨询
位置:主页 >

通博最新官网:不用组件的简单分页

作者:dudu时间:11月29日浏览:


set conn=server.CreateObject("adodb.connection")

set rs=server.CreateObject("adodb.recordset")

cnpath="data source=" & server.MapPath("question.mdb")

co通博最新官网nn.open "provider=microsoft.jet.oledb.4.0;" & cnpath

rs.通博最新官网open "bbs",conn,3,3

set rs=conn.execute("select * From mytable")

do until rs.eof

tatalrecord=tatalrecord+1

rs.movenext

loop

num=tatalrecord Mod 15

if num>0 th通博最新官网en

i=1

else

i=0

end if

tatalpage=int(tatalrecord/15+i)

rs.movefirst

page=request.querystring("page")

if page="" then

page=1

end if

if not rs.eof then

if page=1 then

rs.movefirst

else

rs.move((page-1)*15)

end if

for iPage=1 to 15

if rs.eof then

exit for

response.end

end if

rs("xxxxx")

rs.movenext

next

end if

if page=1 then %>

">下一页

">尾页

首页

">上一页

首页

">上一页通博最新官网

">下一页

">尾页

共笔记录 通博最新官网第/页 每页15笔记录

跳转到第页

电话:13866999966
联系人:王经理
Q Q:88996699
邮箱:admin@dede58.com
地址:中国XX省XX市XX路XX号