<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from message"
rs.open sql,conn,1,3
page=request.QueryString("page")
everypage=3
rs.pagesize=everypage
if rs.bof and rs.eof then
response.Write("没有数据")
else
page_count=rs.pagecount
rs.AbsolutePage=page
do while not rs.eof and j<rs.pagesize
response.Write(rs("username")&"<br>")
j=j+1
rs.movenext
loop
end if
%>
<%
'response.Write(page_count)
for i=1 to page_count
%>
<a href="a.asp?page=<%=i%>"><%=i%></a>
<% next %>
set rs=server.CreateObject("adodb.recordset")
sql="select * from message"
rs.open sql,conn,1,3
page=request.QueryString("page")
everypage=3
rs.pagesize=everypage
if rs.bof and rs.eof then
response.Write("没有数据")
else
page_count=rs.pagecount
rs.AbsolutePage=page
do while not rs.eof and j<rs.pagesize
response.Write(rs("username")&"<br>")
j=j+1
rs.movenext
loop
end if
%>
<%
'response.Write(page_count)
for i=1 to page_count
%>
<a href="a.asp?page=<%=i%>"><%=i%></a>
<% next %>