如何实现每个页面只显示1条记录，用链接来做向前，向后的按键？？
如题 问题点数：20、回复次数：4Top
1 楼bluesky1314520（bluesky）回复于 2004-08-03 13:53:46 得分 0
普通的分页，一页显示一条记录就行了Top
2 楼s1ihome（My hometown is a beautiful village）回复于 2004-08-03 13:54:04 得分 0
其实就相当于页面的pagesize=1,然后连接向前向后不也是正常吗Top
3 楼smallyear（再見理想）回复于 2004-08-03 13:54:44 得分 0
跟分頁一樣﹐一頁顯示一條記錄Top
4 楼myxl（明月小楼主人)((￥)）回复于 2004-08-03 13:56:26 得分 20
<%
Set Rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * From 表名 Order By id Desc"
msg_per_page=1'这里设置每页显示条就行了
Rs.cursorlocation=3
Rs.pagesize=msg_per_page
Rs.open Sql,Conn,1,1
if not (Rs.eof and Rs.bof) then
totalrec=Rs.RecordCount
if Rs.recordcount mod msg_per_page=0 then
n=Rs.recordcount\msg_per_page
else
n=Rs.recordcount\msg_per_page+1
end if
currentpage=request("page")
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage=1
end if
else
currentpage=1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
Rs.absolutepage=currentpage
rowcount=Rs.pagesize
For i=1 to Rs.RecordCount
if rowcount <= 0 or Rs.eof then exit For
'这里显示记录内容
%>
<table>
<tr>
<td>
<%=Rs("字段名")%>
</td>
</tr>
</table>
<%
rowcount=rowcount-1
Rs.MoveNext
Next
call listPages
end if
Rs.close
Set Rs=nothing
sub listPages()
if n<=0 then n=0
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1
if totalrec <=0 then totalrec = 0
if blockPage < 0 then blockPage = 0
if blockPage <= 1 Then
Response.Write "<center><span disabled>【←前10页</span> "
Else
Response.Write("<center><span disabled>【</span><a href=javascript:gopage("&blockPage-10&"); class=main><font size=2>←前10页</font></a> ")
End If
i=1
Do Until i > 10 or blockPage > n
If blockPage=int(gopage) Then
Response.Write("<font color=#FF0000>[<b><font size=3>"&blockPage&"</font></b>]</font>")
Else
Response.Write("<a href=javascript:gopage("&blockPage&"); class=main>["&blockPage&"]</a>")
End If
blockPage=blockPage+1
i = i + 1
Loop
if blockPage > totalpage Then
Response.Write " <span disabled>后10页→】"
Else
Response.Write(" <a href=javascript:gopage("&blockPage&") class=main><font size=2>后10页→</font></a><span disabled>】")
End If
Response.Write("</span><font face=arial> 共<font color=red>"&n&"</font>页 每页<font color=red>"&msg_per_page&"</font>条记录 共<font color=red>"&totalrec&"</font>条记录</font></center>")
end sub
Response.Write"<form name=data method=get>"
Response.Write"<input type=hidden name=Page value="&GoPage&">"
Response.Write"<input type=hidden name=Class value="&Trim(Request.QueryString("Class"))&">"
Response.Write"<input type=hidden name=ClassID value="&Trim(Request.QueryString("ClassID"))&">"
Response.Write"<input type=hidden name=KeyWord value="&Trim(Request.QueryString("KeyWord"))&">"
Response.Write"</form>"
%>Top
