zizhong.wang
/
xuanjuAsp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127
							<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>管理员登陆</title>
<link rel="stylesheet" type="text/css" href="../bdcommx/css.css">
</head>
<!--#include file="../bdcommx/connxyz.asp"-->
<%call log_chk()
call passChk()%>
<body>
<table width="100%" height="42" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="4%" height="42" align="center" background="../images/top_bg2.jpg"><img src="../images/dian.gif" width="10" height="10" /></td>
        <td width="96%" background="../images/top_bg2.jpg" class="hui12">后台管理：&gt;&gt; 招聘管理</td>
      </tr>
</table>
      <br />
      <table width="94%" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr">
        <tr>
          <td align="center" class="tb_bg" colspan="5">招 聘 管 理</td>
        </tr>
        <tr>
          <td height="26" align="center" class="NcB_bg">职位名称</td>
          <td width="120" align="center" class="NcB_bg">发布时间</td>
          <td width="120" align="center" class="NcB_bg">查看简历</td>
          <td width="120" align="center" class="NcB_bg">操作</td>
          <td width="60" align="center" class="NcB_bg">状态</td>
        </tr><%
dim theact
theact=request("theact")
dim CurrentPage  '当前页
dim TotalPages   '总页数
MaxPerPage=20
Set rs1= Server.CreateObject ("ADODB.RecordSet")
sql="select * from adzp order by zp_odr asc"
rs1.open sql,conn,1,3
if rs1.eof then
response.Write("")
else
rs1.pagesize=MaxPerPage
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs1.PageCount then
CurrentPage = rs1.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=rs1.recordcount 'totalput=总记录数
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage < totalPut then
rs1.move(currentPage-1)*MaxPerPage
end if
end if
do while not rs1.eof and c<20
Set rs2= Server.CreateObject ("ADODB.RecordSet")
sql="select * from adyp where zp_id="&rs1("zp_id")&""
rs2.open sql,conn,1,3
if rs2.eof then
thenum=0
else
thenum=rs2.recordcount
end if
rs2.close
set rs2=nothing
%>
<form id="form1" name="form1" method="post" action="ZPaddsave.asp">
        <tr>
          <td height="26" align="left" class="NcB_bg">　<%=left(rs1("zp_zw"),12)%>[<font color="#FF0000"><%=rs1("zp_odr")%></font>]</td>
          <td height="26" align="center" class="NcB_bg"> <%=formatdatetime(rs1("zp_time"),2)%></td>
          <td height="26" align="center" class="NcB_bg Fnt_red"><a href="YPmag.asp?thex=<%=rs1("zp_id")%>">查看</a>[共 <%=thenum%> 份]</td>
          <td height="26" align="center" class="NcB_bg"><a href="ZPsee.asp?thex=<%=rs1("zp_id")%>">修改</a>  <a href="ZPdel.asp?thex=<%=rs1("zp_id")%>">删除</a> <%if rs1("zp_sta")=0 then%><a href="ZPstop.asp?thex=<%=rs1("zp_id")%>&act=thes">开启</a><%end if%><%if rs1("zp_sta")=1 then%><a href="ZPstop.asp?thex=<%=rs1("zp_id")%>&act=thek">暂停</a><%end if%></td>
          <td height="26" align="center" class="NcB_bg Fnt_red"><%if rs1("zp_sta")=0 then%>已暂停<%end if%><%if rs1("zp_sta")=1 then%>已开启<%end if%></td>
    </tr></form>
<%
c=c+1
rs1.movenext 
loop 
rs1.close 
set rs1=nothing 
%>
</table>
      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
        <form id="form1" name="form1" method="post" action="">
          <tr>
            <td height="50" align="center"><%
'------------------------------------------------------页面跳转
dim n,k
if (totalPut mod MaxPerPage)=0 then  'n表示总页数
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
k=currentPage
k=currentPage
if k<>1 then
response.write "["+"<a href=?page=1>第一页</a></b>] "
response.write "["+"<a href=?page="+cstr(k-1)+">上一页</a>] "
else
Response.Write "[第一页] [上一页]"
end if
if k<>n then
response.write "["+"<a href=?page="+cstr(k+1)+">下一页</a>] "
response.write "["+"<a href=?page="+cstr(n)+">最后一页</a>] "
else
Response.Write "[下一页] [最后一页]"
end if
'------------------------------------------------------页面跳转msmsms有点小毛病！就是转页没有连带搜索和类别
response.Write("<font color='red'> | </font>共"&n&"页 / "&totalPut&"条信息 / ")
response.Write("当前第"&k&"页")
response.Write(" <select name='page'>")
for myi=1 to n
response.Write("<option value='"&myi&"'>"&myi&"</option>")
next
response.Write("</select>")
response.Write("<input type=submit name=Submit3 value=Go→ />")
end if%>
            </td>
          </tr>
        </form>
      </table>
</body>
</html>