UC知道asp的分页显示，有几个问题！我会追加分数
来源：百度知道 编辑：UC知道 时间：2024/06/16 01:50:03
<% set conn=server.CreateObject("adodb.connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" &Server.MapPath("data/db2.mdb")
set rs=server.CreateObject("adodb.recordset")
exec="select * from xinghao"
rs.open exec ,conn,1,1
%>
<% rs.pagesize=3
zongye=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.absolutepage=page
%>
<% if rs.eof and rs.bof then
response.Write("暂时没有新闻")
else
for i=1 to rs.pagesize
response.Write(rs("id"))
response.Write("<br>"&rs("sname"))
response.Write("<br>"&rs("sxinghao"))
response.Write("<hr>")
rs.movenext
next
end if
%>
conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" &Server.MapPath("data/db2.mdb")
set rs=server.CreateObject("adodb.recordset")
exec="select * from xinghao"
rs.open exec ,conn,1,1
%>
<% rs.pagesize=3
zongye=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.absolutepage=page
%>
<% if rs.eof and rs.bof then
response.Write("暂时没有新闻")
else
for i=1 to rs.pagesize
response.Write(rs("id"))
response.Write("<br>"&rs("sname"))
response.Write("<br>"&rs("sxinghao"))
response.Write("<hr>")
rs.movenext
next
end if
%>
page 是 <a href="001.asp?page= 这里传来的
你说那个 next 是for 的结束标志
第三个问 循环3次 这就是分页的原则啊 把查询到的数据分成 几个段 每段3个数据 rs.absolutepage=page 这个语句就是跳转到第几段
建议买本书学学或学习想网上教程
没什么好说的,建议你先巩固VBS的语法基础