请帮做下分页 - ASP技术论坛

问题点数：0 回复次数：0

请帮做下分页

<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">

</style>
<BODY topMargin=0>



<%
        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"></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()%>

搜索更多相关主题的帖子: 分页　