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

📄 commonfunction.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
	if b mod rows=0 then
	html=html&"</tr><tr>"
	end if
	If num<>0 Then
		if b>=num then exit do
	End if
	NewsRS.MoveNext
	Loop
	Else
	GetArticleList="暂无信息"
	Exit Function
	End If
	NewsRS.Close:Set NewsRS=Nothing
	html=html&"<td></td></tr></table>"
GetArticleList=html
End Function
'***************************************************
'函数名：GetLastArticleList
'返回值：
'***************************************************
Function GetLastArticleList(cid,tid,imgs,PerPageNumber,order,font_left,target,dates,suffix)
Dim NewsRS, NewsSql, NewsSqls, totalPut, Page
Set NewsRS = Server.CreateObject(FR_HR_RS)
'-1 为读取当前频道
if cid="-1" then
cid = session(FRHRCMS&"ChannelID")
end if
	NewsSqls=""
	If tid="-1" then
		if session(FRHRCMS&"TypeID")="" then
		tid=0
		else
		tid=session(FRHRCMS&"TypeID")
		end if
	end if
	tid=clng(tid)
	If tid<>0 then
		NewsSqls=" and Typeid="&tid&""
	end if
	NewsSqls=NewsSqls&" order by "&order&""
	NewsSql="select * from JOB_hrnews where type_fid="&cid&""&NewsSqls&""
	NewsRS.open NewsSql,conn,1,1
	if NewsRS.eof and NewsRS.bof then
	html="暂无信息！"
	else
	totalPut=NewsRS.recordcount
	'读取页数
	Page=session(FRHRCMS&"Page")
		if Page<>1 then
		NewsRS.move (Page-1)*PerPageNumber
		end if
	html="<ul>"
	i=0
	do while not NewsRS.eof
	i=i+1
		if imgs=1 then
		html=html&"<li><IMG src='"&InstallDir&"skin/default/tp003.gif' width=12 height=11 align='absmiddle'>"
		end if
	html=html&"&nbsp;<a href='"&FormatLink(NewsRS("Dateandtime"),Cid,Tid,NewsRS("newsid"),0)&"' target='"&target&"'>"
		if font_left<>"" and font_left<>0 then
		html=html&AppendColor(NewsRS("title"),font_left)
		else
		html=html&NewsRS("title")
		end if
		if suffix<>0 then
		html=html&"..."
		end if
	html=html&"</a>"
		if dates<>0 then
		html=html&"<span>["&FormatDate(NewsRS("dateandtime"),dates)&"]</span></li>"& vbCrLf
		else
		html=html&"</li>"& vbCrLf
		end if
		if i mod 5=0 then
		html=html&"</ul><ul>"
		end if
		if i>=Cint(PerPageNumber) then exit do
	NewsRS.movenext
	loop
	html=html&"</ul>"& vbCrLf
		If totalput>0 Then
		html=html&Htmlpages(Cid,Tid,totalPut,PerPageNumber,true,"篇文章",Page)
		End If			
	end if
