请帮做下分页
<html><head><title>测试</title>
<meta name="keywords" content="测试">
<meta name="description" content="测试">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../inc/style.css" rel="stylesheet" type="text/css">
<link href="../inc/StyleCommon.css" rel="stylesheet" type="text/css">
<link href="../inc/StyleCompany.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {font-size: 14px}
-->
</style>
<BODY topMargin=0>
<!--#include file="../transfer/head.inc" -->
<!--#include file="../inc/Conn.asp" -->
<!--#include file="../inc/md5.asp" -->
<%
Com_uid=request.Cookies("Com_uid")
Com_ID=request.Cookies("Com_ID")
Com_pwd=request.Cookies("Com_password")'已经MD5加密
if Com_uid="" then Com_uid="ice"
if Com_ID="" or isNumeric(Com_ID)=false then Com_ID=0
sql="select * from Hr_company where Com_uid='" & Com_uid & "' and Com_ID="&Com_ID&" and Com_pwd='"&Com_pwd&"'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,Conn,2,3
if rs.bof then
%> <script language =javascript>
alert("未登陆,请先登录!")
this.location.href = "login.asp"
</script>
<% rs.close
end if
rs.close
%><center>
<table width="778" border="0" cellpadding="0" cellspacing="0">
<tr><td width="125px" valign="top"><!--#include file="left.asp" --></td>
<td width="5" > </td>
<td valign="top"><div class="company_right"><div class="company_right_element"><table width="600" border="1" align="center" cellpadding="3" cellspacing=0 bordercolor="#4284CC" id=table6 style="border-collapse:collapse;">
<tbody>
<%
sql="select * from HR_jzjobs where jz_Com_ID='"&Com_ID&"' order by Jz_id desc"
rs.Open sql,Conn,1,1
%>
<tr class=title>
<td colspan=6 bgcolor=#4284CC><span class="STYLE3">兼职招聘信息维护</span></td>
</tr>
<tr >
<TD width="10%" height="25" align=middle><div align="center"><strong>工作编号</strong></div></TD>
<TD align=middle ><div align="center"><strong>具体工作</strong></div></TD>
<TD align=middle ><div align="center"><strong>性别</strong></div></TD>
<TD align=middle><div align="center"><strong>预约数/所需数</strong></div></TD>
<td align=middle width="20%"><strong>维护操作</td>
</tr>
<%
if rs.eof=true then
%>
<%
else
do while rs.eof=false
%>
<tr class=tr1>
<TD width="10%" height="25" align=middle><%=rs("Jz_ID")%></TD>
<TD width="28%" height="25" align=middle>
<a href="../jzjob/job_detailview.asp?jz_ID=<%=rs("Jz_ID")%>"><%=rs("Jz_company")%><%=rs("Jz_jobname")%><%=rs("Jz_daiyu")%></a></TD>
<TD width="6%" height="25" align=middle><%=rs("Jz_xingbie")%></TD>
<%
'******取得预约人数
sql="select count(*) from Hr_jzResumeBox where res_jz_ID="&rs("jz_id")
OrderNumber=Conn.Execute(sql)
%>
<%
if OrderNumber(0)>cint(rs("jz_number")) then %>
<TD width="8%" height="25" align=middle><font color="#FF0000"><strong>已预满</strong></font></TD>
<%else%>
<TD width="8%" height="25" align=middle><%=OrderNumber(0)%>/<%=rs("Jz_number")%></TD>
<% end if %>
<td align=middle width="20%">
<a href="jztalinfo.asp?jz_ID=<%=rs("Jz_ID")%>" target=_blank>名 单</a>|
<a href="edit_jzjobdetail.asp?ID=<%=rs("Jz_ID")%>">修 改</a>|
<a LANGUAGE=javascript onClick="return confirm('确定要删除?');" href="execut_jzjob.asp?del=<%=rs("Jz_ID")%>">删 除</a>
</td>
</tr>
<%
rs.movenext
loop
end if
%>
</tbody>
</table></div></div>
</table>
<%
rs.close
CloseDatabase()%><!--#include file="../transfer/foot.inc" -->