cmember_searchlist.asp

嘉缘人才6.0精简 ,很好用的人才系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<%Session.CodePage=936%> 
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.asp" -->
<!--#include file="../../inc/sendmail.asp" -->
<!--#include file="../checkvalid.asp" -->
<%
sUploadDir=UpFilesPath("Company")
If Not FRAdminLevel(303) 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="cmember_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
'seturl="cmember_searchlist.asp"
%>
<%
if trim(request("step"))<>"" then
step=trim(request("step"))
member=request("member")
select case step
 case "del"
   if member<>"" then
		pp=ubound(split(member,","))+1 
			for v=1 to pp
			member=request("member")(v)		
   conn.execute("delete from job_c_myexpert where myexpert_cmember='"&member&"'")
   conn.execute("delete from job_c_myreceive where myreceive_cmember='"&member&"'")
   conn.execute("delete from job_c_interview where cominterview_cmember='"&member&"'")
   conn.execute("delete from job_c_recycle where comrecycle_cmember='"&member&"'")
   conn.execute("delete from job_c_dept where dept_cmember='"&member&"'")
   conn.execute("delete from job_c_hire where hire_cmember='"&member&"'")
   conn.execute("delete from job_member where member_login='"&member&"'")
			next
   end if
case "logo" '审核LOGO
 	if member<>"" then
 		pp=ubound(split(member,","))+1 
			for v=1 to pp
			member=request("member")(v)
 			conn.execute("update job_member set member_logostatus=1 where member_login='"&member&"'")
			next
    end if
case "unlogo" '撤销LOGO审核
 	if member<>"" then
 		pp=ubound(split(member,","))+1 
			for v=1 to pp
			member=request("member")(v) 
 			conn.execute("update job_member set member_logostatus=0 where member_login='"&member&"'")
			next
    end if
case "cancle" 'LOGO推荐
       response.redirect "company_logo.asp?segment="&segment&"&member="&member&"&keyword="&keyword&"&operate="&operate&"&group="&group&"&page="&page&""
case "uncancle" '撤销LOGO推荐
	if member<>"" then
 		pp=ubound(split(member,","))+1 
			for v=1 to pp
			member=request("member")(v) 
 conn.execute("update job_member set member_logocommand=0,member_logostartdate=null,member_logoenddate=null where member_login='"&member&"'")
  			next
	end if  
 case "audit" 
 	if member<>"" then
 		pp=ubound(split(member,","))+1 
			for v=1 to pp
			 member=request("member")(v)
			 conn.execute("update job_member set member_flag=1 where member_login='"&member&"'")
			 If emailsendcomflag=1 Then
				 cMemberEmail=OutInfo("job_member","member_login","member_email",member,"code")
				 If cMemberEmail<>"未知" then
				 Call SendMail(cMemberEmail,"企业会员审核通知","您在<a href="&siteurl&" target=_blank>"&sitename&"</a>注册提交的企业资料已审核通过，请尽快登陆发布招聘职位！")
				 End If
			 End IF
			next
    end if
case "unaudit"
	if member<>"" then
 		pp=ubound(split(member,","))+1 
			for v=1 to pp
			member=request("member")(v)
 conn.execute("update job_member set member_flag=0 where member_login='"&member&"'")
 conn.execute("update job_c_hire set hire_status=0 where hire_cmember='"&member&"' and (hire_status=1 or hire_status=2)")
 			next
	end if
case "command"
       response.redirect "company_command.asp?segment="&segment&"&member="&member&"&keyword="&keyword&"&operate="&operate&"&group="&group&"&page="&page&""
case "uncommand"
	if member<>"" then
 		pp=ubound(split(member,","))+1 
			for v=1 to pp
			member=request("member")(v) 
 			conn.execute("update job_member set member_command=0,member_commandstartdate=null,member_commandenddate=null where member_login='"&member&"'")
			next
    end if
case "edit"
	if member<>"" then
	 member=request("member")(1)
	 set rsw=conn.execute("select * from job_member where member_login='"&member&"'")
	 if not rsw.eof then
	 company_id=rsw("member_id")
	 end if
	 response.redirect "company_modi.asp?id="&company_id&"&keyword="&keyword&"&page="&page&"&segment="&segment&"&operate="&operate&"&group="&group&""
 	 response.end
	end if
 case "reload"
	set Cmrs=Server.CreateObject("ADODB.RecordSet")
	Cmsql="select * from JOB_Group where Group_membertype=2 and Group_IsDefault=1"
	Cmrs.open Cmsql,conn,1,1
	if not Cmrs.eof then
	Group_id=Cmrs("Group_id")
	conn.execute("update job_member set Member_groupid="&Group_id&" where member_enddate<date()")
	end if
	Cmrs.close
	set Cmrs=nothing
 end select
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">
<!--
.style1 {
	color: #0066CC;
	font-weight: bold;
}
.STYLE2 {color: #FF0000}
.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="cmember_searchlist.asp" method="post">
    <tr>
      <td height="28" align="left"><font color="ff6600"><b class="style1">　管理选项</b></font>：&nbsp;<a href="cmember_searchlist.asp">管理首页</a> | <a href="company_add.asp">企业添加</a> | <a href="cmember_searchlist.asp">企业管理</a> | <a href="hire_add.asp">职位添加</a> | <a href="hire_searchlist.asp">职位管理</a> | <a href="Admin_AddTemp.asp?wid=2">添加模板</a> | <a href="Admin_Template.asp?wid=2">模板管理</a> | [<a href="javascript:location.reload()">刷新页面</a>]</td>
    </tr>
    <tr>
      <td height="28" 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">LOGO待审企业</a> | <a href="?operate=4">LOGO已审企业</a> | <a href="?operate=5">LOGO推荐</a> | <a href="?operate=6">已过期企业</a> | <a href="?operate=7">一周内到期</a> | <a href="?operate=8">30天内到期</a> </td>
    </tr>
    <tr>
      <td height="28" align="left"><font color="ff6600"><b class="style11">　服务选项</b></font>： <%set rss=conn.execute("select * from job_Group where Group_membertype=2")
	  if not rss.eof then
	  do while not rss.eof%><a href="?operate=<%=operate%>&group=<%=rss("Group_id")%>"><%=rss("Group_name")%></a> | <%rss.movenext
		loop
		end if%></td>
    </tr>
    <tr> 
      <td height="28" class=forumRowHighlight align="left"> 
          &nbsp;&nbsp;&nbsp;&nbsp;关键字： 
          <input name="keyword" type="text" id="keyword" size="10">
          <select name="segment" size="1" id="segment">
            <option value="cmember_login">会员帐号</option>
            <option value="cmember_name">公司名称</option>
          </select>
          <input name="Submit" type="submit" class="inputs" value="搜索">
     &nbsp;<a href="cmember_searchlist.asp?step=reload">刷新账户状态</a> （刷新数据库，将<span class="STYLE2">过期</span>VIP企业用户转成普通企业用户）</td>
    </tr>
  </form>
</table>
<%Call main()
if FoundErr=True then
	call Show_Err()
end if
%>
<%sub main()
sql="select * from job_member where Member_typeid=2 and"  
if segment="cmember_name" then
sql=sql&" member_name like '%"& keyword &"%'"
else
sql=sql&" member_login like '%"& keyword &"%'"
end if
if operate<>"" then
	select case operate
		case 0
			sql=sql&" and member_flag=0"
		case 1
			sql=sql&" and member_flag=1"
		case 2
			sql=sql&" and member_command=1"
		case 3
			sql=sql&" and member_logostatus=0"
		case 4
			sql=sql&" and member_logostatus=1"
		case 5
			sql=sql&" and member_logocommand=1"
		case 6
			If FR_HR_DataBaseType=1 then
			sql=sql&" and datediff(d,member_enddate,"&FR_HR_Now&")>0"
			Else
			sql=sql&" and datediff('d',member_enddate,"&FR_HR_Now&")>0"
			End If
		case 7
			If FR_HR_DataBaseType=1 then
			sql=sql&" and datediff(d,member_enddate,"&FR_HR_Now&")>7 and datediff(d,member_enddate,"&FR_HR_Now&")<=0"
			Else
			sql=sql&" and datediff('d',member_enddate,"&FR_HR_Now&")>7 and datediff('d',member_enddate,"&FR_HR_Now&")<=0"
			End If
		case 8
			If FR_HR_DataBaseType=1 then
			sql=sql&" and datediff(d,member_enddate,"&FR_HR_Now&")>30 and datediff(d,member_enddate,"&FR_HR_Now&")<=0"
			Else
			sql=sql&" and datediff('d',member_enddate,"&FR_HR_Now&")>30 and datediff('d',member_enddate,"&FR_HR_Now&")<=0"
			End If
	end select	
end if
if group<>"" then
	sql=sql&" and Member_groupid="&group&""
end if
sql=sql&" order by member_id 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