commoncode.asp

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

end if
End Function
'***********工作地-省*************
Function Hireworkadd(str,num,nums)
if str<>"" and not isnull(str) then
	Select Case str
		Case "0000":Hireworkadd="不限"
		Case Else
		str=split(str,",")
		strnum=ubound(str)
		if strnum+1>=nums then
		strnum=nums-1
		end if
			for i=0 to strnum
			province_name=""
			capital_name=""
			city_name=""
			workadd=trim(str(i))
			if workadd<>"" then
			  mystring=split(workadd,"*")
			  length=ubound(mystring)
			  if length+1>=num then
			  length=num-1
			  end if
			  Set rs=Server.CreateObject(FR_HR_Rs)
			  select case length
			   case "0"
				province=trim(mystring(0))
				sql="select province_city from job_provinceandcity where id="&province&""
				rs.open sql,conn,1,1
					if not rs.eof then
					 province_name=rs("province_city")
					end if
				rs.close
					if province_name<>"" then
					 Hireworkadd=Hireworkadd&province_name&"<br>"
					end if
			   case "1"
				province=trim(mystring(0))
				capital=trim(mystring(1))
				sql="select province_city from job_provinceandcity where id="&province&""
				rs.open sql,conn,1,1
					if not rs.eof then
					 province_name=rs("province_city")
					end if
				rs.close
				sql="select province_city from job_provinceandcity where id="&capital&""
				rs.open sql,conn,1,1
					if not rs.eof then
					 capital_name=rs("province_city")
					end if
				rs.close
					if province_name<>"" and capital_name<>"" then
					 Hireworkadd=Hireworkadd&province_name&capital_name&"<br>"
					end if
			   case "2"
				province=trim(mystring(0))
				capital=trim(mystring(1))
				city=trim(mystring(2))
				sql="select province_city from job_provinceandcity where id="&province&""
				rs.open sql,conn,1,1
					if not rs.eof then
					 province_name=rs("province_city")
					end if
				rs.close
				sql="select province_city from job_provinceandcity where id="&capital&""
				rs.open sql,conn,1,1
					if not rs.eof then
					 capital_name=rs("province_city")
					end if
				rs.close
				sql="select province_city from job_provinceandcity where id="&city&""
				rs.open sql,conn,1,1
					if not rs.eof then
					 city_name=rs("province_city")
					end if
				rs.close
					if province_name<>"" and capital_name<>"" and city_name<>"" then
					 Hireworkadd=Hireworkadd&province_name&capital_name&city_name&"<br>"
					end if
			   end select
			  end if
			 next
	End Select
	else:Hireworkadd="不限"
end if
End Function
'***********专业***************
Function Hireprofession(str)
if str<>"" and not isnull(str) then
	Select Case str
		Case "0000":Hireprofession="不限"
		Case Else
		str=split(str,",")
			for i=0 to ubound(str)
			mainprofession_name=""
			subprofession_name=""
			profession=trim(str(i))
			if profession<>"" then
			mystring=split(profession,"*")
			length=ubound(mystring)
			Set rs=Server.CreateObject(FR_HR_Rs)
			select case length
			 case 0
			  mainprofession=trim(mystring(0))
			  sql="select profession_name from job_profession where profession_id="&mainprofession&""
			  rs.open sql,conn,1,1
			  if not rs.eof then
			   mainprofession_name=rs("profession_name")
			  end if
			  rs.close
			  if mainprofession_name<>"" then
			   Hireprofession=Hireprofession&mainprofession_name&"　"
			  end if
			 case 1
			  subprofession=trim(mystring(1))
			  sql="select profession_name from job_profession where profession_id="&subprofession&""
			  rs.open sql,conn,1,1
			  if not rs.eof then
			   subprofession_name=rs("profession_name")
			  end if
			  rs.close
			  if subprofession_name<>"" then
			   Hireprofession=Hireprofession&subprofession_name&"　"
			  end if
			 end select
			end if
		   next
	End Select
	else:Hireprofession="不限"
end if
End Function
'***********岗位***************
Function Hireposition(str)
if str<>"" and not isnull(str) then
	Select Case str
		Case "0000":Hireposition="不限"
		Case Else
		str=split(str,",")
			for i=0 to ubound(str)
			mainposition_name=""
			subposition_name=""
			position=trim(str(i))
			if position<>"" then
			mystring=split(position,"*")
			length=ubound(mystring)
			Set rs=Server.CreateObject("ADODB.RecordSet")
			select case length
			 case 0
			  mainposition=trim(mystring(0))
			  sql="select position_name from job_position where position_id="&mainposition&""
			  rs.open sql,conn,1,1
			  if not rs.eof then
			   mainposition_name=rs("position_name")
			  end if
			  rs.close
			  if mainposition_name<>"" then
			   Hireposition=mainposition_name
			  end if
			 case 1
			  subposition=trim(mystring(1))
			  sql="select position_name from job_position where position_id="&subposition&""
			  rs.open sql,conn,1,1
			  if not rs.eof then
			   subposition_name=rs("position_name")
			  end if
			  rs.close
			  if subposition_name<>"" then
			   Hireposition=subposition_name
			  end if
			 end select
			end if
		   next
	End Select
	else:Hireposition="不限"
end if
End Function
'***********行业***************
Function Membertrade(str)
if str<>"" and not isnull(str) then
Set rs= Server.CreateObject(FR_HR_Rs)
sql="select trade_name from job_trade where trade_id="&str
rs.open sql,conn,1,1
Membertrade=rs("trade_name")
rs.close
end if
End Function
'***********行业多***************
Function Membertrades(str)
if str<>"" and not isnull(str) then
str=split(str,",")
trade_name=""
for i=0 to ubound(str)
trades=str(i)
Set rs= Server.CreateObject(FR_HR_Rs)
sql="select trade_name from job_trade where trade_id="&trades
rs.open sql,conn,1,1
if not rs.eof then
trade_name=trade_name&rs("trade_name")&" "
else
trade_name="不限"
end if
rs.close
next
Membertrades=trade_name
end if
End Function
'***********学历要求***************
Function Hireedu(str)
if str<>"" and not isnull(str) and IsNumeric(str) then
set rs=server.CreateObject(FR_HR_Rs)
sql="select edu_name from job_edu where edu_id="&str
rs.open sql,conn,1,1
if not(rs.eof) then
   Hireedu=rs("edu_name")
else
   Hireedu="不限"
end if
rs.close
else
Hireedu="不限"
end if
End Function
'***********语言***************
Function Hirelang(str)
if str<>"" and not isnull(str) and IsNumeric(str) then
set rs=server.CreateObject(FR_HR_Rs)
sql="select * from job_foreignlanguage where foreign_id="&str
rs.open sql,conn,1,1
if not(rs.eof) then
   Hirelang=rs("foreign_name")
end if
rs.close
end if
End Function
'***********语言掌握程度***************
Function Hiredegree(str)
if str<>"" and not isnull(str) and IsNumeric(str) then
set rs=server.CreateObject(FR_HR_Rs)
sql="select * from job_foreigndegree where degree_id="&str
rs.open sql,conn,1,1
if not(rs.eof) then
   Hiredegree=rs("degree_name")
end if
rs.close
end if
End Function
'***********政治面貌***************
Function Hirepolity(str)
if str<>"" and not isnull(str) and IsNumeric(str) then
set rs=server.CreateObject(FR_HR_Rs)
sql="select polity_name from JOB_polity where polity_id="&str
rs.open sql,conn,1,1
if not(rs.eof) then
   Hirepolity=rs("polity_name")
end if
rs.close
end if
End Function
'***********薪资待遇***************
Function Hirepay(str)
if str<>"" and not isnull(str) then
	if str=0 then
	   Hirepay="面议"
	else
	   Hirepay=str&"&nbsp;元/月"
	end if
end if
End Function
'***********婚姻状况***************
Function Membermarriage(str)
if str<>"" and not isnull(str) and IsNumeric(str) then
	set rs=server.CreateObject(FR_HR_Rs)
	sql="select marriage_name from JOB_marriage where marriage_id="&str
	rs.open sql,conn,1,1
	if not(rs.eof) then
	   Membermarriage=rs("marriage_name")
	end if
	rs.close
end if
End Function
'***********专业***************
Function Memberecoclass(str)
if str<>"" and not isnull(str) and IsNumeric(str) then
	set rs=server.CreateObject(FR_HR_Rs)
	sql="select ecoclass_name from JOB_ecoclass where ecoclass_id="&str
	rs.open sql,conn,1,1
	if not(rs.eof) then
	   Memberecoclass=rs("ecoclass_name")
	end if
	rs.close
end if
End Function
'***********会员等级组***************
Function Membergroup(str)
if str<>"" and not isnull(str) and IsNumeric(str) then
	set rs=server.CreateObject(FR_HR_Rs)
	sql="select Group_name,Group_images from JOB_Group where Group_id="&str
	rs.open sql,conn,1,1
	if not(rs.eof) then
	   Membergroup="<img src='{$FR_网站网址}{$FR_系统目录}"&rs("Group_images")&"' alt='"&rs("Group_name")&"' />"
	end if
	rs.close
