⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 commonfunction.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
		If FR_HR_DataBaseType=1 then
			ComSqls=ComSqls&" and datediff(d,Member_logostartdate,"&FR_HR_Now&")>=0 and datediff(d,Member_logoenddate,"&FR_HR_Now&")<=0"
		Else
			ComSqls=ComSqls&" and datediff('d',Member_logostartdate,"&FR_HR_Now&")>=0 and datediff('d',Member_logoenddate,"&FR_HR_Now&")<=0"
		End If
	End If
	If commands=1 then
		ComSqls=ComSqls&" and Member_command=1"
		If FR_HR_DataBaseType=1 then
			ComSqls=ComSqls&" and datediff(d,Member_commandstartdate,"&FR_HR_Now&")>=0 and datediff(d,Member_commandenddate,"&FR_HR_Now&")<=0"
		Else
			ComSqls=ComSqls&" and datediff('d',Member_commandstartdate,"&FR_HR_Now&")>=0 and datediff('d',Member_commandenddate,"&FR_HR_Now&")<=0"
		End If
	End If
	If ishire=1 then
		ComSqls=ComSqls&" and Member_hirenums>0"
	End If
	If FR_HR_DataBaseType=1 then
		ComSqls=ComSqls&" and datediff(d,Member_startdate,"&FR_HR_Now&")>=0 and datediff(d,Member_enddate,"&FR_HR_Now&")<=0"
	Else
		ComSqls=ComSqls&" and datediff('d',Member_startdate,"&FR_HR_Now&")>=0 and datediff('d',Member_enddate,"&FR_HR_Now&")<=0"
	End If
	ComSqls=ComSqls&" order by "&order&""
	html=""
	If nums<>0 Then
		ComSql = "Select top "&nums&" * from JOB_Member where Member_Auditing=1 and Member_name is not null and Member_typeid=2"&ComSqls&""
	Else
		ComSql = "Select * from JOB_Member where Member_Auditing=1 and Member_name is not null and Member_typeid=2"&ComSqls&""
	End If
	ComRS.open ComSql,conn,1,1
	html=html&"<table width=100% border=0 align=center cellpadding=0 cellspacing=0 >"
	html=html&"<tr>"
	I=0
	Do While Not ComRS.EOF
	I=I+1
	html=html&"<td width=""" & CInt(100 / CInt(rows)) & "%"">"
	if clogo=1 then
	html=html&"<li class=comlistlogo style='padding-left:12px;'><a href="&FormatLink(ComRS("Member_regdate"),2,1,ComRS("Member_id"),0)&" target="&target&"><img src='"&InstallDir&FR_UPFILES_DIR&"/Company/"&ComRS("Member_logo")&"' border=0 height="&logoh&" width="&logow&" title='<b>"&ComRS("Member_name")&"</b><br>"&left(ComRS("Member_introduce"),200)&"...' /></a></li>"
	end if
	if yeslogo=0 then
	html=html&"<li class=comlisttit style='padding-left:12px;'><a href='"&FormatLink(ComRS("Member_regdate"),2,1,ComRS("Member_id"),0)&"' target="&target&" title='<b>"&ComRS("Member_name")&"</b><br>"&left(ComRS("Member_introduce"),200)&"...<br><font color=#FF0000>正在招聘：</font><br>"&GetHireTitList(ComRS("Member_id"))&"'>"&left(ComRS("Member_name"),name_left)&"</a></li>"
		If hireyes=1 then
			Set HireRS = Server.CreateObject(FR_HR_RS)
			html=html&"<li class=comhirelist style='padding-left:12px;'>"
				HireSqls=""
				If hireflag<>0 then
					HireSqls=" and hire_status=1"
				End if
				If FR_HR_DataBaseType=1 then
					HireSqls=HireSqls&" and datediff(d,hire_enddate,"&FR_HR_Now&")<=0"
				Else
					HireSqls=HireSqls&" and datediff('d',hire_enddate,"&FR_HR_Now&")<=0"
				End If
				HireSqls=HireSqls&" order by hire_id desc"
				If hire_nums<>0 Then
				HireSql = "Select top "&hire_nums&" * from JOB_C_hire where company_id="&ComRS("Member_id")&""&HireSqls&""
				Else
				HireSql = "Select * from JOB_C_hire where company_id="&ComRS("Member_id")&""&HireSql&""
				End If
				HireRS.open HireSql,conn,1,1
				IF Not HireRS.EOF Then
				html=html&"<font color=#FF0000>招聘:</font>"
				Do While Not HireRS.EOF
				html=html&"<a href="&FormatLink(HireRS("hire_announcedate"),2,3,HireRS("hire_id"),0)&" target="&target&" title='<font color=#FF0000><b>"&HireRS("hire_place")&"("&HireRS("hire_number")&"人)</b></font><br>职位类型："&Hiretype(HireRS("hire_type"))&"<br>截止日期："&HireRS("hire_enddate")&"<br>工作地："&Hireworkadds(HireRS("hire_workadd"))&"<br>学历要求："&Hireedu(HireRS("hire_edu"))&"<br>薪金待遇："&Hirepay(HireRS("hire_pay"))&"'>"&left(HireRS("hire_place"),hire_left)&"</a> "
				HireRS.MoveNext
				Loop
				html=html&"..."
				Else
				html=html&"尚未发布职位信息!"
				End If
				HireRS.Close:Set HireRS=Nothing
			html=html&"</li>"
		End If
	end if
	html=html&"</td>"
	if I mod rows=0 then
	html=html&"</tr><tr>"
	end if
	ComRS.MoveNext
	Loop
	ComRS.Close:Set ComRS=Nothing
	html=html&"<td></td></tr></table>"