NewsRS.close
set NewsRS=nothing
GetLastArticleList=html
End Function
'***************************************************
'函数名：GetCirArticleList
'返回值：
'***************************************************
Function GetCirArticleList(asas,tnum,trows,torder,num,imgs,order,font_left,target,dates,suffix,rows)
Dim NewsRS, NewsSql, NewsSqls, Crs, Csql
Set Crs = Server.CreateObject(FR_HR_RS)
cid = session(FRHRCMS&"ChannelID")
if tnum=0 then
Csql="select * from JOB_hrnewstype where type_fid="&cid&""
else
Csql="select top "&tnum&" * from JOB_hrnewstype where type_fid="&cid&""
end if
Csql=Csql&" order by "&torder&""
Crs.open Csql,conn,1,1
if not Crs.eof then
html=""
a=0
do while not Crs.eof
a=a+1
html=html&"<table width=""" & CInt(100 / CInt(trows)) & "%"" border='0' cellpadding='4' cellspacing='0' class='bl2 mt10'>"
html=html&"<tr>"
html=html&"<td class='f14b1'><a href='"&FormatLink(0,cid,Crs("typeid"),0,0)&"'>"&Crs("type")&"</a></td>"
html=html&"</tr>"
html=html&"<tr>"
html=html&"<td class='newsf12'>"&GetArticleList(cid,Crs("typeid"),imgs,num,0,0,0,0,order,font_left,target,dates,suffix,rows)&"</td>"
html=html&"</tr>"
html=html&"</table>"
Crs.movenext
loop
else
GetCirArticleList="暂无信息"
Exit Function
end if
Crs.close
set Crs=nothing
GetCirArticleList=html
End Function
'***************************************************
'函数名：GetArticleSearch
'返回值：
'***************************************************
Function GetArticleSearch(Cid,Tid)
Dim NewsRS, NewsSql
'if Request.Cookies(FRHRCMS)("typeID")<>"" then
'Tid=Request.Cookies(FRHRCMS)("typeID")
'end if
'keywords = Request.Cookies(FRHRCMS)("keywords")
'searchtit = Request.Cookies(FRHRCMS)("searchtit")
'-1 为读取当前频道
if cid="-1" then
cid = session(FRHRCMS&"ChannelID")
end if
if tid=<0 then
tid=typeid
end if 
html=""
html=html&"<SCRIPT LANGUAGE='JavaScript' SRC='"&SiteUrl&InstallDir&"inc/infosearch.js' TYPE='text/javascript'></script>"& vbCrLf
html=html&"<FORM action='"&SiteUrl&InstallDir&"search/news_searchresult.asp?ChannelID="&cid&"' name=search_form onSubmit='javascript:if(doSearch()==false) return false;' method=post>"& vbCrLf
html=html&"站内资讯搜索:<INPUT name=keywords id=keywords size=28 value='"&keywords&"'>"& vbCrLf
html=html&"<select name=title>"& vbCrLf
html=html&"<option value='title'"
if tit="title" then
html=html&" selected"
end if
html=html&">标题检索</option>"& vbCrLf
html=html&"<option value='content'"
if tit="content" then
html=html&" selected"
end if
html=html&">全文检索</option>"& vbCrLf
html=html&"</select><a href='javascript:searchInCommunity()'>"& vbCrLf
html=html&"<select name=typeid>"& vbCrLf
html=html&"<option selected value=''>全部</option>"& vbCrLf
Set NewsRS = Server.CreateObject(FR_HR_RS)
NewsSql="select * from JOB_hrnewstype where type_fid="&cid&" order by date desc"
NewsRS.open NewsSql,conn,1,1
if not NewsRS.eof then
do while not NewsRS.eof
html=html&"<option value="&NewsRS("typeID")&""
if Tid=NewsRS("typeID") then
html=html&" selected"
end if
html=html&">"&NewsRS("type")&"</option>"& vbCrLf
NewsRS.movenext
loop
end if
NewsRS.close:set NewsRS=nothing
html=html&"</select></a>"& vbCrLf
html=html&"<input name='Submit' type='submit' value='搜索' class=>"&vbCrLf
html=html&"</from>"& vbCrLf
GetArticleSearch=html
End Function
'***************************************************
'函数名：GetResumeList
'返回值：
'***************************************************
Function GetResumeList(nums,rows,sqlfield,flag,cnstatus,commands,groupid,usergroup,jobtype,order,target,ppic,bxpic,picw,pich)
Dim I,T,ResumeRS,ResumeSql,ResumeSqls,Resumefield
Resumefield=Split(sqlfield,"|")
Set ResumeRS = Server.CreateObject(FR_HR_RS)
	ResumeSqls=""
	If flag=1 then
	ResumeSqls=" and resume_flag=1"
	end if
	If cnstatus=1 then
		ResumeSqls=ResumeSqls&" and resume_cnstatus=1"
	End If
	If usergroup<>3 then
		ResumeSqls=ResumeSqls&" and resume_usergroup="&usergroup&""
	End if
	If jobtype<>3 then
		ResumeSqls=ResumeSqls&" and resume_jobtype="&jobtype&""
	End If
	If commands=1 then
		ResumeSqls=ResumeSqls&" and Member_command=1"
	End If
	If ppic=1 and bxpic=1 then
		ResumeSqls=ResumeSqls&" and Member_logo<>'nophoto.gif'"
	End If
	If groupid<>0 then
		ResumeSqls=ResumeSqls&" and Member_groupid="&groupid&""
	End if
		ResumeSqls=ResumeSqls&" order by "&order&",resume_id desc"
	html=""

	If nums<>0 Then
		ResumeSql = "Select top "&nums&" * from JOB_Member,job_p_resume where Member_login=resume_pmember and Member_name is not null and resume_openness=0"&ResumeSqls&""
	Else
		ResumeSql = "Select * from JOB_Member,job_p_resume where Member_login=resume_pmember and Member_name is not null and resume_openness=0"&ResumeSqls&""
	End If
	ResumeRS.open ResumeSql,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 ppic=1 then html=html&"<td></td>"
	if Resumefield(0)=1 then html=html&"<td>编号</td>"
	if Resumefield(1)=1 then html=html&"<td>用户名</td>"
	if Resumefield(2)=1 then html=html&"<td>姓名</td>"
	if Resumefield(3)=1 then html=html&"<td>性别</td>"
	if Resumefield(4)=1 then html=html&"<td>出生日期</td>"
	if Resumefield(5)=1 then html=html&"<td>学历</td>"
	if Resumefield(6)=1 then html=html&"<td>意向工作职位</td>"
	if Resumefield(7)=1 then html=html&"<td>性质</td>"
	if Resumefield(8)=1 then html=html&"<td>意向工作地</td>"
	next
    html=html&"</tr><tr>"
	I=0
	Do While Not ResumeRS.EOF
	I=I+1
	tithtml="编号为"&ResumeRS("resume_id")&"的简历基本信息：<br>性别："&Hiresex(ResumeRS("resume_sex"))&"<br>出生日期："&ResumeRS("resume_birth")&"<br>学历："&Hireedu(ResumeRS("resume_edu"))&"<br>意向职位："&Hireposition(ResumeRS("resume_position"))&"<br>意向工作类型："&Hiretype(ResumeRS("resume_jobtype"))&"<br>意向工作地："&Hireworkadds(ResumeRS("resume_workadd"))&""
	if ppic=1 then
	html=html&"<td><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&" target="&target&"><img src='"&InstallDir&FR_UPFILES_DIR&"/Person/"&ResumeRS("Member_logo")&"' border=0 height="&pich&" width="&picw&" title='"&tithtml&"' /></a></td>"
	end if
	if Resumefield(0)=1 then
	html=html&"<td><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&" target="&target&" title='"&tithtml&"'>"&ResumeRS("resume_id")&"</a></td>"
	end if
	if Resumefield(1)=1 then
	html=html&"<td><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&" target="&target&" title='编号为"&ResumeRS("resume_id")&"的简历基本信息：<br>性别："&Hiresex(ResumeRS("resume_sex"))&"<br>出生日期："&ResumeRS("resume_birth")&"<br>学历："&Hireedu(ResumeRS("resume_edu"))&"<br>意向职位："&Hireposition(ResumeRS("resume_position"))&"<br>意向工作类型："&Hiretype(ResumeRS("resume_jobtype"))&"<br>意向工作地："&Hireworkadds(ResumeRS("resume_workadd"))&"'>"&ResumeRS("resume_pmember")&"</a></td>"
	end if
	if Resumefield(2)=1 then
	html=html&"<td><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&" target="&target&" title='编号为"&ResumeRS("resume_id")&"的简历基本信息：<br>性别："&Hiresex(ResumeRS("resume_sex"))&"<br>出生日期："&ResumeRS("resume_birth")&"<br>学历："&Hireedu(ResumeRS("resume_edu"))&"<br>意向职位："&Hireposition(ResumeRS("resume_position"))&"<br>意向工作类型："&Hiretype(ResumeRS("resume_jobtype"))&"<br>意向工作地："&Hireworkadds(ResumeRS("resume_workadd"))&"'>"&ResumeRS("resume_name")&"</a></td>"
	end if
	if Resumefield(3)=1 then
	html=html&"<td>"&Hiresex(ResumeRS("resume_sex"))&"</td>"
	end if
	if Resumefield(4)=1 then
	html=html&"<td>"&ResumeRS("resume_birth")&"</td>"
	end if
	if Resumefield(5)=1 then
	html=html&"<td>"&Hireedu(ResumeRS("resume_edu"))&"</td>"
	end if
	if Resumefield(6)=1 then
	html=html&"<td><a href="&FormatLink(ResumeRS("resume_announcedate"),1,1,ResumeRS("resume_id"),0)&" target="&target&" title='编号为"&ResumeRS("resume_id")&"的简历基本信息：<br>性别："&Hiresex(ResumeRS("resume_sex"))&"<br>出生日期："&ResumeRS("resume_birth")&"<br>学历："&Hireedu(ResumeRS("resume_edu"))&"<br>意向职位："&Hireposition(ResumeRS("resume_position"))&"<br>意向工作类型："&Hiretype(ResumeRS("resume_jobtype"))&"<br>意向工作地："&Hireworkadds(ResumeRS("resume_workadd"))&"'>"&Hireposition(ResumeRS("resume_position"))&"</a></td>"
	end if
	if Resumefield(7)=1 then
	html=html&"<td>"&Hiretype(ResumeRS("resume_jobtype"))&"</td>"
	end if
	if Resumefield(8)=1 then
	html=html&"<td>"&Hireworkadd(ResumeRS("resume_workadd"),2,1)&"</td>"
	end if
	if I mod rows=0 then
	html=html&"</tr><tr>"
	end if
	ResumeRS.MoveNext
	Loop
	ResumeRS.Close:Set ResumeRS=Nothing
	html=html&"<td></td></tr></table>"
GetResumeList=html
End Function
'***************************************************
'函数名：GetComList
'返回值：
'***************************************************
Function GetComList(nums,rows,groupid,name_left,ishire,hireyes,hire_left,hire_nums,hireflag,comflag,commands,order,target,clogo,yeslogo,bxlogo,tjlogo,logow,logoh)
Dim I,ComRS,ComSql,ComSqls,HireRS,HireSql,HireSqls
Set ComRS = Server.CreateObject(FR_HR_RS)
	ComSqls=""
	If groupid<>0 then
		ComSqls=" and Member_groupid="&groupid&""
	End if
	If comflag=1 then
		ComSqls=ComSqls&" and Member_flag=1"
	end if
	If clogo=1 and bxlogo=1 then
		ComSqls=ComSqls&" and Member_logo<>'nologo.gif'"
	End If
	If clogo=1 and tjlogo=1 then
		ComSqls=ComSqls&" and Member_logocommand=1"
1234

⌨️ 快捷键说明

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