<% set rs=server.createobject("adodb.recordset")
rs.open sqlstr,conn,1
if not rs.eof then
rs.pagesize=2
response.write(rs.absolutepage)
if not isempty(request.querystring("topage")) then
topage=cint(request("topage"))
if topage>rs.pagecount then
rs.absolutepage=rs.pagecount
else
if topage<=0 then
rs.absolutepage=1
else
rs.absolutepage=topage
end if
end if
else
'这里明明赋了值，可是rs.absolutepage还是-1
rs.absolutepage=1
response.write(rs.absolutepage)
end if
current_page=rs.absolutepage
%>
<div align="center">
共找到<font color=red><%=rs.recordcount%></font>条记录,目前的分页状况为<font color=red><%=current_page+0%>/<%=rs.pagecount%></font>页</div>
<% display_page rs,current_page
sub display_page(rs,page)
rs.absolutepage=page
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<table border=1 align="center" width="600">
<tr bgcolor="#ffffcc">
<td>登录号</td>
<td>姓名</td>
<td>主队列</td>
<td>周数</td>
<td>本周话量</td>
<td>通话小时</td>
<td>通话分钟</td>
<td>测听成绩</td>
<td>本周进步</td>
</tr>
<tr>
<td><%=rs("name")%></td>
<td><%=rs("cnumber")%></td>
<td><%=rs("alignment")%></td>
<td><%=rs("weeknum")%></td>
<td><%=rs("voicamount")%></td>
<td><%=rs("voichour")%></td>
<td><%=rs("voicminute")%></td>
<td><%=rs("grade")%></td>
<td><%=rs("advancement")%></td>
</tr>
<tr>
<td colspan="2" bgcolor="#ffffcc">本周技术及单据</td>
<td colspan="6"> <%=rs("technicdoc")%></td>
<td rowspan="4" bgcolor="#ffffcc" align="center"><a href="mondify.asp?id=<%=rs("id")%>">修改</a><br><br>删除</td>
</tr>
<tr>
<td colspan="2" bgcolor="#ffffcc">本周考勤情况</td>
<td colspan="6"> <%=rs("workattend")%></td>
</tr>
<tr>
<td colspan="2" bgcolor="#ffffcc">测听评价</td>
<td colspan="6"> <%=rs("appraise")%></td>
</tr>
<tr>
<td colspan="2" bgcolor="#ffffcc">其它特殊纪录</td>
<td colspan="6"> <%=rs("other")%></td>
</tr>
</table><br>
<%
rs.movenext
next
end sub
%>
<table align="center" height="15">
<tr>
<% if current_page>1 then %>
<td valign="top" width="80" height="15"> <a href=query.asp?topage=<%=1%>>第一页</a>
</td>
<td valign="top" width="80" height="15"> <a href=query.asp?topage=<%=current_page-1%>>上一页</a>
</td>
<% end if
if current_page<rs.pagecount then
%>
<td valign="top" width="80" height="15"> <a href=query.asp?topage=<%=current_page+1%>>下一页</a>
</td>
<td valign="top" width="80" height="15"> <a href=query.asp?topage=<%=rs.pagecount%>>最后一页</a>
</td>
<% end if
%>
<% if rs.recordcount>rs.pagesize then
%>
<td valign="top" width="80" height="15">
<form name="form1" method="POST" action="query.asp">
到第<input type="text" name="topage" size="3" maxlength="3" style="height:15px;width:20px" value="<%=currentpage%>">页
</form>
<% end if
%>
</td>
</tr>
</table>
<%
else
response.write("<p align='center'>没有合适的记录</p>")
end if
set rs=nothing
end if
%>
</body>
</html>
