请帮忙加入分页代码
<div align="center">〈%
set rs=server.CreateObject("adodb.recordset")
sql="select id from scunews"
rs.open sql,cn,1,1
s=rs.recordcount
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select id from scunews where upup=1"
rs.open sql,cn,1,1
s1=rs.recordcount
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select id from scunews where downdown=1"
rs.open sql,cn,1,1
s2=rs.recordcount
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select id from scunews where jiajia=1"
rs.open sql,cn,1,1
s3=rs.recordcount
rs.close
set rs=nothing
%〉
<table width="61%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="bottom">
<td width="19%" height="20">总人数</td>
<td width="23%">上班签到人数</td>
<td width="29%">下班登记人数</td>
<td width="29%">请假外出人数</td>
</tr>
<tr align="center">
<td>〈%=s%〉</td>
<td>〈%=s1%〉</td>
<td>〈%=s2%〉</td>
<td>〈%=s3%〉</td>
</tr>
<tr align="center" valign="bottom">
<td height="188">百分比</td>
<td height="188"><div style="background-color:#98C9D6; width: 20px; height: 〈%=(s1/s)*30%〉px;"></div></td>
<td height="188"><div style="background-color:#98C9D6; width: 20px; height: 〈%=(s2/s)*30%〉px;"></div></td>
<td height="188"><div style="background-color:#98C9D6; width: 20px; height: 〈%=(s3/s)*30%〉px;"></div></td>
</tr>
</table>
<hr size="2px" color="#218FF3">
<table width="61%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="19%">账户</td>
<td width="23%">上班签到</td>
<td width="29%">下班登记</td>
<td width="29%">请假外出</td>
</tr>
<!需要在此开始分页->
〈%
set rs=cn.execute("select * from scunews")
do while not rs.eof
%〉
<tr align="center">
<td align="left"> 〈%=rs("username")%〉</td>
<td><div id="div1">
〈%if rs("upup")=0 then%〉
<a href="?act=upup&id=〈%=rs("id")%〉"><font color="#FF0000">未签到</font></a>
〈%else%〉
<a href="?key=upup&id=〈%=rs("id")%〉">已签到</a>
〈%end if%〉
</div></td>
<td>〈%if rs("downdown")=0 then%〉
<a href="?act=downdown&id=〈%=rs("id")%〉">未登记</a>
〈%else%〉
<a href="?key=downdown&id=〈%=rs("id")%〉"><font color="#FF0000">已登记</font></a>
〈%end if%〉</td>
<td><div id="div">
〈%if rs("jiajia")=0 then%〉
<a href="?act=jiajia&id=〈%=rs("id")%〉">未请假</a>
〈%else%〉
<a href="?key=jiajia&id=〈%=rs("id")%〉"><font color="#FF0000">已请假</font></a>
〈%end if%〉
</div></td>
</tr>
〈%
rs.movenext
loop
conn.close
%〉
</table>
〈%
id=request("id")
if request("act")<>"" then
set rs=cn.execute("update scunews set "&request("act")&"=1 where id="&id&"")
conn.close
response.Redirect("qiandao_look.asp")
end if
if request("key")<>"" then
set rs=cn.execute("update scunews set "&request("key")&"=0 where id="&id&"")
conn.close
response.Redirect("qiandao_look.asp")
end if
%〉
</div>
Question.rar