⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 resume_searchlist.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.asp" -->
<!--#include file="../checkvalid.asp" -->
<%
sUploadDir=UpFilesPath("Person")
If Not FRAdminLevel(302) Then
	Call ErrorMsg()
End If
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.ExpiresAbsolute = Now() - 1 
keyword=CheckStr(trim(request("keyword"))) 
segment=CheckStr(trim(request("segment")))
operate=trim(request("operate"))
group=trim(request("group"))
Dim Action
Dim FoundErr,ErrMsg
Dim page,i
Dim totalPut
const MaxPerpage=20
strFileName="resume_searchlist.asp?segment="&segment&"&keyword="&keyword&"&operate="&operate&"&group="&group&""
page=Trim(Request("page"))
If page<>"" And IsNumeric(page) Then
	If page<1 Or Len(page)>10 Then
		page=1
	Else
    	page=CLng(page)
	End If
Else
	page=1
End If
step=trim(request("step"))
resume_id=trim(request("id"))
usergroup=trim(request("usergroup"))
openness=trim(request("openness"))
if request("member")<>"" then
resume_id=request("member")
end if
if trim(request("step"))<>"" then
set rsw=conn.execute("select * from job_p_resume where resume_id in ("&resume_id&")")
do while not rsw.eof
	member=rsw("resume_pmember")
select case step
 case "del"
   conn.execute("delete from job_p_education where education_pmember='"&member&"'")
   conn.execute("delete from job_p_training where train_pmember='"&member&"'" )
   conn.execute("delete from job_p_lang where lang_pmember='"&member&"'")
   conn.execute("delete from job_p_work where work_pmember='"&member&"'")
   conn.execute("delete from job_p_resume where resume_pmember='"&member&"'")
 case "audit"
 	conn.execute("update job_p_resume set resume_flag=1 where resume_pmember='"&member&"'")
 case "unaudit"
	conn.execute("update job_p_resume set resume_flag=0 where resume_pmember='"&member&"'")
end select
rsw.movenext
loop
set rsw=nothing
	if step="active" then
	conn.execute("Update JOB_p_resume Set resume_cnstatus=0 Where resume_pmember='"&member&"'")
	conn.execute("Update JOB_p_resume Set resume_cnstatus=1 Where resume_id="&resume_id)
	end if
	response.redirect "resume_searchlist.asp?currentpage="&currentpage&"&keyword="&keyword&"&segment="&segment&"&usergroup="&usergroup&"&openness="&openness&""
	response.end
end if
%>
<html>
<head>
<title>简历列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=../css/style.css rel=stylesheet type="text/css">
<script language="javascript" src="../Inc/Admin.js"></script><style type="text/css">
<!--
.style11 {color: #0066CC;
	font-weight: bold;
}
-->
</style>
</head>

<body>

<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1"  class="tableBorder">
   <tr> 
	   <th  height=25 class="tableHeaderText">简历管理</th>
   </tr>
  <form action="resume_searchlist.asp" method="post">
    <tr >
      <td align="left"><font color="ff6600"><b class="style11"> 管理选项</b></font>:&nbsp;<a href="pmember_searchlist.asp" target="main">管理首页</a> | <a href="pmember_searchlist.asp" target="main">人才管理</a> | <a href="resume_searchlist.asp" target="main">简历管理</a> | <a href="Admin_AddTemp.asp?wid=1">添加模板</a> | <a href="Admin_Template.asp?wid=1">模板管理</a> | [<a href="javascript:location.reload()">刷新页面</a>]</td>
    </tr>
    <tr >
      <td align="left"><font color="ff6600"><b class="style11"> 二级选项</b></font>: <a href="?operate=0">待审简历</a> | <a href="?operate=1">已审简历</a> | <a href="?operate=2">未激活</a> |  <a href="?operate=3">已激活</a> | <a href="?operate=4">待审照片</a> | <a href="?operate=5">未公开简历</a> | <a href="?operate=6">普通人才</a> | <a href="?operate=7">毕业生</a> | <a href="?operate=8">高级人才</a></td>
    </tr>
    <tr > 
      <td align="left"> 
          &nbsp;&nbsp;&nbsp;&nbsp;关键字: 
          <input name="keyword" type="text" id="keyword" size="10">
          <select name="segment" size="1" id="segment">
            <option value="resume_name">姓名</option>
            <option value="resume_login">会员帐号</option>
          </select>
          <select name="usergroup" id="usergroup">
		    <option value="" selected>所有简历类型</option>
            <option value="0">普通</option>
            <option value="1">毕业生</option>
            <option value="2">高级人才</option>
          </select>
          <select name="openness" id="openness">
		    <option value="" selected>所有公开程度</option>
            <option value="0">对所有公开</option>
            <option value="1">对猎头公开</option>
            <option value="2">完全保密</option>
          </select>
          <input name="Submit" type="submit" class="inputs" value="搜索">      </td>
    </tr>
  </form>
