<% @language=vbscript %>
<html>
<head>
<title>分页显示</title></head>
<body>
<%
dim con, rs, pages, cur_recordcounts, sql
pages=clng(request.querystring("pages"))
set con=server.createobject("ADODB.connection")
Con.open "driver={sql server};Server=(local);UID=sa;PWD=123;Database=xsdb"
set rs=server.createobject("ADODB.recordset")
rs.pagesize=4
rs.cursortype=3
sql="select * from cj where class='0011'"
rs.open sql, con
if not rs.eof and not rs.bof then
if pages=0 then
pages=1
else
rs.move (pages-1)*rs.pagesize
end if
if pages<rs.pagecount then
cur_recordcounts=rs.pagesize
else
cur_recordcounts=rs.recordcount-(pages-1)*rs.pagesize
end if
end if
%>
<table width=100% border=0>
<tr><td width=100% height=2 align=center colspan=5>共查到<%=rs.recordcount%>条记录，<br>
共分<%=rs.pagecount%>页显示，当前页为第<%=pages%>页
<hr color=#008000 size=1>
</td>
</tr>
<tr><td width=100% height=58 valign=top>
<table width=100% border=0 bgcolor=#efffee height=111>
<tr><td width=30% align=center><b>姓名</b></td>
<td width=20% align=center><b>学号</b></td>
<td width=20% align=center><b>班级</b></td>
<td width=10% align=center><b>数学</b></td>
<td width=10% align=center><b>英语</b></td>
<td width=10% align=center><b>总分</b></td>
</tr>
<% for i=1 to cur_recordcounts%>
<tr><td width=30% align=left><%=rs.fields("name")%></td>
<td width=20% align=left><%=rs.fields("number")%></td>
<td width=20% align=left><%=rs.fields("class")%></td>
<td width=10% align=center><%=rs.fields("math")%></td>
<td width=10% align=center><%=rs.fields("english")%></td>
<td width=10% align=center><%=rs.fields("total")%></td>
</tr>
<%rs.movenext
next%>
<tr><td colspan=5 valign=top align=left>
<% if pages>1 then
response.write "<a href=index.asp?ppages="& pages-1 & ">前一页</a>"
else
response.write "前一页"
end if
for i=1 to rs.pagecount
if i=pages then
response.write " " & i
else
response.write " " & "<a href=index.asp?pages="& i &">" & i & "</a>"
end if
next
if pages<rs.pagecount then
response.write " " & "<a href=index.asp?pages="& pages+1 &">下一页</a>"
else
response.write " " & "下一页"
end if
%>
</td></tr>
</table></td></tr></table>
<% rs.close
con.close
set con=nothing
%>
</body>
</html>
<html>
<head>
<title>分页显示</title></head>
<body>
<%
dim con, rs, pages, cur_recordcounts, sql
pages=clng(request.querystring("pages"))
set con=server.createobject("ADODB.connection")
Con.open "driver={sql server};Server=(local);UID=sa;PWD=123;Database=xsdb"
set rs=server.createobject("ADODB.recordset")
rs.pagesize=4
rs.cursortype=3
sql="select * from cj where class='0011'"
rs.open sql, con
if not rs.eof and not rs.bof then
if pages=0 then
pages=1
else
rs.move (pages-1)*rs.pagesize
end if
if pages<rs.pagecount then
cur_recordcounts=rs.pagesize
else
cur_recordcounts=rs.recordcount-(pages-1)*rs.pagesize
end if
end if
%>
<table width=100% border=0>
<tr><td width=100% height=2 align=center colspan=5>共查到<%=rs.recordcount%>条记录，<br>
共分<%=rs.pagecount%>页显示，当前页为第<%=pages%>页
<hr color=#008000 size=1>
</td>
</tr>
<tr><td width=100% height=58 valign=top>
<table width=100% border=0 bgcolor=#efffee height=111>
<tr><td width=30% align=center><b>姓名</b></td>
<td width=20% align=center><b>学号</b></td>
<td width=20% align=center><b>班级</b></td>
<td width=10% align=center><b>数学</b></td>
<td width=10% align=center><b>英语</b></td>
<td width=10% align=center><b>总分</b></td>
</tr>
<% for i=1 to cur_recordcounts%>
<tr><td width=30% align=left><%=rs.fields("name")%></td>
<td width=20% align=left><%=rs.fields("number")%></td>
<td width=20% align=left><%=rs.fields("class")%></td>
<td width=10% align=center><%=rs.fields("math")%></td>
<td width=10% align=center><%=rs.fields("english")%></td>
<td width=10% align=center><%=rs.fields("total")%></td>
</tr>
<%rs.movenext
next%>
<tr><td colspan=5 valign=top align=left>
<% if pages>1 then
response.write "<a href=index.asp?ppages="& pages-1 & ">前一页</a>"
else
response.write "前一页"
end if
for i=1 to rs.pagecount
if i=pages then
response.write " " & i
else
response.write " " & "<a href=index.asp?pages="& i &">" & i & "</a>"
end if
next
if pages<rs.pagecount then
response.write " " & "<a href=index.asp?pages="& pages+1 &">下一页</a>"
else
response.write " " & "下一页"
end if
%>
</td></tr>
</table></td></tr></table>
<% rs.close
con.close
set con=nothing
%>
</body>
</html>
