Question

asp 分页显示代码？

<!--#include file="Conn.asp"-->
<table width="750" border="0" align="center" cellspacing="1" cellpadding=0 bgcolor="#000000">
<caption><b>学生信息表</b></caption>
<tr bgcolor="#FFFFFF">
<td align="center">序号</td>
<td align="center">学号</td>
<td align="center">姓名</td>
<td align="center">性别</td>
<td align="center">年级</td>
<td align="center">专业</td>
<td align="center" width=150>学生信息管理</td>
</tr>

<%
dim rs,rssql,i
i=1
rssql="select * from Student_Info"
Set rs=server.createobject("adodb.recordset")
rs.open rssql,Conn,1,1
do while not rs.eof
%>
<tr>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("ID")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("StudentID")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("StudentName")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("Gender")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("Grade")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("Major")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><a href="getupdate.asp?ID=<%=rs("ID")%>">更新</a><a href="Delete.asp?ID=<%=rs("ID")%>" onClick="return confirm('您确定要删除此项目吗?')">删除</a>

</td>

</tr>

<%i=i+1
rs.movenext
loop
rs.close:set rs=nothing
%>

</table>

Answer 1

以下是你需要的完整代码，pagesize=30是指每页30个信息，你可以自己修改
<!--#include file="Conn.asp"-->
<table width="750" border="0" align="center" cellspacing="1" cellpadding=0 bgcolor="#000000">
<caption><b>学生信息表</b></caption>
<tr bgcolor="#FFFFFF">
<td align="center">序号</td>
<td align="center">学号</td>
<td align="center">姓名</td>
<td align="center">性别</td>
<td align="center">年级</td>
<td align="center">专业</td>
<td align="center" width=150>学生信息管理</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Student_Info"
rs.open sql,conn,1,1
i=0
if request("page")="" then
page=1
else
page=cint(request("page"))
end if
if rs.eof then
response.write "<td align=center colspan=7>暂时没有信息</td>"
response.end
end if
Total_news=rs.recordcount
rs.pagesize=30
if page>rs.pagecount then
page=rs.pagecount
end if
rs.absolutepage=page
pagetotal=rs.pagecount
do while not rs.eof and i<30
i=i+1
%>
<tr>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("ID")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("StudentID")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("StudentName")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("Gender")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("Grade")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><%=rs("Major")%></td>
<td bgcolor="#FFFFFF" width=150 align="center"><a href="getupdate.asp?ID=<%=rs("ID")%>">更新</a><a href="Delete.asp?ID=<%=rs("ID")%>" onClick="return confirm('您确定要删除此项目吗?')">删除</a>

</td>

</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="form111" method="post" action="?">
<td height="25" align="center"><font color="#0066CC"> <%
if Page > 1 Then%>
<a href="?page=1&keyword=<%=request("keyword")%>">首页 </a>| <a href="?page=<%=Page-1%>&keyword=<%=request("keyword")%>">上一页 </a>|
<%else%>
<font class=gray>首页 | 上一页 |</font>
<%end if%>
<%if Page<>pagetotal then%>
<font color="#999999"><a href="?page=<%=Page+1%>&keyword=<%=request("keyword")%>">下一页</a> | </font><font color="#999999"><a href="?page=<%=pagetotal%>&keyword=<%=request("keyword")%>">末页</a> |</font>
<%else%>
<font class=gray>后一页 | 末页</font>
<%end if%>
<%response.Write("共"&Total_news&"条记录 页次: "&Page&"/")%>
<%response.Write(""&pagetotal&"")%>
转到：

<input name="page" type="text" id="page" style="width:20px" value="<%=page%>">
<input class="submit" type="submit" name="Submit" value="GO..">
</td>
</form>
</tr>
</table>