"首页""上一页""下一页"和"尾页"的问题

thunderingman 2008-10-29 02:12:28

dim pagenum,i
i=1
rs.pagesize=10
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=trim(request("pagenum"))
rs.absolutepage=trim(request("pagenum"))
end if

<p align="center">共<%=rs.pagecount%>页,当前/<%=rs.pagecount%> <a href=loans.asp&pagenum=1></a>
<%if pagenum>1 then%>
<a href=loans.asp&pagenum=<%=(pagenum-1)%>>上一页</a>
<%else%>
上一页
<%end if%>
<%if pagenum < trim(pagecount1) then%>
<a href=loans.asp&pagenum=<%=(pagenum+1)%>>下一页</a>
<%else%>
下一页
<%end if%> <a href=loans.asp&pagenum=<%=pagecount1%>>尾页</a>
</p>
<%end if %>

哪里有错啊?

是不是最后链接的地方出错?
请大虾指教

...全文

743 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

MOTA 2008-10-29

打赏
举报

哎~`不提供错误信息
说实话不大想看代码`~~~

眼花呀

xiaojing7 2008-10-29

打赏
举报

你那个地方有提示错误？
还是没什么反应？

西安风影 2008-10-29

打赏
举报

<html>

<body>

<%

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

conn.open("DRIVER=Microsoft Access Driver (*.mdb);UID=admin;pwd=;dbq="&server.mappath("data.mdb"))

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

sql="select * from student"

rs.open sql,conn,1,1

if rs.recordcount<>0 then

  rs.pagesize=10

  if request("page")<>"" then

    epage=cint(request("page"))

    if epage<1 then epage=1

    if epage>rs.pagecount then epage=rs.pagecount

  else

    epage=1

  end if

  pagecount=rs.pagecount

  pagesize=rs.pagesize

  rs.absolutepage=epage

else

  pagesize=1

  epage=1

  pagecount=1

end if

response.write rs.pagesize

%>

<table border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF" width="80%" align="center">

  <tr bgcolor="#FFFFFF" align="center">

    <th><%=rs(0).name%></th><th><%=rs(1).name%></th><th><%=rs(2).name%></th>

  </tr>

<%

for i=0 to pagesize-1

if rs.bof or rs.eof then exit for

%>

  <tr bgcolor="#FFFFFF" align="center">

    <td><%=rs(0).value%></td><td><%=rs(1).value%></td><td><%=rs(2).value%></td>

  </tr>

<%

rs.movenext()

next

%>

</table>

<p align="center">

<a href="test.asp">首页</a>

<%if epage=1 then%>上一页

<%else%><a href="test.asp?page=<%=epage-1%>">前一页</a>

<%end if%>

<%if epage=pagecount then%>下一页

<%else%><a href="test.asp?page=<%=epage+1%>">后一页</a>

<%end if%>

<a href="test.asp?page=<%=pagecount%>">末页</a>

<span>第<%=epage%>页 共<%=pagecount%>页</span>

<select id="name" name="page" size="1" 

onchange="window.location='test.asp?page='+this.options[this.selectedIndex].value">

<%

for j=1 to pagecount

if j=epage then 

%><option value="<%=j%>" selected>第<%=j%>页</option><%

else%><option value="<%=j%>">第<%=j%>页</option><%

end if 

next%></select>

</p>

<%

rs.close

conn.close

%>

</body>

</html>