</table>
<%Call main()
if FoundErr=True then
	call Show_Err()
end if
%>
<%sub main()
sql="select * from job_p_resume where"
keyword=CheckStr(trim(request("keyword"))) 
segment=CheckStr(trim(request("segment")))                               
if segment="resume_login" then
sql=sql&" resume_pmember like '%"& keyword &"%'"
else
sql=sql&" resume_name like '%"& keyword &"%'"
end if
usergroup=trim(request("usergroup"))
if usergroup<>"" then
sql=sql&" and resume_usergroup="&usergroup&""
end if
openness=trim(request("openness"))
if openness<>"" then
sql=sql&" and resume_openness="&openness&""
end if
if operate<>"" then
	select case operate
		case 0
			sql=sql&" and resume_flag=0"
		case 1
			sql=sql&" and resume_flag=1"
		case 2
			sql=sql&" and resume_cnstatus=0"
		case 3
			sql=sql&" and resume_cnstatus=1"
		case 5
			sql=sql&" and resume_openness=1"
		case 6
			sql=sql&" and resume_usergroup=0"
		case 7
			sql=sql&" and resume_usergroup=1"
		case 8
			sql=sql&" and resume_usergroup=2"
	end select	
end if
sql=sql&" order by resume_announcedate desc,resume_name desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>暂无简历,请添加后再进行管理!</li>"
	exit sub
else
	totalPut=rs.recordcount
	if (page-1)*MaxPerpage>totalput then
		if (totalPut mod MaxPerpage)=0 then
			page= totalPut \ MaxPerpage
		else
			page= totalPut \ MaxPerpage + 1
		end if
	end if
	if page=1 then
		Call MainInfo()
	else
		if (page-1)*MaxPerpage<totalPut then
			rs.move  (page-1)*MaxPerpage
			dim bookmark
			bookmark=rs.bookmark
			Call MainInfo()
		else
			page=1
			Call MainInfo()
		end if
	end if
end if
rs.close
set rs=nothing
end sub	
%>
<%Sub MainInfo()%> 
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
        <tr> 
    		<th  height=25 colspan="9" class="tableHeaderText">简历列表</th>
  		</tr>
