[求助]分页函数的应用 - ASP技术论坛

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

[求助]分页函数的应用

<%
set adoPageRs=CreateObject("adodb.RecordSet")
adoPageRs.open "SELECT * FROM news ORDER BY addtime DESC", conn, 1, 1
if err.number> 0 then
response.write "数据库操作失败:"&err.description
else
if adoPageRs.eof and adoPageRs.bof then
response.write "没有记录"
else
%>
<div align="center">
<center>
<table width="100％" border="0" cellspacing="1" cellpadding="2">
<tr class="big">
<td width="60％">;新闻标题</td>
<td width="25％" align="center">日期</td>
<td width="15％" align="center">操　　作</td>
</tr>
<%
adoPageRs.pagesize = 5'设置一个页面显示的记录数
curpage=adoPageRs.absolutepage
for i = 0 to 9
%>
<tr>
<td><%=adoPageRs("title")%></td>
<td align="center"><%=adoPageRs("addtime")%></td>
<td align="center">
<a href='newsman.asp?action=edit&id=<%=adoPageRs("id")%>'>编辑</a>
<a href='javascript:confirmDel(<%=adoPageRs("id")%>)'>删除</a>
</td>
</tr>
<%
adopageRs.movenext
if adoPageRs.eof then
i=i+1
exit for
end if
next
%>
<tr>
<td><%=ExportPageInfo(adoPageRs,curpage,i,"newsman.asp?")%></td>
<td></td>
</tr>
</table>
</center>
</div>
<%
end if
end if
%>

搜索更多相关主题的帖子: 应用　函数　

第 2 楼

得分:0

分页函数


Function ExportPageInfo(ByRef rs,curpage,i,LinkFile)
Dim retval, j, pageNumber, BasePage
retval = "第" & curpage & "页/总" & rs.pagecount & "页 "
retval = retval & "本页" & i & "条/总" & rs.recordcount & "条 "

If curpage = 1 Then
retval = retval & "首页前页 "
Else
retval = retval & "<a href='" & LinkFile & "page=1'>首页</a> <a href='" & LinkFile & "page=" & cstr(curpage - 1) & "'>前页</a> "
End If

If curpage = rs.pagecount Then 
retval = retval & "后页末页"
Else
retval = retval & "<a href='" & LinkFile & "page=" & cstr(curpage + 1) & "'>后页</a> <a href='" & LinkFile & "page=" & cstr(rs.pagecount) & "'>末页</a>"
End if

retval = retval & " "
BasePage = (curpage \ 10) * 10

If BasePage > 0 Then
retval = retval & " <a href='" & LinkFile & "page=" & (BasePage - 9) & "'><<</a>"
For j = 1 to 10
pageNumber = BasePage + j
If PageNumber > rs.pagecount Then
Exit For
end if
If pageNumber = Cint(curpage) Then
retval = retval & " " & pageNumber & ""
Else
retval = retval & " <a href='" & LinkFile & "page=" & pageNumber & "'>" & pageNumber & "</a>"
End If
Next
If rs.pagecount > BasePage Then
retval = retval & " <a href='" & LinkFile & " page=" & (BasePage + 11) & "'>>></a>"
ExportPageInfo = retval
End Function

坚持就是胜利>>静心，静思

第 3 楼

得分:0

数据库连接
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("news.mdb")
%>

数据库名和表名相同news.mdb/news
数据库字段
id title addtime

坚持就是胜利>>静心，静思

第 4 楼

得分:0

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'ExportPageInfo'

坚持就是胜利>>静心，静思

第 5 楼

得分:0

system_rs_num是系统变量，设定每页显示多少条记录 list_rs 是纪录集
只要把displist.asp?class_id="&class_id&"替换对了，就绝对没有问题。

设定每页的纪录数量
<%list_rs.pagesize=system_rs_num
total=0
if not list_rs.eof then
total=list_rs.recordcount
end if%>
判断当前是哪页

<%if total>0 then
if total/system_rs_num>int(total/system_rs_num) then
totalpage=int(total/system_rs_num)+1
else
totalpage=int(total/system_rs_num)
end if
if page="" or isnull(page) then
list_rs.absolutepage=1
else
list_rs.absolutepage=cint(page)
end if
end if%>
。。。。。。。
页面记录显示
。。。。。。。

最多显示10页，如果再多就用后十页前十页代替
<%if totalpage>0 then%>
<table width="<%=system_fbl*0.8%>" border="0" cellpadding="0" cellspacing="0" bordercolor="#89ACF5" style="border-collapse: collapse" height="21" background="images/lanmu.jpg">
<tr>
<td height="8" align="left" bgcolor="#FFFFFF" width="40%">  共有记录<%=total%>条每页<%=system_rs_num%>条记录共<%=totalpage%>页</td>
<td height="8" align="right" bgcolor="#FFFFFF" width="60%">页次列示：
<%
if totalpage<=10 then
tmppage=1
do while tmppage<=totalpage
if tmppage=int(page) then
response.write " "&tmppage&""
else
response.write " <a href='displist.asp?class_id="&class_id&"&page="&tmppage&"' >"&tmppage&"</a>"
end if
tmppage=tmppage+1
loop
response.write "  "
end if
if totalpage>10 then
zfjtmppage1=(int(page/10)-1)*10+1
if zfjtmppage1<1 then
zfjtmppage1=1
end if
zfjtmppage2=(int(page/10)+1)*10+1
if int(zfjtmppage2/10)>int(totalpage/10) then
if int(totalpage/10)=totalpage/10 then
zfjtmppage2=totalpage
else
zfjtmppage2=int(totalpage/10)*10+1
end if
end if
if int(page/10)>0 then
response.write "<a href='displist.asp?class_id="&class_id&"&page=1' title='到第一页看看'>9</a>"
response.write "<a href='displist.asp?class_id="&class_id&"&page="&zfjtmppage1&"' title='到前面10页看看'>7</a>"
else
response.write "9"
response.write "7"

end if
if int(page/10)=page/10 then
tmppage=(int(page/10)-1)*10+1
do while tmppage<=int(page/10)*10
if tmppage=int(page) then
response.write " "&tmppage&" "
else
response.write "<a href='displist.asp?class_id="&class_id&"&page="&tmppage&"' title='到第"&tmppage&"页看看'> "&tmppage&"</a>"
end if
tmppage=tmppage+1
loop
end if
if int(page/10)<>page/10 then
tmppage=int(page/10)*10+1

if int(page/10)=int(totalpage/10) then
do while tmppage<=totalpage
if tmppage=int(page) then
response.write " "&tmppage&""
else
response.write "<a href='displist.asp?class_id="&class_id&"&page="&tmppage&"' title='到第"&tmppage&"页看看'> "&tmppage&"</a>"
end if
tmppage=tmppage+1
loop

end if
if int(page/10)<int(totalpage/10) then
do while tmppage<=(int(page/10)+1)*10
if tmppage=int(page) then
response.write " "&tmppage&""
else
response.write "<a href='displist.asp?class_id="&class_id&"&page="&tmppage&"' title='到第"&tmppage&"页看看'> "&tmppage&"</a>"
end if
tmppage=tmppage+1
loop
end if

end if
if int(page/10)=page/10 then
if int(page/10)>int(totalpage/10) then
response.write "8"
response.write ":  "
else
response.write "<a href='displist.asp?class_id="&class_id&"&page="&zfjtmppage2&"' title='到后面10页看看'>8</a>"
response.write "<a href='displist.asp?class_id="&class_id&"&page="&totalpage&"' title='到最后一页看看'>:</a>  "
end if
else
if int(page/10)>=int(totalpage/10) then
response.write "8"
response.write ":  "
else
response.write "<a href='displist.asp?class_id="&class_id&"&page="&zfjtmppage2&"' title='到后面10页看看'>8</a>"
response.write "<a href='displist.asp?class_id="&class_id&"&page="&totalpage&"' title='到最后一页看看'>:</a>  "
end if

end if
end if%>

　</td>
</tr>
</table>
<% end if%>