怎么什么都显示不出来呢
<!--#include file="conn1.asp"--><%
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from student"
rs.open sql,conn,1,1
'返回当前所在的页数
if request("page")="" then
page=1
else if request("page")<1 then
page=1
else
page=request("page")
end if
'设置每页显示的记录数
rs.PageSize=2
rs.AbsolutePage=page
if rs.Recordcount=0 then
Response.Write "没有记录"
else
%>
<%
if rs.rof then
Response.Write"没有相关记录"
else
for ipage=1 to rs.PageSize
%>
<table cellpadding="2" cellspacing="2" border="2">
<tr>
<td height="23"><%=rs("sno")%></td>
<td><%=rs("snme")%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</table>
<br>
共有<%=rs.recordcount%>条记录
当前是第<%=page%>页/共有<%=rs.pagecount%>条记录
<a href="Addnewpage.asp?page=1">第一页</a>
<%end if%>
<% if page<>1 then %>
<a href="Addnewpage.asp?page=<%=(page-1)%>">上一页</a>
<% end if %>
<% if page<>rs.pagecount then %>
<a href="Addnewpage.asp?page=<%=(page+1)%>">下一页</a>
<% end if %>
<a href="Addnewpage.asp?page=<%=rs.pagecount%>">尾页</a>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
数据库表
