contacts.asp

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

<!--#include file="../conn/conn.asp"-->
<!--#include file="../person/flagandexpend.asp"-->
<!--#include file="../company/flagandexpend.asp"-->
<%
Response.Charset = "GB2312"
'On Error Resume Next
companyid=Replace(request("companyid"),"'","")
hireid=Replace(request("hireid"),"'","")
resumeid=Replace(request("resumeid"),"'","")
if companyid<>"" then
pmember_login=session(""&FRHRCMS&"user_login")
pmember_type=session(""&FRHRCMS&"user_type")
	if pmember_login<>"" and pmember_type="pmember" then
		if CheckPFlag("Plimits",4)=True and CheckPFlag("Plimits",5)=True then
			if hireid<>"" then
				conn.execute("update JOB_C_hire set hire_visitcount=hire_visitcount+1 where hire_id="&hireid&" and company_id="&companyid&"")
				set rs=conn.execute("select * from JOB_C_hire where hire_id="&hireid&" and company_id="&companyid&"")
					if rs.eof then
						response.write "联系方式读取出错!"
					else
						ComHireaddress=rs("hire_address")
						ComHirepost=rs("hire_post")
						ComHirecontact=rs("hire_contact")
						ComHiretelshowflag=rs("hire_telshowflag")
						ComHiretel=rs("hire_tel")
						ComHirefax=rs("hire_fax")
						ComHireemailshowflag=rs("hire_emailshowflag")
						ComHireemail=rs("hire_email")
					end if
				rs.close
				set rs=nothing
			else
			conn.execute("update JOB_Member set Member_hits=Member_hits+1 where Member_id="&companyid&"")
			set rs=conn.execute("select * from JOB_Member where Member_id="&companyid&"")
				if rs.eof then
					response.write "联系方式读取出错!"
				else
					ComHireaddress=rs("Member_address")
					ComHirepost=rs("Member_post")
					ComHirecontact=rs("Member_contact")
					ComHiretelshowflag=rs("Member_telshowflag")
					ComHiretel=rs("Member_tel")
					ComHirefax=rs("Member_fax")
					ComHireemailshowflag=rs("Member_emailshowflag")
					ComHireemail=rs("Member_email")
				end if
			end if
			if ComHireaddress<>"" then
			response.write "通信地址："&ComHireaddress&"("&ComHirepost&")<br>"
			end if
			if ComHirecontact<>"" then
			response.write "联 系 人："&ComHirecontact&"　　"
			end if
			response.write "联系电话："
			if ComHiretelshowflag=0 then
			response.write "（合则约见、谢绝来电）<br>"
			else
			response.write ComHiretel&"<br>"
			end if
			if ComHirefax<>"" then
			response.write "传　　真："&ComHirefax&"<br>"
			end if
			response.write "电子邮件："
			if ComHireemailshowflag=0 then
			response.write "（请通过系统发送应聘意向）<br>"
			else
			response.write ComHireemail
			end if
		else
		response.write "<font color='#ff0000'>您所在的用户组无权查看联系方式或者您的系统服务已经达到上限!请联系客服中心进行帐号升级!</font>"
		end if
	else
	response.write "<font color='#ff0000'><B>个人会员登录查看联系方式：</B></font>"
	if hireid<>"" then
	response.write "<form name='form1' method='post' action='"&InstallDir&"person/check.asp?link="&InstallDir&"Company/hire.asp?hireid="&hireid&"' onSubmit='return check(this)'>"
	else
	response.write "<form name='form1' method='post' action='"&InstallDir&"person/check.asp?link="&InstallDir&"Company/company.asp?comid="&companyid&"' onSubmit='return check(this)'>"
	end if	
	response.write "<li>用户名：<input name=login id='login' style='FONT-SIZE: 12px; FONT-FAMILY: Verdana' size=18 maxlength=20>&nbsp;&nbsp;&nbsp;&nbsp;密&nbsp;&nbsp;码：<input name=pwd type=password id='pwd' style='FONT-SIZE: 12px; FONT-FAMILY: Verdana' size=18 maxlength=20>&nbsp;&nbsp;&nbsp;<input name=submit type='submit' class='inputs' value='查看联系方式'></li></form>"
	response.write "<li>如果您还没有注册，请这点这里进行注册！<input name=regnow type='button' class='inputs' value='　个人会员注册　' onClick=window.location='"&InstallDir&"Register.asp?Member_type=1'></li>"
	end if
end if
if resumeid<>"" then
cmember_login=session(""&FRHRCMS&"user_login")
cmember_type=session(""&FRHRCMS&"user_type")
	if cmember_login<>"" and cmember_type="cmember" then
		if CheckCFlag("Climits",8)=True and CheckCFlag("Climits",9)=True then
		set rs=conn.execute("select * from job_p_resume where resume_id="&resumeid&"")
			if rs.eof then
				response.write "联系方式读取出错!"
			else
				PerResumetel=rs("resume_tel")
				PerResumechat=rs("resume_chat")
				PerResumeemail=rs("resume_email")
				PerResumeurl=rs("resume_url")
				PerResumeaddress=rs("resume_address")
				PerResumepost=rs("resume_post")
			end if
			if PerResumetel<>"" then
			response.write "联系电话："&PerResumetel&"<br>"
			end if
			if PerResumechat<>"" then
			response.write "聊天号码："&PerResumechat&"<br>"
			end if
			if PerResumeemail<>"" then
			response.write "联系电话："&PerResumeemail&"<br>"
			end if
			if PerResumeurl<>"" then
			response.write "个人主页："&PerResumeurl&"<br>"
			end if
			if PerResumeaddress<>"" then
			response.write "联系地址："&PerResumeaddress&"("&PerResumepost&")"
			end if
		else
		response.write "<font color='#ff0000'>您现在所购买的服务无权查看联系方式!请联系客服中心进行帐号升级!</font>"
		end if
		response.write "<br><input name='Submit' type='button' class='inputs' value='发送面试邀请' onClick=window.open('"&InstallDir&"company/company_interviewsend.asp?action=resume&checks="&resumeid&"')>&nbsp;<input name='Submit2' type='button' class='inputs' value='放入人才库' onClick=window.open('"&InstallDir&"company/company_myexpertadd.asp?checks="&resumeid&"')>&nbsp;<input name='Submit3' type='button' class='inputs' value='打印简历' onClick='window.print();'>&nbsp;<input name='Submit32' type='button' class='inputs' value='关闭窗口' onClick='window.close();'>"
	else
	response.write "<font color='#ff0000'><B>企业会员登录查看联系方式：</B></font>"
	response.write "<form name='form1' method='post' action='"&InstallDir&"company/check.asp?link="&InstallDir&"person/cnresume_view.asp?rid="&resumeid&"' onSubmit='return check(this)'><li>用户名：<input name=login id='login' style='FONT-SIZE: 12px; FONT-FAMILY: Verdana' size=18 maxlength=20>&nbsp;&nbsp;&nbsp;&nbsp;密&nbsp;&nbsp;码：<input name=pwd type=password id='pwd' style='FONT-SIZE: 12px; FONT-FAMILY: Verdana' size=18 maxlength=20>&nbsp;&nbsp;&nbsp;<input name=submit type='submit' class='inputs' value='查看联系方式'></li></form>"
	response.write "<li>如果您还没有注册，请这点这里进行注册！<input name=regnow type='button' class='inputa2' value='　企业会员注册　' onClick=window.location='"&InstallDir&"Register.asp?Member_type=2'></li>"
	end if
end if
%>