end if
End Function
'***********会员民族***************
Function Membernation(str)
if str<>"" and not isnull(str) and IsNumeric(str) then
	set rs=server.CreateObject(FR_HR_Rs)
	sql="select  nation_name from job_nation where nation_id="&str
	rs.open sql,conn,1,1
	if not(rs.eof) then
	   Membernation=rs("nation_name")
	end if
	rs.close
end if
End Function
'**********************************
Function Memberworkdate(str)
	if str<>"" and not isnull(str) and IsNumeric(str) then
		select case str
			case 0
			Memberworkdate="随时"
			case 7
			Memberworkdate="1周以内"
			case 14
			Memberworkdate="2周以内"
			case 30
			Memberworkdate="1个月内"
			case 60
			Memberworkdate="1～3个月"
			case 90
			Memberworkdate="3个月以后"
		end select
	end if
End Function
'********************************************************
'公告
'********************************************************
Function Announcehtml(Cid,ShowType)
if not isNumeric(Cid) or not isNumeric(ShowType) then
	exit function
end if
'读取滚动公告
if Cid=0 then
Annsql="select * from JOB_announce where (JOB_ChannelID="&Cid&" or JOB_IsSelected="&FR_HR_True&")"
else
Annsql="select * from JOB_announce where (JOB_ChannelID="&Cid&" or JOB_ChannelID=0)"
end if
Annsql=Annsql&" and (JOB_ShowType=0 or JOB_ShowType=1)"
If FR_HR_DataBaseType=1 then
	Annsql=Annsql&" and datediff(d,JOB_DateAndTime,"&FR_HR_Now&")<=JOB_OutTime"
Else
	Annsql=Annsql&" and datediff('d',JOB_DateAndTime,"&FR_HR_Now&")<=JOB_OutTime"
End If
Annsql=Annsql&" order by JOB_DateAndTime desc"
set Annrs=conn.execute(Annsql)
if not Annrs.eof then
Announcecon=""
Do While Not Annrs.EOF
Announcecon=Announcecon&"　<a href='"&InstallDir&"Announce.asp?Announceid="&Annrs("JOB_id")&"' target='_blank' title='"&Annrs("JOB_Title")&"'>"&Annrs("JOB_Title")&"</a>"
Annrs.MoveNext
Loop
else
Announcecon="暂无公告!"
end if
Annrs.Close:Set Annrs=Nothing
'读取弹出公告
if Cid=0 then
Annsql="select * from JOB_announce where (JOB_ChannelID="&Cid&" or JOB_IsSelected="&FR_HR_True&")"
else
Annsql="select * from JOB_announce where (JOB_ChannelID="&Cid&" or JOB_ChannelID=0)"
end if
Annsql=Annsql&" and (JOB_ShowType=0 or JOB_ShowType=2)"
If FR_HR_DataBaseType=1 then
	Annsql=Annsql&" and datediff(d,JOB_DateAndTime,"&FR_HR_Now&")<=JOB_OutTime"
Else
	Annsql=Annsql&" and datediff('d',JOB_DateAndTime,"&FR_HR_Now&")<=JOB_OutTime"
End If
Annsql=Annsql&" order by JOB_DateAndTime desc"
set Annrs=conn.execute(Annsql)
if not Annrs.eof then
Announcecontc="<script language=""javascript"">"& vbCrLf
Announcecontc=Announcecontc&"<!--"& vbCrLf
Announcecontc=Announcecontc&"{"& vbCrLf
i=0
Do While Not Annrs.EOF
i=i+1
Announcecontc=Announcecontc&"window.open ('"&InstallDir&"Announce.asp?Announceid="&Annrs("JOB_id")&"', 'newwindow"&i&"', 'height=360, width=320, top="&i*10&",left="&i*10&",toolbar=no, menubar=no, scrollbars=yes, resizable=no, location=no, status=no')"& vbCrLf
Annrs.MoveNext
Loop
Announcecontc=Announcecontc&"}"& vbCrLf
Announcecontc=Announcecontc&"//-->"& vbCrLf
Announcecontc=Announcecontc&"</script>"& vbCrLf
end if
Annrs.Close:Set Annrs=Nothing
Select Case ShowType
	Case 1
	Announcehtml=Announcecon
	Case 2
	Announcehtml=Announcecontc
	Case Else
	Announcehtml=Announcecon&Announcecontc
End S