<form name="form2" action="resume_searchlist.asp" method="post">	
		<tr > 
		  <td width="11%" align="center"><font color="ff6600"><b class="style1">简历类型</b></font></td>
          <td width="11%" align="center"><font color="ff6600"><b class="style1">公开程度</b></font></td>
          <td width="10%" align="center"><font color="ff6600"><b class="style1">姓名</b></font></td>
		  <td width="5%" align="center"><font color="ff6600"><b class="style1">性别</b></font></td>
          <td align="center"><font color="ff6600"><b class="style1">年龄</b></font></td>
          <td width="9%" align="center"><font color="ff6600"><b class="style1">激活状态</b></font></td>
          <td width="15%" align="center"><font color="ff6600"><b class="style1">会员帐号</b></font></td>
	      <td width="7%" align="center"><b class="style1">状态</b></td>
	      <td width="5%" align="center"><input name="checkSelect" type="checkbox" class="checkbox" onClick="javascript: checkAll(this)" value="checkbox"></td>
        </tr>
      	<%do while not rs.eof%>
        <tr > 
          <td align="center">
		  <%
		  select case rs("resume_usergroup")
		   case 0
		    usergroup1= "普通"
		   case 1
		    usergroup1= "毕业生"
		   case 2
		    usergroup1= "高级人才"
		  end select
		  response.Write "<a href='#' onclick=""window.open ('pmember_changeresumesort.asp?id="&rs("resume_id")&"','win_point','height=150,width=550,top=150,left=200,toolbar=no,menubar=no,scrollbars=no, resizable=no,location=no, status=no');""><strong><font color=red>"&usergroup1&"</font></strong></a>"
		  %>		  </td>
		  <td align="center">
		  <%
		  select case rs("resume_openness")
		   case 0
		    useropen= "对所有公开"
		   case 1
		    useropen= "对猎头公开"
		   case 2
		    useropen= "完全保密"
		  end select
		  response.Write "<a href='#' onclick=""window.open ('pmember_changeresumeopen.asp?id="&rs("resume_id")&"','win_point','height=150,width=550,top=150,left=200,toolbar=no,menubar=no,scrollbars=no, resizable=no,location=no, status=no');""><strong><font color=red>"&useropen&"</font></strong></a>"
		  %>		  </td>
		  <td align="center"><a href="cnresume.asp?rid=<%=rs("resume_id")%>" target="_blank"><%=rs("resume_name")%></a></td>
		  <td align="center">
          <%
			select case rs("resume_sex")
			 case 1 
			  response.write "男" 
			 case 2
			  response.write "女" 
			end select
		   %>          </td>
          <td width="5%" align="center"><%=year(date())-year(rs("resume_birth"))%></td>
          <td width="9%" align="center"><%if rs("resume_cnstatus")=0 then %><font color='#666666'><a href="#" onClick="window.location='resume_searchlist.asp?id=<%=rs("resume_id")%>&step=active&currentpage=<%=currentpage%>&keyword=<%=keyword%>&segment=<%=segment%>&usergroup=<%=usergroup%>&openness=<%=openness%>';"><font color='#666666'>未激活</font></a></font><%else%>已激活<%end if%></td>
		  <td width="15%" align="center"><%=rs("resume_pmember")%></td>
		  <td width="7%" align="center"><%
			if rs("resume_flag")=0 then	  
				response.write "<font color='#666666'>未审核</font>"
			else
				response.write "正常"
			end if
		  %>
		  </td>
		  <td width="5%" align="center"><input name="member" type="checkbox" class="checkbox" value="<%=rs("resume_id")%>"></td>
        </tr>
        <%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
		loop
  %>
	<input type="hidden" name="usergroup" value="<%=usergroup%>">
	<input type="hidden" name="openness" value="<%=openness%>">     
	<input type="hidden" name="keyword" value="<%=keyword%>"> 
	<input type="hidden" name="segment" value="<%=segment%>">
  <tr bgcolor="#FFFFFF" class="tabbgcolorli">
    <td colspan="9" align="right" aligh="right">
      <input name="button" type="button" class="inputs" onClick="confirmX(1);" value="简历审核">
      <input name="button" type="button" class="inputs" onClick="confirmX(2);" value="撤销审核">
	  <input name="button" type="button" class="inputs" onClick="confirmX(3);" value="删  除">
    </td>
  </tr>
  <tr bgcolor="#FFFFFF" class="tabbgcolorli">
    <td colspan="12" aligh="right"> <%If totalput>0 Then
	Call Showpage(strFileName,totalput,MaxPerPage,false,true,"份简历")
End If%></td>
  </tr></form>
</table>
<%end sub%>
<!--#include file="../inc/copy.asp" -->
</body>
</html>
<script language="javascript">
function confirmX(num)
{
	var ids = document.getElementsByName("member");
	var check=false;
	if (ids != null) {
		
		for (i=0; i<ids.length; i++) 
		{
			var obj = ids(i);
			if (obj.checked==true)
			{
				check=true;
				
			}
		}
		if(check==false){alert("请选择操作对象!");return false;}
	}
	if(num==1)
	{
		if(confirm("你确定要审核你所选择的简历吗?"))	
		{
			document.form2.action="resume_searchlist.asp?step=audit";
			document.form2.submit();		
		}
	}
	if(num==2)
	{
		if(confirm("你确定要撤销审核你所选择的简历吗?"))	
		{
			document.form2.action="resume_searchlist.asp?step=unaudit";
			document.form2.submit();		
		}
	}
	if(num==3)
	{
		if(confirm("警告:此操作将会删除该简历及于该简历相关的所有信息!\n是否继续操作?"))	
		{
			document.form2.action="resume_searchlist.asp?step=del";
			document.form2.submit();		
		}
	}
	return false;	
}
function checkAll(box1) {
    var ids = document.getElementsByName("member");
	if (ids != null) {
		for (i=0; i<ids.length; i++) {
			var obj = ids(i);
			obj.checked = box1.checked;
		}
	}
}
</script></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -