简单分页问题，请哥哥姐姐们看看： - ASP技术论坛

问题点数：0 回复次数：11

简单分页问题，请哥哥姐姐们看看：

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>学生信息表</title> </head> <body> <% dim conn,dbpath set conn=server.createobject("adodb.connection") dbpath=server.mappath("student.mdb") conn.open "provider=microsoft.jet.oledb.4.0;data source="&dbpath set rs=server.createobject("adodb.recordset") sqlstr="select * from stud_info order by stud_id" rs.open sqlstr,conn,1,1 response.write "本表格共有"&rs.recordcount&"条记录:<br>" if rs.recordcount>0 then %> <table width=760 border=1 cellpadding=3 cellspacing=0 bgcolor=#EFEFEF> <tr bgcolor=#CEDBFF> <td width=60>学号</td><td width=70>姓名</td><td width=50 align=center>性别</td><td width=100>出生日期</td> <td width=160>地址</td><td width=120>电话</td><td width=50>邮编</td><td width=80 align=right>所在系号</td> <td width=70 align=right>奖学金</td></tr> <% rs.pagesize=4 page=cint(request.form("page")) if page="" then page=1 if page<1 then page=1 if page>=rs.pagecount then page=rs.pagecount rs.absolutepage=page for i=1 to rs.pagesize %> <tr><td><%=rs("stud_id")%></td><td><%=rs("name")%></td><td align=center><%=rs("gender")%></td> <td><%=rs("birthday")%></td><td><%=rs("address")%></td><td><%=rs("telcode")%></td> <td><%=rs("zipcode")%></td><td align=right><%=rs("deptcode")%></td><td align=right><%=rs("salary")%></td> </tr> <% rs.movenext if rs.eof then exit for next end if %> </table> <table width=760 border=1 cellpadding=3 cellspacing=0 bgcolor=#EFEFEF> <tr> <td width=760 align=right> <a href="sb1.asp"?page=1>首页</a> <a href="sb1.asp"?page="&(page-1)&">上页</a> <a href="sb1.asp"?page="&(page+1)&">下页 </a><a href="sb1.asp"?page="&rs.pagecount&">未页</a>   </td> </tr> </table> <%

rs.close set rs=nothing conn.close set conn=nothing %> </body> </html> 不知道错在什么地方了！测试时总是显示在第一页，第二页第三页翻不下去！在IE发地址栏中输入http://localhost/sb1.asp?page=2也无法翻页小妹新手，请大家帮忙！

[此贴子已经被作者于2004-06-23 20:43:19编辑过]

搜索更多相关主题的帖子: html　表格　 content　source　title　

第 2 楼

得分:0

给一个分页的你参考：  <% if request.Form("txtming")="" then strming="%" else strming=replace(request.Form("txtming")," ","")'第一个是去掉空格，其实用trim可以嘞 end if if request.Form("txtshidai")="" then strshidai="%" else strshidai=replace(request.Form("txtshidai")," ","") end if set rs=server.CreateObject("adodb.recordset") sql="select * from a where ming like '%"&replace(strming,"'","''")&"%' and shidai like '%"&replace(strshidai,"'","''")&"%' order by id desc" '第二个是去掉 ' 因为有可能利用 ’ 来改变你的sql，从而做出黑客的动作， replace(strming,"'","''")把单引号换成双引号 rs.open sql,conn,1,1

const MaxPerPage=6 '单独页最大记录数 const 用来申明常量 dim sql dim rs dim totalPut '总记录 dim CurrentPage '当前页次 dim TotalPages '总页数 dim i

%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>无标题文档</title> <style type="text/css">  </style></head>

<body> <% rs.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上 rs.pagesize=MaxPerPage '设置每页最多显示多少条记录 If trim(Request("Page"))<>"" then '如果请求的页次不为空 CurrentPage= CLng(request("Page")) 'clng是转换成长整型数据类型,并赋值到当前页次上 If CurrentPage> rs.PageCount then '如果当前页次大于总页数,则将最大页次赋值到当前页次上 CurrentPage = rs.PageCount End If Else CurrentPage= 1 '一切条件不成立,将当前页设为第一页 End If

totalPut=rs.recordcount '将总记录赋值于TOTALPUT if CurrentPage<>1 then '如果当前页数不等于第一页 if (currentPage-1)*MaxPerPage<totalPut then '如果当前页减一乘以每页最大的记录数小于总记录的话 rs.move(currentPage-1)*MaxPerPage '相对当前记录数向后移动 dim bookmark '定义书签变量 bookmark=rs.bookmark '将当前记录的标签赋于变量BOOKMARK上 end if end if

