<%@ codepage ="936" %>
  <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="16"
	dir="../err.asp" 
  %>
 <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../rolecheck.asp"-->

<LINK href="../css/style.css" rel=stylesheet type=text/css> 
<SCRIPT language=javascript1.2 src="../css/iXs_Main.js"></SCRIPT>
<script>
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "解除全选"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "选择全部";}}
function isok()
{
var i=confirm("你确定要删除吗?");
if(i)
{
return true;
 }
 else
{
return false;
}
}
</script>
<title>招聘信息管理</title>
<%
if not isempty(request("selAnnounce")) then
Info_IDlist=request("selAnnounce")
if instr(info_idlist,",")>0 then
dim info_idarr
Info_IDArr=split(info_idlist)
dim log_Info_ID
for i = 0 to ubound(info_idarr)
log_Info_ID=clng(info_idarr(i))
call deleteannounce(log_Info_ID)
next
else
call deleteannounce(clng(info_idlist))
end if
end if
keywords=replace_text(request("keywords"))

set rs=server.createobject("adodb.recordset") 
sql="select * from Websen_work"
if keywords<>"" then sql=sql&" where showname like '%"&keywords&"%'"

sql=sql&" order by info_id desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 

msg_per_page=20 '定义每页显示记录条数
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder"> 
  <tr> 
     <th height=25 colspan="2" class="tableHeaderText">企业招聘信息管理 </th> 
  </tr> 
    <tr> 
     <td height=25 colspan="2"  ><font color="#666666">温馨提示：个人求职登录框标签、人才展示标签、职业类别标签、人才招聘搜索框标签的相关调用请在【<a href="../labelwrite.asp"  target="_blank">自定义标签辅助工具</a>】中获取</font> </td> 
  </tr> 
   <tr> 
     <td width="10%" height=25 class="forumRowHighlight"> <B>操作选项</B></td> 
         <FORM name=searchForm action="work.asp" method=post onsubmit="javascript:if(doSearch()==false) return false;"><td class="forumRowHighlight">
       招聘信息关键字：<input name="keywords" type="text" value="<%=keywords%>">

       <input type="submit" value="立刻查找" id=submit name=submit>
         </td></form>
  </tr> 
</table>
<SCRIPT LANGUAGE='JavaScript' SRC='/js/search.js' TYPE='text/javascript'></script>
<!--#include file="../../inc/headpage.asp"-->
<table winfo_idth="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <tr>
    <td colspan="6" align="left"><a href="jobkind.asp"><font color="#0066CC"><b>职业类别管理</b></font></a>&nbsp;&nbsp;<a href="getjobp.asp" ><font color="#0066CC"><b>求职者信息管理</b></font></a>&nbsp;&nbsp;<a href="getjobdes.asp" ><font color="#0066CC"><b>求职注册协议管理</b></font></a> </td>
  </tr>
  <form name="search" method="POST" action="Work.asp"  onsubmit="return isok()">
    <tr>
      <td  bgcolor="#7EC1FE" height=2 colspan="6"></td>
    </tr>
    <tr>
      <td colspan="6"><%
if rs.eof then
response.Write"<br><br><div align='center'>暂无数据信息</div><br><br>"
else
%>
      </td>
    </tr>
    <tr height=25 class=bodytitle>
      <td width="29%" align="left" class=bodytitle winfo_idth="446"><font color="ff6600"><b>信息标题</b></font></td>
      <td width="13%" align="left" class=bodytitle winfo_idth="446"><font color="ff6600"><b>职业类别</b></font></td>
      <td width="22%" align="center" class=bodytitle winfo_idth="263"><font color="ff6600"><b>发布公司</b></font></td>
      <td width="21%" align="center" class=bodytitle winfo_idth="113"><font color="ff6600"><b>发布日期</b></font></td>
      <td width="6%" align="center" class=bodytitle winfo_idth="62"><font color="ff6600"><b>修改</b></font></td>
      <td width="9%" align="center" class=bodytitle winfo_idth="57"><input name="submit2" type='submit' value='删除' /></td>
    </tr>
    <%
do while not rs.eof and rowcount > 0%>
    <tr height="20">
      <td align="left" class=forumRow><a href="workedit.asp?Info_ID=<%=rs("Info_ID")%>"><%=replace(rs("showname"),keywords,"<font color=red>"&keywords&"</font>")%></a> &nbsp;<%
	  if rs("tj")=1  then 
response.Write("(<font color=red>已推荐</font>)")
	  end if 
	  
	  %></td>
      <td class=forumRow ><%
	  set rsz=server.CreateObject("adodb.recordset")
	  sqlz="select * from Websen_jobkind where id="&rs("jobkind")
	  rsz.open sqlz,conn,1,1
	  if not rsz.eof then 
	  response.Write("<b><font color=#999999>"&rsz("kindname")&"</font></b>")
	  rsz.close
	  
	  end if
	  
	  
	  %></td>
      <td class=forumRow align="center"><%
set rs5=server.CreateObject("adodb.recordset")
sql5="select id,qymc from Websen_corporation where id="&rs("gsid")
rs5.open sql5,conn,1,1
 if not rs5.eof then
 if trim(rs5("qymc")&"ok")<>"ok" then
	response.write"<a href='../vipgrade/edit.asp?id="&rs5("id")&"'>"&rs5("qymc")&"</a>"
	else
	response.Write("无名称或不详")
 end if
else
	Response.write "该会员已不存在"
end if

%></td>
      <td winfo_idth="113" align="center" class=forumRow><%=FormatDate(rs("dateandtime"),2)%>　</td>
      <td align="center" class=forumRow><a href="workedit.asp?Info_ID=<%=rs("Info_ID")%>">修改</a>&nbsp;
	  <%if rs("shenhe")=1 then %>
	  <a href="jobcheck.asp?action=0&jobid=<%=rs("Info_ID")%>"><font color="red">已审核</font></a>
	  <%else%>
    	  <a href="jobcheck.asp?action=1&jobid=<%=rs("Info_ID")%>">未审核</a>

	  <%end if%>
	  </td>
      <td winfo_idth="57" align="center" class=forumRow><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("Info_ID"))%>' /></td>
    </tr>
    <%
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rs.movenext
loop
end if
%>
    <tr height="20" bgcolor="#ffffff">
      <td colspan="6" align="left" class=forumRow><div align="right">
        <input name="button" type=button onclick="this.value=check(this.form)" value=" 全部选定 " />
      </div></td>
    </tr>
    <tr height="20" bgcolor="#ffffff">
      <td class=forumrowHighLight align="center" colspan="6"><b><%=listPages("work.asp?typeid="&typeid&"&keywords="&keywords&"")%></b></td>
    </tr>
  </form>
</table>
<%
sub deleteannounce(info_id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from [Websen_work] where info_id="&cstr(info_id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>
<!--#include file="../copy.asp" -->