GetComList=html
End Function
'***************************************************
'函数名：GetCompanyHireList
'参  数：ComStr公司编号
'招聘频道公用
'***************************************************
Function GetCompanyHireList(Cid)
Dim HireRS,HireSql
	Set HireRS = Server.CreateObject(FR_HR_RS)
	html=""
	If FR_HR_DataBaseType=1 then
		HireSql = "Select * from JOB_C_hire where company_id="&Cid&" and datediff(d,hire_enddate,"&FR_HR_Now&")<=0 and hire_status=1 order by hire_id desc"
	Else
		HireSql = "Select * from JOB_C_hire where company_id="&Cid&" and datediff('d',hire_enddate,"&FR_HR_Now&")<=0 and hire_status=1 order by hire_id desc"
	End If
		HireRS.open HireSql,conn,1,1
		IF Not HireRS.EOF Then
		Do While Not HireRS.EOF
		html=html&"<li><a href="&FormatLink(HireRS("hire_announcedate"),2,3,HireRS("hire_id"),0)&" target="&target&">"&HireRS("hire_place")&"("&HireRS("hire_number")&"人)</a></li>"& vbCrLf
		HireRS.MoveNext
		Loop
		Else
		html=html&"<li>尚未发布职位信息!</li>"& vbCrLf
		End If
	HireRS.Close:Set HireRS=Nothing
GetCompanyHireList=html
End Function
'***************************************************
'函数名：GetHireTitList
'返回值：
'***************************************************
Function GetHireTitList(Cid)
Dim HireRS,HireSql
	Set HireRS = Server.CreateObject(FR_HR_RS)
	html=""
	If FR_HR_DataBaseType=1 then
		HireSql = "Select * from JOB_C_hire where company_id="&Cid&" and datediff(d,hire_enddate,"&FR_HR_Now&")<=0 and hire_status=1 order by hire_id desc"
	Else
		HireSql = "Select * from JOB_C_hire where company_id="&Cid&" and datediff('d',hire_enddate,"&FR_HR_Now&")<=0 and hire_status=1 order by hire_id desc"
	End If
		HireRS.open HireSql,conn,1,1
		IF Not HireRS.EOF Then
		Do While Not HireRS.EOF
		html=html&"<a href="&FormatLink(HireRS("hire_announcedate"),2,1,HireRS("hire_id"),0)&" target="&target&">"&HireRS("hire_place")&"("&HireRS("hire_number")&"人)</a><br>"
		HireRS.MoveNext
		Loop
		Else
		html=html&"尚未发布职位信息!"
		End If
	HireRS.Close:Set HireRS=Nothing
