company_myexpertadd.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%link="company_myexpertadd.asp?checks="&request("checks")&""%>
<!--#include file="checkcmember.asp" -->
<!--#include file="flagandexpend.asp"-->
<%
If CheckCFlag("Climits",2)=False Then
	alert "您无权使用人才库！",1 
else
	if CheckCFlag("Climits",3)=False Then
	alert "您的人才库已满，请先删除无效人才信息！",1 
	end if
End If
checks=trim(request("checks"))
set rs=Server.CreateObject("Adodb.Recordset")
resumes=split(checks,",")
t=0 '成功收藏数
for i=0 to ubound(resumes)
 id=trim(resumes(i))

  sql="select resume_id,resume_name,resume_sex,resume_birth,resume_edu,resume_pmember from job_p_resume where resume_id="&id
  rs.open sql,conn,1,1
   resumeid=rs("resume_id")
   name=rs("resume_name")
   sex=rs("resume_sex")
   birth=rs("resume_birth")
   edu=rs("resume_edu")
   pmember=rs("resume_pmember")
  rs.close

 sql="select * from job_c_myexpert where myexpert_resumeid="&resumeid&" and myexpert_cmember='"&cmember_login&"'" '存入人才库
 rs.open sql,conn,3,3
 if rs.eof then
 rs.addnew
  rs("myexpert_resumeid")=resumeid
  rs("myexpert_name")=name
  rs("myexpert_sex")=sex
  rs("myexpert_birth")=birth
  rs("myexpert_edu")=edu
  rs("myexpert_cmember")=cmember_login
  rs("myexpert_pmember")=pmember
  rs("myexpert_date")=now()
 rs.update
 rs.close
 t=t+1 '记录成功数
 end if
next
set rs=nothing
conn.close
set conn=nothing
response.write("<script language=javascript>alert('成功放入"&t&"位人才，"&ubound(resumes)+1-t&"个重复！');location.href='javascript:window.close()';</script>")
response.end
%>