欢迎您登陆并使用中国财税咨询中心为您免费提供的资料，交流，学习为一体的平台！

如果您在使用中遇到什么问题，请您不要吝啬，一定要写信给我们！！

Email:Shellapi@126.com 期待您的来信，或指导批语！

帮助内难免有收集的资料，如果侵犯了您的仅力，请您来信告知，我们马上删除或更新处理！

文章搜索--请输入关键词：

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

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

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

conn.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 then

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 %>

<a href="bbs.asp?page=<%=page+1%>">下一页</a>

<a href="bbs.asp?page=<%=tatalpage%>">尾页</a>

<%

elseif int(page)=int(tatalpage) then

%>

<a href="bbs.asp?page=1">首页</a>

<a href="bbs.asp?page=<%=page-1%>">上一页</a>

<%else %>

<a href="bbs.asp?page=1">首页</a>

<a href="bbs.asp?page=<%=page-1%>">上一页</a>

<a href="bbs.asp?page=<%=page+1%>">下一页</a>

<a href="bbs.asp?page=<%=tatalpage%>">尾页</a>



<%

end if %>

共<b><%=tatalrecord%></b>条记录&nbsp;第<b><%=page%>/<%=tatalpage%></b>页&nbsp;每页<b>15</b>条记录







<form action="bbs.asp" style="position: relative">

<p align="right">

跳转到第<input type="text" name="page" size="4">页<input type="submit" value="确定" name="B1" style="border-style: solid">

</form>