GetHireTitList=html
End Function
'***************************************************
'函数名：GetHireList
'返回值：
'***************************************************
Function GetHireList(nums,rows,sqlfield,comflag,commands,groupid,hireflag,hirecommands,usergroup,hirestype,order,target)
Dim I,T,HireRS,HireSql,HireSqls,Hirefield
Hirefield=Split(sqlfield,"|")
Set HireRS = Server.CreateObject(FR_HR_RS)
	HireSqls=""
	If comflag=1 then
	HireSqls=" and Member_flag=1"
	end if
	If commands=1 then
		If FR_HR_DataBaseType=1 then
			HireSqls=HireSqls&" and Member_command=1 and datediff(d,Member_commandstartdate,"&FR_HR_Now&")>=0 and datediff(d,Member_commandenddate,"&FR_HR_Now&")<=0"
		Else
			HireSqls=HireSqls&" and Member_command=1 and datediff('d',Member_commandstartdate,"&FR_HR_Now&")>=0 and datediff('d',Member_commandenddate,"&FR_HR_Now&")<=0"
		End If
	End If
	If groupid<>0 then
		HireSqls=HireSqls&" and Member_groupid="&groupid&""
	End if
	If usergroup<>3 then
		HireSqls=HireSqls&" and hire_usergroup="&usergroup&""
	End If
	Select case hirestype
		case 1
		HireSqls=HireSqls&" and hire_type<>2"
		case 2
		HireSqls=HireSqls&" and hire_type<>1"
	end select
	If hireflag=1 then
	HireSqls=HireSqls&" and hire_status=1"
	Else
	HireSqls=HireSqls&" and (hire_status=0 or hire_status=1)"
	end if
	If hirecommands=1 then
		If FR_HR_DataBaseType=1 then
			HireSqls=HireSqls&" and hire_command=1 and datediff(d,hire_commandstartdate,"&FR_HR_Now&")>=0 and datediff(d,hire_commandenddate,"&FR_HR_Now&")<=0"
		Else
			HireSqls=HireSqls&" and hire_command=1 and datediff('d',hire_commandstartdate,"&FR_HR_Now&")>=0 and datediff('d',hire_commandenddate,"&FR_HR_Now&")<=0"
		End If
	End If
	HireSqls=HireSqls&" order by "&order&",hire_id desc"
	html=""
	If nums<>0 Then
		HireSql = "Select top "&nums&" * from JOB_Member,JOB_C_hire where Member_login=hire_cmember"&HireSqls&""
	Else
		HireSql = "Select * from JOB_Member,JOB_C_hire where Member_login=hire_cmember"&HireSqls&""
	End If
	HireRS.open HireSql,conn,1,1
	html=html&"<table width=100% border=0 align=center cellpadding=0 cellspacing=0 >"
	html=html&"<tr>"
	For T=1 to rows
	if Hirefield(0)=1 then html=html&"<td>职位名称</td>"
	if Hirefield(1)=1 then html=html&"<td>公司名称</td>"
	if Hirefield(2)=1 then html=html&"<td>人数</td>"
	if Hirefield(3)=1 then html=html&"<td>招聘类别</td>"
	if Hirefield(4)=1 then html=html&"<td>招聘部门</td>"
	if Hirefield(5)=1 then html=html&"<td>工作地区</td>"
	if Hirefield(6)=1 then html=html&"<td>薪资待遇</td>"
	if Hirefield(7)=1 then html=html&"<td>专业要求</td>"
	if Hirefield(8)=1 then html=html&"<td>学历要求</td>"
	if Hirefield(9)=1 then html=html&"<td>工作经验</td>"
	if Hirefield(10)=1 then html=html&"<td>性别要求</td>"
	if Hirefield(11)=1 then html=html&"<td>年龄要求</td>"
	if Hirefield(12)=1 then html=html&"<td>截止日期</td>"
	next
    html=html&"</tr><tr>"
	I=0
	Do While Not HireRS.EOF
	I=I+1	
	if Hirefield(0)=1 then
	html=html&"<td><a href="&FormatLink(HireRS("hire_announcedate"),2,3,HireRS("hire_id"),0)&" target="&target&" title='<font color=#FF0000><b>"&HireRS("hire_place")&"("&HireRS("hire_number")&"人)</b></font><br>职位类型："&Hiretype(HireRS("hire_type"))&"<br>截止日期："&HireRS("hire_enddate")&"<br>工作地："&Hireworkadds(HireRS("hire_workadd"))&"<br>学历要求："&Hireedu(HireRS("hire_edu"))&"<br>薪金待遇："&Hirepay(HireRS("hire_pay"))&"'>"&HireRS("hire_place")&"</a></td>"
	end if
	if Hirefield(1)=1 then
	html=html&"<td><a href='' target="&target&" title='<b>"&HireRS("Member_name")&"</b><br>"&left(HireRS("Member_introduce"),500)&"...<br><font color=#FF0000>正在招聘：</font><br>"&GetHireTitList(HireRS("Member_id"))&"'>"&HireRS("hire_comname")&"</a></td>"
	end if
	if Hirefield(2)=1 then
	html=html&"<td>"&HireRS("hire_number")&"人</td>"
	end if
	if Hirefield(3)=1 then
	html=html&"<td>"&Hiretype(HireRS("hire_type"))&"</td>"
	end if
	if Hirefield(4)=1 then
	html=html&"<td>"&HireRS("hire_dept")&"</td>"
	end if
	if Hirefield(5)=1 then
	html=html&"<td>"&Hireworkadd(HireRS("hire_workadd"),2,1)&"</td>"
	end if
	if Hirefield(6)=1 then
	html=html&"<td>"&Hirepay(HireRS("hire_pay"))&"</td>"
	end if
	if Hirefield(7)=1 then
	html=html&"<td>"&Hireprofession(HireRS("hire_profession"))&"</td>"
	end if
	if Hirefield(8)=1 then
	html=html&"<td>"&Hireedu(HireRS("hire_edu"))&"</td>"
	end if
	if Hirefield(9)=1 then
	html=html&"<td>"&Hireexperience(HireRS("hire_experience"))&"</td>"
	end if
	if Hirefield(10)=1 then
	html=html&"<td>"&Hiresex(HireRS("hire_sex"))&"</td>"
	end if
	if Hirefield(11)=1 then
	html=html&"<td>"&HireRS("hire_pay")&"～"&HireRS("hire_pay")&"</td>"
	end if
	if Hirefield(12)=1 then
	html=html&"<td>"&HireRS("hire_enddate")&"</td>"
	end if
	if I mod rows=0 then
	html=html&"</tr><tr>"
	end if
	HireRS.MoveNext
	Loop
	HireRS.Close:Set HireRS=Nothing
	html=html&"<td></td></tr></table>"
GetHireList=html
End Function
'******************************************************
'函数名：ShowHead
'参  数：typeid   类别ID号
'        newsid   当前文章ID号
'返回值：返回上一篇文章的链接
'******************************************************
Function ShowHead(typeid,newsid)
     Sql = "Select top 1 * from JOB_hrnews where newsid > "& newsid &" And Typeid = "& typeid &" order by newsid desc"
     Set HRs = Conn.Execute(Sql)
	 htm=""
     If Not HRs.Eof Then
         htm=htm&"<a href="&FormatLink(HRS("Dateandtime"),HRS("type_fid"),HRS("Typeid"),HRS("newsid"),0)&">"&ClearColor(HRs("title"))&"</a>" 
     Else
         htm=htm&"没有了"
     End If
     HRs.Close
     Set HRs = Nothing
	 ShowHead = htm
End Function


'******************************************************
'函数名：ShowNext
'参  数：typeid   类别ID号
'        newsid   当前文章ID号
'返回值：返回下一篇文章的链接
'******************************************************
Function ShowNext(typeid,newsid)
     Sql = "Select top 1 * from JOB_hrnews where newsid < "& newsid &" And Typeid = "& typeid &" order by newsid desc"
     Set HRs = Conn.Execute(Sql)
	 htm=""
     If Not HRs.Eof Then
         htm=htm&"<a href="&FormatLink(HRS("Dateandtime"),HRS("type_fid"),HRS("Typeid"),HRS("newsid"),0)&">"&ClearColor(HRs("title"))&"</a>"
     Else
         htm=htm&"没有了"
     End If
     HRs.Close
     Set HRs = Nothing
	ShowNext = htm
End Function
%>
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -