分页问题?为什么非得要这样做?
问题一:首次进入这个页面时,页面顶部的页次1应该不是一个链接(代码中已经作了判断),但没有实现,而切换到其他页后再回到第一页又不存在这个问题了.
问题二:第一次点下一页按钮时没反应,要点两次才转到第二页.
问题三:持续点下一页到达最后一页时还有下一页的链接,这时点它会出错.但我在代码中明明已作了判断到达最后一页时就不再显示下一页的链接.
代码如下:
<!--#include file="adofunctions.asp"-->
<head>
<link type="text/css" rel="stylesheet" href="style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
'定义一个名为showpage的子函数,用来分页显示当前页的留言.由pageno参数决定要显示哪一页
sub showpage(objrs,pageno)
'显示留言并加以格式化,每条留言是一个单独的表格
objrs.absolutepage=pageno
for i=1 to objrs.pagesize '在主程序中已设置分页大小为五条记录
response.write "<table align='center' width='100%'>"
response.write "<tr><td bgcolor='#E7E9E7'>"
response.write "留言主题:"&objrs("title")&"</td></tr>"
response.write "<tr><td >"'这二行用来显示留言的主题和留言时间
response.write "留言时间:"&objrs("datetime")&"</td></tr>"
response.write "<tr><td >留言内容:</td></tr>" '这二行用来显示留言的内容
response.write "<tr><td >"&objrs("content")&"</td></tr>"
if objrs("sex")="男" then
sex="先生"
else sex="女士"
end if
response.write "<tr><td bgcolor='#99CC99'>"&"留言人:"&objrs("username")&" "&sex&" "
response.write "来自:" & objrs("address") & " "& objrs("corporation")&" "
response.write "<img src='img/homepage.gif' alt='"&objrs("homepage")&"'>"&"</img>"&" "
response.write "<img src='img/oicq.gif' alt='"&objrs("qq")&"'>"&"</img>"&" "
response.write "<img src='img/email.gif' alt='"&objrs("mail")&"'>"&"</img>"
response.write "</td></tr>"
'这一行用于显示留言人信息包含姓名性别联系地址电话E-MAIL\QQ\公司名称\公司主页
response.write "</table>"
objrs.movenext
if objrs.eof then exit for
next
end sub
%>
<%
strsql="select * from 留言表 order by datetime desc"
set objrs=getsqlrecordset(strsql,"sizheng.mdb","留言表")
objrs.pagesize=5
pageno=request("pageno") '读恨浏览者点击的页次超级链接,确定当前要显示哪一页
response.write "<p><a href='leaveword.htm'>我要留言</a> "
response.write "[ | "
for i=1 to objrs.pagecount '这里好象有问题
if i= CInt(pageno) then
response.write i &" | "
else
response.write "<a href='showadvertence.asp? pageno="&i&"'>"&i&"</a>"&" | " '******这里好象有问题*******
'以上这句用于产生一个数字的超级链接,当用户点取后将所点击的数字作为参数传递给本身这一个ASP页面
end if
next
response.write "]"
'以下这一段显示上一页下一页链接
if objrs.absolutepage >=1 then '******这里好象有问题*******
if objrs.absolutepage=1 then
response.write "<a href='showadvertence.asp?pageno="& pageno &"'>首页"&"</a>"&" "
else
response.write "<a href='showadvertence.asp?pageno="& (pageno-1) &"'>上一页"&"</a>"&" "
end if
end if
if objrs.absolutepage<=objrs.pagecount then
if objrs.absolutepage=objrs.pagecount then
response.write "<a href='showadvertence.asp?pageno="& objrs.pagecount &"'>末页"&"</a>"&" "
else
response.write "<a href='showadvertence.asp?pageno="& (pageno+1) &"'>下一页"&"</a>"&" "
end if
end if '*************这里好象有问题一直到这里.**************
response.write "</p>"
%>
<%
'根据页次的不同调用SHOWPAGE子函数,如果没有指定页次则默认显示第一页
if pageno<>"" then
showpage objrs,pageno
else
showpage objrs,1
end if
strsql="select * from 留言表 order by datetime desc"
set objrs=getsqlrecordset(strsql,"sizheng.mdb","留言表")
objrs.pagesize=5
pageno=request("pageno") '读恨浏览者点击的页次超级链接,确定当前要显示哪一页 response.write "<p>[ | "
for i=1 to objrs.pagecount
if i= CInt(pageno) then
response.write i &" | "
else
response.write "<a href='showadvertence.asp?pageno="&i&"'>"&i&"</a>"&" | "
'以上这句用于产生一个数字的超级链接,当用户点取后将所点击的数字作为参数传递给本身这一个ASP页面
end if
next
response.write "]"
'关闭数据库连接并释放对象实例
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>