📄 company_myexpert.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%link="company_myexpert.asp"%>
<!--#include file="checkcmember.asp" -->
<%
Dim page,i
Dim totalPut
const MaxPerpage=10
Const strFileName="company_myexpert.asp"
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
 if trim(request("action"))<>"" then
  action=trim(request("action"))
  checks=trim(request("checks"))
  myexpert=split(checks,",")
  select case action
   case "delete"
    for i=0 to ubound(myexpert)
     id=trim(myexpert(i))
	 conn.execute("delete from job_c_myexpert where myexpert_id="&id)
	next
  end select
  response.redirect "company_myexpert.asp?page="&page&""
  response.end
 end if%>
<!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>企业人才库-企业招聘管理中心-<%=SiteTitle%></title>
<link href="../css/<%=MainWebCss%>.css" rel="stylesheet" type="text/css" />
<script language="JavaScript">
<!--
  function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall')
       e.checked = form.chkall.checked;
    }
  }
  function showconfirm(id,page)
{
	var flag=false; //是否有选择职位信息
	var k=0;
	var refid;
	for(i=0;i<document.thisForm.elements.length;i++) 
	{
		if (document.thisForm.elements[i].name=="checks")
		{		
			if (document.thisForm.elements[i].checked==true) 
			{
				flag=true;
				break;
			}
		}
	}
	if (flag==false)
	{
		alert("请先选择一个职位！");
		return false;
	}
	//发送面试邀请
	if (id==1)
	{
		if(confirm("您确定要发送面试邀请吗？")==true)
		{
			document.thisForm.action="company_interviewsend.asp?action=myexpert";
			document.thisForm.target="_blank";
			thisForm.submit();
		}
	}
	//删除
	if (id==2)
	{
		if(confirm("您确定要删除简历吗？")==true)
		{
			document.thisForm.action="company_myexpert.asp?action=delete&page="+page+"";
			thisForm.submit();
		}
	}					
}
  //-->
</script></head>
<body>
<center>
<div id="head">
<div id="logo"><img src="<%=SiteUrl&InstallDir&LogoUrl%>" alt="欢迎访问<%=SiteName%>" /></div>
<div id="banner"><%Call Loginshow()%></div>
<ul><%Call Membernav(2)%></ul>
</div>
<%Call Cmembermenu(3)%>
<div class="maintaba">
<span class="maintit">企业人才库</span>
<%
Set rsw= Server.CreateObject(FR_HR_RS)
'If CheckInfo(4)=False Then
'sqlOther=" top "&OutInfo("JOB_C_cmembertype","type_id","expertnums",session("user_type"))
'End If
'sql="select "& sqlOther &" * from job_c_myexpert where myexpert_cmember='"&cmember_login&"' order by myexpert_date desc"
sql="select * from job_c_myexpert where myexpert_cmember='"&cmember_login&"' order by myexpert_date desc"
	rsw.open sql,conn,1,1
	if rsw.eof and rsw.bof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>暂无人才，请添加后再进行管理！</li>"
	else
		totalPut=rsw.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
				rsw.move  (page-1)*MaxPerpage
				dim bookmark
				bookmark=rsw.bookmark
				Call MainInfo()
			else
				page=1
				Call MainInfo()
			end if
		end if
	end if
	rsw.close
	set rsw=nothing
if FoundErr=True then
	call Show_Err()
end if
%>
<%Sub MainInfo()%>
<TABLE width="98%" border=0 align="center" cellPadding=2 cellSpacing=1 bgcolor="#99CCFF" class="tabb mt10">
          <TBODY>
            <TR bgcolor="#E7E7E7">
              <TD width="13%" height=29 align=middle><B>姓名</B></TD>
              <TD width="8%" align=middle><B>性别</B></TD>
              <TD width="7%" align=middle><B>年龄</B></TD>
              <TD width="14%" align=middle><B>学历</B></TD>
              <TD width="17%" align=middle><B>收藏时间</B></TD>
              <TD width="6%" align=middle><IMG height=12 src="../images/sel_ico.gif" width=13> </TD>
            </TR>
          <FORM name="thisForm" action="" method="post">
		  <%do while not rsw.eof%>
			<TR align=middle bgColor=#f7f7f7>
				<TD height=30><a href="../person/cnresume_view.asp?rid=<%=rsw("myexpert_resumeid")%>" target="_blank"><%=rsw("myexpert_name")%></a></TD>
					<TD><%=Hiresex(rsw("myexpert_sex"))%></TD>
					<TD><%=year(date())-year(rsw("myexpert_birth"))%></TD>
					<TD><%=Hireedu(rsw("myexpert_edu"))%></TD>
					<TD><%=rsw("myexpert_date")%></TD>
					<TD><input type="checkbox" name="checks" value="<%=rsw("myexpert_id")%>"></TD>
			</TR>
<%
		i=i+1
		if i>=MaxPerPage then exit do
		rsw.movenext
		loop
	%>
            <TR>
              <TD height=24 colSpan=9 align=right bgcolor="#efefef">
                <INPUT name=chkall onClick="CheckAll(this.form)" type=checkbox value=on>
        选中所有简历&nbsp;&nbsp;&nbsp;&nbsp;
        <!--面试邀请-->        <input name="Submit" type="button" class="inputa2" value="发送面试邀请" onclick=javascrpt:showconfirm(1,<%=page%>)>        
        <input name="Submit2" type="button" class="inputa3" value="删　除" onClick=javascript:showconfirm(2,<%=page%>)>        </TD>
            </TR>
          
          <TR>
            <TD colSpan=11 align=right bgcolor="#f9f9f9"><%If totalput>0 Then
	Call Showpage(strFileName,totalput,MaxPerPage,false,true,"个人才")
End If%>
            </TD>
          </TR>
		</form>
    </TABLE>
<%End Sub%>
</div>
<%call bottom()
conn.close:set conn=nothing%>
⌨️ 快捷键说明

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