dim n,k if (totalPut mod MaxPerPage)=0 then '总记录数与每页最大记录数求余的结果为零时,则N返回整数页次,否则再加一. n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if %> <table width="484" border="0" cellpadding="1" cellspacing="1" bgcolor="#000000"> <tr align="center" valign="middle" bgcolor="#CCCCCC"> <td width="27">id</td> <td width="94">姓名</td> <td width="100">时代</td> <td width="250">日期</td> </tr> <% i=0 Do While Not rs.EOF and i<maxperpage %> <tr align="center" valign="middle" bgcolor="#FFFFFF"> <td><%=rs("id")%></td> <td><%=rs("ming")%></td> <td><%=rs("shidai")%></td> <td><%=rs("riqi")%></td> </tr> <% i=i+1 rs.MoveNext Loop %> </table><br> <table width="485" border="0" cellpadding="0" cellspacing="0" height="20">  <tr> <td width="485" height="20" align="center" valign="middle" bgcolor="#FFFFFF">  <div align="center">当前第<font color="#FF0000"><%=currentpage%></font>页总共<font color="#FF0000"><%=n%></font>页共<font color="#FF0000"><%=rs.recordcount%></font>条记录 <%k=currentPage if k<>1 then response.write "[<b>"+"<a href='resault.asp?page=1'>首页</a></b>] " response.write "[<b>"+"<a href='resault.asp?page="&cstr(k-1)&"'>上一页</a></b>] " else Response.Write "[首页] [上一页]" end if if k<>n then response.write "[<b>"+"<a href='resault.asp?page="&cstr(k+1)&"'>下一页</a></b>] " response.write "[<b>"+"<a href='resault.asp?page="&cstr(n)&"'>尾页</a></b>] " else Response.Write "[下一页] [尾页]" end if %> </div></td> </tr> </table><br>

</body> </html>

[此贴子已经被作者于2004-06-24 12:02:36编辑过]

59ita点com(我就爱TA)

第 3 楼

得分:0

belin2000版主我怎么看不懂啊 ----------------------------------------------

现在好了刚才是乱码! 十分感谢！

[此贴子已经被作者于2004-06-24 15:01:43编辑过]

第 4 楼

得分:0

那你想怎么？我都有写解释的了！

59ita点com(我就爱TA)

第 5 楼

得分:0

belin2000你的分页程序怎么这么长？？？？

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

第 6 楼

得分:0

把rs.absolutepage=page放到rs.open sqlstr,conn,1,1
后面，或是for i=1 to rs.pagesize的后面！

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

第 7 楼

得分:0

不觉得，我还有更长的，你的呢？发上来看看拉!

59ita点com(我就爱TA)

第 8 楼

得分:0

好，我的肯定比你的短！

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

第 9 楼

得分:0

<html>
;数据库连接文件
<style type="text/css">;样式表

</style>
<%
   const maxperpage=25;每页显示记录数
   dim totalput,currentpage,totalpages,i,j,ii
   dim conn,rs,sql
     call openDB();打开数据库
%>
<body>
<center>
<%
  rs.open "SELECT 教师编号,教师姓名,sum(出库数量*单价) AS 总金额 FROM 教师出库 group by 教师编号,教师姓名 order by 教师编号",conn,1,1
if not rs.eof then
    rs.movefirst
    rs.pagesize=maxperpage;把最大记录数赋给pagesize
    howmanyfields=rs.fields.count-1
    if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then;当前页大于rs的页数量
   currentpage=rs.pagecount当前页设为最大页数
   end if
    else
     currentpage=1;当前页设为1
    end if
    if rs.eof then
    response.write"<p align='center'>ERROR!</p>"
    else
    totalput=rs.recordcount;总记录数
    if currentpage<>1 then
   if (currentpage-1)*maxperpage<totalput then
      rs.move(currentpage-1)*maxperpage
      dim bookmark
      bookmark=rs.bookmark;书签
   end if
    end if
    dim n,k
    if(totalput mod maxperpage)=0 then
     n=totalput\maxperpage;计算页数
    else
     n=totalput\maxperpage+1
    end if
  %>
<table width="700" class="font1">
  <tr><td align="center">
  <%
  k=currentpage
    if k<>1 then
    response.write"[<b>"+"<a href=tehuizong.asp?page=1>首页</a></b>]"
    response.write"[<b>"+"<a href=tehuizong.asp?page="+cstr(k-1)+">上一页</a></b>]"
    else
    response.write"[首页][上一页]"
    end if
    if k<>n then
    response.write"[<b>"+"<a href=tehuizong.asp?page="+cstr(k+1)+">下一页</a></b>]"
    response.write"[<b>"+"<a href=tehuizong.asp?page="+cstr(n)+">尾页</a></b>]"
    else
    response.write"[下一页][尾页]"
    end if
%>
共 <%=n%> 页第 <%=currentpage%> 页，共 <%=rs.recordcount%> 记录
</td></tr>
<tr><td><hr></td></tr>
</table>
<table border="1" cellspacing="0" bgcolor="#ECEDF9" class="font1">
<tr align="center">
<% for ii=0 to rs.fields.count-1 %>
     <td width="100"><b>
  <% =rs(ii).name%>
  </b></td>
<% next %>
</tr>
<%
do while not rs.eof and i<maxperpage;当不溢出且小于每页的最大记录数
%>
<tr align="center">
<%
for j=0 to rs.fields.count-1
%>
<td>&nbsp;<%=rs(j).value%>&nbsp; </td>
<%next%>
</tr>
<%
i=i+1
rs.movenext;到下一条
loop
end if
%>
</table><br>
<%
  else
response.Write("对不起,暂时无相关记录")
end if
call closeDB();关闭数据库
%>
</center>
</body>
</html>

http://www. 版主位置空缺

第 10 楼

得分:0

谢谢上面的各位版主们！你们的热情真让人感动！再次感谢！！！我再试试！