ASP作的网站，有好几万条数据，数据没有分页，这样的显示结果会怎样

2013-04-02

ASP做的网站，有好几万条数据，数据没有分页，这样的显示结果会怎样如题，我做的小网站，有好几万条数据，用的是

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%>
首页 前一页 
<%else%>
<a href="?step=glwj&page=1">首页</a> 
<a href="?step=glwj&page=<%=epage-1%>">前一页</a> 
<%end if%>
<%if epage>=rsglwj.pagecount then%>
后一页 末页 
<%else%>
<a href="?step=glwj&page=<%=epage+1%>">后一页</a> 
<a href="?step=glwj&page=<%=rsglwj.pagecount%>">末页</a> 
<%end if%>
<select style="border: 1px solid #999999;" name="jumpMenu" id="jumpMenu" onChange="MM_jumpMenu('parent',this,0)">

    <option value="">选页</option>
<% for t=1 to rsglwj.pagecount%>
    <option value="?step=glwj&page=<%=t%>"><%=t%></option>
<%next%>

  </select>
每页<%=rsglwj.pagesize%>条记录 现在是第<%=epage%>页 共有<%=rsglwj.pagecount%>页

热点排行