日期:2014-05-16  浏览次数:20964 次

ASP做的网站,有好几万条数据,数据没有分页,这样的显示结果会怎样
如题,我做的小网站,有好几万条数据,用的是ACCESS和ASP,目前没有做分页处理,那么也就是将会把好几万条数据显示在一个页面里,这样的显示结果会怎么样,分页怎么分呢

------解决方案--------------------

<%response.Charset = "gb2312"%>
<!--#include file="Conn.asp"-->
<%
sub echo(str)
response.write str
response.flush
end sub
%>

<%
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from Sorttwo"
rs.open sql,Conn,1,1
rs.pagesize = 5
CurPage = request("CurPage")
if CurPage = "" then CurPage = 1
rs.absolutepage = CurPage

for i = 1 to rs.pagesize
echo rs("Sorttwo_Name") & "<br>"
 if not rs.eof then rs.movenext 
 if rs.eof then exit for
next
%>
<a href="?curpage=<%=rs.pagecount/rs.pagecount%>">首页</a>
<%
if CurPage = 1 then
echo "上一页"
else
echo "<a href='?curpage="&CurPage-1&" '>上一页  </a> "
end if

if rs.pagecount<CurPage+1 then
echo "下一页"
else
echo "<a href='?curpage="&CurPage+1&" '>下一页 </a>"
end if

echo "共"&rs.pagecount&"页 "
echo "当前第"&CurPage&"页"
%>
<a href="?curpage=<%=rs.pagecount%>">尾页</a>
<%
echo "<select onchange='javascript:location.href=/test.asp?hello= '>"
for i =1 to rs.pagecount
echo "<option><a href=' ?curpage="&i&" '>第"&i&"页</a></option>"
next
echo "</select>"
%>

------解决方案--------------------
<%
Set rsglwj = Server.CreateObject("ADODB.Recordset")
rsglwj.open "Select * from [yonghuwj] where name='"&session("name")&"'",conn,1,3 '[yonghuwj]为数据库表名,where后面为查询条件
epage=cint(request("page"))
if epage="" then epage=1
if epage<=0 then epage=1
if epage>rsglwj.pagecount then epage=rsglwj.pagecount
if not rsglwj.eof then '当有数据时开始分页
rsglwj.pagesize=20    '每页记录数
rsglwj.absolutepage=epage
for i=1 to rsglwj.PageSize '数据循环开始
%>
<%=rsglwj("wjlx")%>   <!----------查询出来的字段内容--------------->
<%
rsglwj.movenext
if rsglwj.eof then exit for
next             '结束循环
else          '当没有查询到数据时
%>
没有查到数据
<%
end if
%>

<%if epage<=1 then%>
首页&nbsp;前一页&nbsp;
<%else%>
<a href="?step=glwj&page=1">首页</a>&nbsp;
<a href="?step=glwj&page=<%=epage-1%>">前一页</a>&nbsp;
<%end if%>
<%if epage>=rsglwj.pagecount then%>
后一页&nbsp;末页&nbsp;
<%else%>
<a href="?step=glwj&page=<%=epage+1%>">后一页</a>&nbsp;
<a href="?step=glwj&page=<%=rsglwj.pagecount%>">末页</a>&nbsp;
<%end if%>
<select style="border: