member_install.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn/conn.asp"-->
<!--#include file="inc/sendmail.asp"-->
<%
if session(""&FRHRCMS&"user_login")<>"" and session(""&FRHRCMS&"user_pass")<>"" then
set rs=conn.Execute("select * from JOB_member where Member_login='"&session(""&FRHRCMS&"user_login")&"'")
Member_typeid=rs("Member_typeid")
	if Member_typeid=0 or Member_typeid="" then
	Member_type=cint(Trim(Request.QueryString("Member_type")))  '获取要注册的会员类型
	Select Case Member_type
		Case 1
		if AdminPerCheckReg=1 then:flag=0:else:flag=1:end if
		conn.Execute("Update JOB_member set Member_typeid=1,Member_flag="&flag&" where Member_login = '"&session(""&FRHRCMS&"user_login")&"'")
		Call PersonMember()
		Case 2
		if AdminComCheckReg=1 then:flag=0:else:flag=1:end if
		conn.Execute("Update JOB_member set Member_typeid=2,Member_flag="&flag&" where Member_login='"&session(""&FRHRCMS&"user_login")&"'")
		Call CompanyMember()
		Case 3
		if AdminSchCheckReg=1 then:flag=0:else:flag=1:end if
		conn.Execute("Update JOB_member set Member_typeid=3,Member_flag="&flag&" where Member_login = '"&session(""&FRHRCMS&"user_login")&"'")
		Call SchoolMember()
		Case 4
		if AdminTraCheckReg=1 then:flag=0:else:flag=1:end if
		conn.Execute("Update JOB_member set Member_typeid=4,Member_flag="&flag&" where Member_login = '"&session(""&FRHRCMS&"user_login")&"'")
		Call TrainMember()
	End Select
rs.close
set rs=nothing
	else
	    '已申请过会员的用户返回会员中心
	Select Case Member_typeid
		Case 1
			Response.Write("<script>alert(""您已经申请成为了个人会员，正在进入管理中心！"");window.location='person/person_index.asp';</script>")
			Response.End()
		Case 2
			Response.Write("<script>alert(""您已经申请成为了企业会员，正在进入管理中心！"");window.location='company/company_index.asp';</script>")
			Response.End()
		Case 3
			Response.Write("<script>alert(""您已经申请成为了院校会员，正在进入管理中心！"");window.location='school/school_index.asp';</script>")
			Response.End()
		Case 4
			Response.Write("<script>alert(""您已经申请成为了培训机构，正在进入管理中心！"");window.location='train/train_index.asp';</script>")
			Response.End()
	End Select
	end if
else
Response.Write("<script>alert(""非法进入或超时，正在返回首页！"");window.location='index.asp';</script>")
Response.End()
end if
Sub PersonMember()
pmember_login=session(""&FRHRCMS&"user_login")
pmember_email=rs("Member_email")
pmember_sendemail=rs("Member_sendemail")
'默认会员基本帐号
set Pmrs=Server.CreateObject("ADODB.RecordSet")
Pmsql="select * from JOB_Group where Group_membertype=1 and Group_IsDefault=1"
Pmrs.open Pmsql,conn,1,1
Group_id=Pmrs("Group_id")
Group_Pdianshu=Pmrs("Group_Pdianshu")
Group_Pdianshus=split(Group_Pdianshu,",")
Group_Pintegral=Pmrs("Group_Pintegral")
Group_Pintegrals=split(Group_Pintegral,",")
Group_term=Pmrs("Group_term")
Group_unit=Pmrs("Group_unit")
Pmrs.close
set Pmrs=nothing
Member_startdate=date()
Select Case Group_unit
	case "日"
	Member_enddate=DateAdd("d",Group_term,Member_startdate)
	case "月"
	Member_enddate=DateAdd("m",Group_term,Member_startdate)
	case "季"
	Member_enddate=DateAdd("q",Group_term,Member_startdate)
	case "年"
	Member_enddate=DateAdd("yyyy",Group_term,Member_startdate)
end select

'更新会员默认组
conn.Execute("Update JOB_member set Member_groupid="&Group_id&",Member_consumenums="&Group_Pdianshus(5)&",Member_integral="&Group_Pintegrals(5)&",Member_startdate='"&Member_startdate&"',Member_enddate='"&Member_enddate&"' where Member_login = '"&pmember_login&"'")
Set rs1=Server.CreateObject("ADODB.RecordSet")
	sql="select * from JOB_P_resume where resume_pmember='"&pmember_login&"'"
	rs1.open sql,conn,1,3
	if rs1.eof then
	rs1.addnew
	rs1("resume_title")="简历一"
	rs1("resume_usergroup")=0
	rs1("resume_openness")=0
	rs1("resume_chinese")=1
	rs1("resume_cnstatus")=0
	rs1("resume_visitnum")=0
	rs1("resume_personinfo")=0
	rs1("resume_email")=pmember_email
	rs1("resume_pmember")=pmember_login
	rs1("resume_announcedate")=now()
	if AdminResCheckReg=1 then
	rs1("resume_flag")=0
	else
	rs1("resume_flag")=1
	end if
	rs1.update
	end if
	rs1.close
	Set rs1=Nothing
'获得默认简历ID
Set rs1=conn.Execute("select * from JOB_P_resume where resume_pmember='"&pmember_login&"'")
	rid=rs1("resume_id")
	rs1.close
	Set rs1=Nothing
	'发送会员申请邮件
	if pmember_sendemail=1 then
		if emailsendperflag=1 then
			EmailPerOfRegCheck=replace(EmailPerOfRegCheck,"{$uesername}",pmember_login)
			EmailPerOfRegCheck=replace(EmailPerOfRegCheck,"{$sitename}",sitename)
			Call sendmail(pmember_email,"感谢您申请成为"&sitename&"个人会员！",EmailPerOfRegCheck)
		end if
	end if
	session(""&FRHRCMS&"user_type")="pmember"
	Response.Write("<script>window.location='person/person_addresume.asp?rid="&rid&"';</script>")
	Response.End()
End Sub
Sub CompanyMember()
cmember_login=session(""&FRHRCMS&"user_login")
cmember_email=rs("Member_email")
cmember_sendemail=rs("Member_sendemail")
'默认会员基本帐号
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
Group_id=Cmrs("Group_id")
Group_Cdianshu=Cmrs("Group_Cdianshu")
Group_Cdianshus=split(Group_Cdianshu,",")
Group_Cintegral=Cmrs("Group_Pintegral")
Group_Cintegrals=split(Group_Cintegral,",")
Group_term=Cmrs("Group_term")
Group_unit=Cmrs("Group_unit")
Cmrs.close
set Cmrs=nothing
Member_startdate=date()
Select Case Group_unit
	case "日"
	Member_enddate=DateAdd("d",Group_term,Member_startdate)
	case "月"
	Member_enddate=DateAdd("m",Group_term,Member_startdate)
	case "季"
	Member_enddate=DateAdd("q",Group_term,Member_startdate)
	case "年"
	Member_enddate=DateAdd("yyyy",Group_term,Member_startdate)
end select
'更新会员默认组
conn.Execute("Update JOB_member set Member_groupid="&Group_id&",Member_consumenums="&Group_Cdianshus(6)&",Member_integral="&Group_Cintegrals(5)&",Member_startdate='"&Member_startdate&"',Member_enddate='"&Member_enddate&"' where Member_login = '"&cmember_login&"'")
	'发送会员申请邮件
	if cmember_sendemail=1 then
		if emailsendcomflag=1 then
			EmailComOfRegCheck=replace(EmailComOfRegCheck,"{$uesername}",cmember_login)
			EmailComOfRegCheck=replace(EmailComOfRegCheck,"{$sitename}",sitename)
			Call sendmail(cmember_email,"感谢您申请成为"&sitename&"企业会员！",EmailComOfRegCheck)
		end if
	end if
	session(""&FRHRCMS&"user_type")="cmember"
	Response.Write("<script>window.location='company/company_index.asp';</script>")
	Response.End()
End Sub
%>