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

📄 commoncode.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<%Sub ShowCloseandOpen(str)
response.Write  "<table width=100% height=100% border=0 cellspacing=0 cellpadding=0>"
response.Write  "<tr>"
response.Write  "  <td>"
response.Write	"	<TABLE WIDTH=356 BORDER=0 CELLPADDING=0 CELLSPACING=0 align=center>"
response.Write	"		<TR><TD ROWSPAN=3><IMG SRC='images/err-1_1.gif' WIDTH=36 HEIGHT=160></TD>"
response.Write	"			<TD background='images/err-1_2.gif' WIDTH=280 HEIGHT=10></TD>"
response.Write	"			<TD ROWSPAN=3><IMG SRC='images/err-1_3.gif' WIDTH=40 HEIGHT=160></TD></TR>"
response.Write	"		<TR><TD background='images/err-1_4.gif' HEIGHT=139 align=center><strong>暂时禁止访问，原因：<br><br><font color=red>"&str&"</font><br><br>请稍后再来访问！</strong></TD></TR>"
response.Write	"		<TR><TD WIDTH=280 HEIGHT=11 background='images/err-1_5.gif'></TD></TR>"
response.Write	"	</TABLE>"
response.Write	"	</td>"
response.Write  "</tr>"
response.Write  "</table>"
response.end
End Sub
Sub CloseAndOpen(num) '关闭网站,及各栏目注册开关
set rs=server.CreateObject("adodb.recordset")
sql="select openandclose from JOB_siteconfig"
rs.open sql,conn,1,1
openandclose=rs("openandclose")
fl=split(rs("openandclose"),",")
citymailkey0=fl(0)
citymailkey1=fl(1)
citymailkey2=fl(2)  
citymailkey3=fl(3)
citymailkey4=fl(4)
citymailkey5=fl(5)
citymailkey6=fl(6)
citymailkey7=fl(7)
citymailkey8=fl(8)
citymailkey9=fl(9)
citymailkey10=fl(10)
citymailkey11=fl(11)
rs.close
set rs=nothing
select case num
case 1
	if citymailkey0=1 then
	 Call ShowCloseandOpen(citymailkey1)
	end if
case 2
	if citymailkey2=1 then
	Call ShowCloseandOpen(citymailkey3)
	end if
case 3
	if citymailkey4=1 then
	Call ShowCloseandOpen(citymailkey5)
	end if
case 4
	if citymailkey6=1 then
	Call ShowCloseandOpen(citymailkey7)
	end if
case 5
	if citymailkey8=1 then
	Call ShowCloseandOpen(citymailkey9)
	end if
case 6
	if citymailkey10=1 then
	Call ShowCloseandOpen(citymailkey11)
	end if
end select
end sub
Sub head()
headhtml="{$FR_网站页头}"
headhtml=ReplaceLableFlag(ReplaceAllLabel(headhtml))
Response.Write(CreateHTMLReplace(headhtml))
End Sub
Sub bottom()
headhtml="{$FR_网站页尾}"
headhtml=ReplaceLableFlag(ReplaceAllLabel(headhtml))
headhtml=Replace(headhtml,"{$FR_页尾导航}",GetSitebottomnav())
Response.Write(CreateHTMLReplace(headhtml))
end sub
Sub Membernav(typeid)   '会员中心导航
Select Case typeid
	Case 1
Response.Write"<li><a href='"&SiteUrl&InstallDir&"'>人才网首页</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_index.asp'>求职系统首页</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_info.asp'>我的资料管理</a></li>"
if session(FRHRCMS&"user_name")<>"" then
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_resume.asp'>我的简历中心</a></li>"
else
Response.Write"<li><a href=javascript:alert(""暂不能进行此操作,请先完整填写基本资料！"");window.location='"&SiteUrl&InstallDir&"person/person_info.asp';>我的简历中心</a></li>"
end if
if session(FRHRCMS&"user_name")<>"" then
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_works.asp'>我的工作</a></li>"
else
Response.Write"<li><a href=javascript:alert(""暂不能进行此操作,请先完整填写基本资料！"");window.location='"&SiteUrl&InstallDir&"person/person_info.asp';>我的工作</a></li>"
end if
if session(FRHRCMS&"user_name")<>"" then
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_letters.asp'>求职信</a></li>"
else
Response.Write"<li><a href=javascript:alert(""暂不能进行此操作,请先完整填写基本资料！"");window.location='"&SiteUrl&InstallDir&"person/person_info.asp';>求职信</a></li>"
end if
if session(FRHRCMS&"user_name")<>"" then
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_searchworks.asp'>我要找工作</a></li>"
else
Response.Write"<li><a href=javascript:alert(""暂不能进行此操作,请先完整填写基本资料！"");window.location='"&SiteUrl&InstallDir&"person/person_info.asp';>我要找工作</a></li>"
end if
	Case 2
Response.Write"<li><a href='"&SiteUrl&InstallDir&"'>人才网首页</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_index.asp'>招聘系统首页</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_info.asp'>企业资料管理</a></li>"
if session(FRHRCMS&"user_name")<>"" then
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_hirelist.asp'>职位管理</a></li>"
else
Response.Write"<li><a href=javascript:alert(""暂不能进行此操作,请先完整填写基本资料！"");window.location='"&SiteUrl&InstallDir&"company/company_info.asp';>职位管理</a></li>"
end if
if session(FRHRCMS&"user_name")<>"" then
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_works.asp'>简历管理</a></li>"
else
Response.Write"<li><a href=javascript:alert(""暂不能进行此操作,请先完整填写基本资料！"");window.location='"&SiteUrl&InstallDir&"company/company_info.asp';>简历管理</a></li>"
end if
if session(FRHRCMS&"user_name")<>"" then
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_searchresume.asp'>简历查询</a></li>"
else
Response.Write"<li><a href=javascript:alert(""暂不能进行此操作,请先完整填写基本资料！"");window.location='"&SiteUrl&InstallDir&"company/company_info.asp';>简历查询</a></li>"
end if
End Select

End Sub 
Function UpFilesPath(FilesPath)
Set fso = Server.CreateObject(FR_HR_FSO)
if not fso.FolderExists(server.MapPath(InstallDir&FR_UPFILES_DIR&"/"&FilesPath)) Then   
fso.CreateFolder (server.MapPath(InstallDir&FR_UPFILES_DIR&"/"&FilesPath))
end if
Session("sUploadDir")= InstallDir&FR_UPFILES_DIR&"/"&FilesPath&"/"
UpFilesPath=Session("sUploadDir")
End Function
Sub Loginshow()
member_login=session(""&FRHRCMS&"user_login")
if member_login<>"" then
set LSRs=conn.execute("select * from job_Member where Member_login='"&member_login&"'")
	if LSRs("Member_name")<>"" then
	Loginshowmsg=LSRs("Member_name")
		if LSRs("Member_contact")<>"" then
		Loginshowmsg=Loginshowmsg&"("&LSRs("Member_contact")&")"
		end if
	else
	Loginshowmsg=session(""&FRHRCMS&"user_login")
	end if
Select Case session(""&FRHRCMS&"user_type")
	Case "pmember"
	LoginChannel=1
	Case "cmember"
	LoginChannel=2
	Case Else
	LoginChannel=0
End Select
Response.Write"<div style='float:left; width:100%;'><span class='mainlogin'>"&Loginshowmsg&"，您好 | <a href='"&SiteUrl&InstallDir&"login.asp?Action=loginout&LoginChannel="&LoginChannel&"'>退出</a></span></div>"
end if
End Sub
Sub Pmembermenu(menuid)
Select Case menuid
	Case 1
Response.Write"<div class='mainmenu'><ul>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_info.asp'>基本信息</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_photo.asp'>照片管理</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_pwd.asp'>修改密码</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_email.asp'>修改邮箱</a></li>"
Response.Write"</ul></div>"
	Case 2
Response.Write"<div class='mainmenu'><ul>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_resume.asp'>简历列表</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_certificate.asp'>资格证书</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_openresume.asp'>公开设置</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_template.asp'>简历模板</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_sendresume.asp'>外发简历</a></li>"
Response.Write"</ul></div>"
	Case 3
Response.Write"<div class='mainmenu'><ul>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_works.asp'>工作申请记录</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_interview.asp'>面试通知</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_favorite.asp'>职位收藏</a></li>"
Response.Write"</ul></div>"
	Case 4
Response.Write"<div class='mainmenu'><ul>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_letters.asp'>求职信</a></li>"
Response.Write"</ul></div>"	
	Case 5
Response.Write"<div class='mainmenu'><ul>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_searchworks.asp'>快速查询</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"person/person_powersearch.asp'>全能搜索</a></li>"
Response.Write"</ul></div>"
	Case Else
End Select

End Sub
Sub Cmembermenu(menuid)
Select Case menuid
	Case 1
Response.Write"<div class='mainmenu'><ul>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_info.asp'>基本资料</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_pwd.asp'>修改密码</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_email.asp'>修改邮箱</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_uploadlogo.asp'>企业LOGO上传</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_deptlist.asp'>部门管理</a></li>"
Response.Write"</ul></div>"
	Case 2
Response.Write"<div class='mainmenu'><ul>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_hirelist.asp?step=Addhire'>发布职位</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_hirelist.asp'>职位管理</a></li>"
Response.Write"</ul></div>"
	Case 3
Response.Write"<div class='mainmenu'><ul>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_works.asp'>收到应聘简历</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_interview.asp'>邀请面试记录</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_myexpert.asp'>企业人才库</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_recycle.asp'>简历回收站</a></li>"
Response.Write"</ul></div>"
	Case 4
Response.Write"<div class='mainmenu'><ul>"
Response.Write"</ul></div>"
	Case 5
Response.Write"<div class='mainmenu'><ul>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_searchresume.asp'>快速查询</a></li>"
Response.Write"<li><a href='"&SiteUrl&InstallDir&"company/company_powersearch.asp'>高级搜索</a></li>"
Response.Write"</ul></div>"
	Case Else
End Select

End Sub

'*******************************************************
'标签转换函数
'*******************************************************
function CreateHTMLReplace(html)
 if html<>"" and not isnull(html) then
	HTMLCode=Replace(html,"{$FR_网站名称}",SiteName)
	HTMLCode=Replace(HTMLCode,"{$FR_网站标题}",SiteTitle)
	HTMLCode=Replace(HTMLCode,"{$FR_网站网址}",SiteUrl)
	HTMLCode=Replace(HTMLCode,"{$FR_LOGO地址}",LogoUrl)
	HTMLCode=Replace(HTMLCode,"{$FR_网站版权}",Copyright)
	HTMLCode=Replace(HTMLCode,"{$FR_网站关键字}",Meta_Keywords)
	HTMLCode=Replace(HTMLCode,"{$FR_网站描述}",Meta_Description)
	HTMLCode=Replace(HTMLCode,"{$FR_联系人}",ContactMan)
	HTMLCode=Replace(HTMLCode,"{$FR_联系地址}",ContactAddress)
	HTMLCode=Replace(HTMLCode,"{$FR_联系电话}",ContactPhone)
	HTMLCode=Replace(HTMLCode,"{$FR_联系传真}",ContactFax)
	HTMLCode=Replace(HTMLCode,"{$FR_管理员名称}",WebmasterName)
	HTMLCode=Replace(HTMLCode,"{$FR_管理员邮箱}",WebmasterEmail)
	HTMLCode=Replace(HTMLCode,"{$FR_系统目录}",InstallDir)
	HTMLCode=Replace(HTMLCode,"{$FR_管理员目录}",AdminDir)
	HTMLCode=Replace(HTMLCode,"{$FR_HTML目录}",HTMLPath)
	HTMLCode=Replace(HTMLCode,"{$FR_页尾导航}",GetSitebottomnav())
 CreateHTMLReplace=HTMLCode
 end if
end function
'**********************************
myarray = array ("网站首页模板","频道首页模板","列表页模板","内容页模板","搜索页模板","公告页模板","公告列表页模板","友情连接页模板","网站调查页模板","版权声明页模板","会员注册页模板","职位信息模板","企业简介模板","个人简历模板","职位列表模板","密码找回模板","猎头项目介绍","猎头职位列表","猎头职位内容","在线支付模板","评论页模板")
Groupid = array ("1","2")
Grouptype = array ("个人会员","企业会员")

'**********************************
'******************************************
'函数名: Show_Err()
'作用:显示错误信息
'参数:无
'返回值：无
'******************************************
Sub Show_Err()
	Err.Clear
	Dim HtmlStr
		HtmlStr="<table width='100%' border='0' align='center' cellpadding='3' cellspacing='1' class='tableBorder mt10'>" & vbcrlf
		HtmlStr=HtmlStr&"	<tr class='topbg'><th class='tableHeaderText' height=22>操作失败！</th></tr>" & vbcrlf
		HtmlStr=HtmlStr&"	<tr class='tdbg'><td height='100' valign='top' style='padding-left:10px;'><br><b>错误提示:</b>" & ErrMsg &"</td></tr>" & vbcrlf
		HtmlStr=HtmlStr&"	<tr align='center' class='tdbg'><td><input name='goBack' type='button' class='inputs' value=' 返 回 ' onClick='javascript:history.back()'></td></tr>" & vbcrlf
		HtmlStr=HtmlStr&"</table>" & vbcrlf
		Response.Write HtmlStr
End Sub
'******************************************
'函数名: Show_Suc()
'作用:显示成功信息
'参数:无
'返回值：无
'******************************************
Sub Show_Suc(InFo)
   Dim HtmlStr
	  HtmlStr="<table width='100%' border='0' align='center' cellpadding='3' cellspacing='1' class='tableBorder mt10'>"
	  HtmlStr=HtmlStr&"<tr>"
	  HtmlStr=HtmlStr&"<td class=tr>"
	  HtmlStr=HtmlStr&"<div align='center'><font color='ffffff'><b>操作成功</b></font></div></td>"
	  HtmlStr=HtmlStr&"</tr>"
	  HtmlStr=HtmlStr&"<tr class=Td>"
	  HtmlStr=HtmlStr&"<td><div align='left'><li>"&InFo&"</li></div></td>"
	  HtmlStr=HtmlStr&"</tr>"
	  HtmlStr=HtmlStr&"<tr>"
	  HtmlStr=HtmlStr&"<td align='center' class=Td><a href='javascript:history.go(-1)'><< 返回上一页</a></td>"
	  HtmlStr=HtmlStr&"</tr>"
	  HtmlStr=HtmlStr&"</table>"
	  Response.Write HtmlStr 
End Sub
sub ChannelNametitle()
if wid<>"" then
	sql="select * from JOB_Channel where ChannelID = "&wid
	set rsc=conn.execute(sql)
	if not rsc.eof then
		response.write rsc("ChannelName")
	end if
	rsc.close
	set rsc=nothing
end if
end sub
function CheckStr(str)
 if str<>"" and not isnull(str) then 
   CheckStr=replace(str,"'","&#39;")
   CheckStr=replace(CheckStr, ">", "&gt;")
   CheckStr=replace(CheckStr, "<", "&lt;")
   CheckStr=replace(CheckStr, " ", "&nbsp;")
 end if
end function
function CheckStrbox(str)
 if str<>"" and not isnull(str) then 
   CheckStrbox=replace(str,"'","&#39;")
   CheckStrbox=replace(CheckStrbox, ">", "&gt;")
   CheckStrbox=replace(CheckStrbox, "<", "&lt;")
   CheckStrbox=replace(CheckStrbox, " ", "&nbsp;")
   CheckStrbox=replace(CheckStrbox, chr(13), "<br>")
 end if
end function
function ChangeStrbox(str)
 if str<>"" and not isnull(str) then 
   ChangeStrbox=replace(str,"<br>" ,chr(13))
 end if
end function
function lenmix(checkstr)
   lenTotal = 0
   for i=1 to Len(checkstr)
   strWord = mid(checkstr,i,1)
   if asc(strWord) < 0 or asc(strWord) > 127 then
    lenTotal = lenTotal + 2
   else
    lenTotal = lenTotal + 1
   end if
   next
   lenmix = lentotal
end function
Function JoinChar(strUrl)
	if strUrl="" then
		JoinChar=""
		exit function
	end if
	if InStr(strUrl,"?")<len(strUrl) then 
		if InStr(strUrl,"?")>1 then
			if InStr(strUrl,"&")<len(strUrl) then 
				JoinChar=strUrl & "&"
			else
				JoinChar=strUrl
			end if
		else
			JoinChar=strUrl & "?"
		end if
	else
		JoinChar=strUrl
	end if
End Function
'******************************************
'新闻标题颜色处理(去色)
'******************************************
Function ClearColor(msg)
	if msg="" then
		exit function
	end if
	if left(msg,5)="<font" then
		msg=right(msg,len(msg)-20)
		msg=left(msg,len(msg)-7)
	end if
	ClearColor=msg
End Function
'******************************************
'新闻标题颜色处理(加色截取长度)
'******************************************
Function AppendColor(msg,num)
	if msg="" then
		exit function
	end if
	if not isNumeric(num) then
		num=20
	end if
	if left(msg,5)="<font" then
		msgcolorl=left(msg,20)
		msgcolorr=right(msg,7)
		msg=right(msg,len(msg)-20)
		msg=left(msg,len(msg)-7)
	end if
	msg=left(msg,num)
	msg=msgcolorl&msg&msgcolorr
	AppendColor=msg
End Function
'******************************************
'函数名: Showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
'作用:返回分页连接
'参数:sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnitU
'返回值：
'******************************************
Function showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
	dim n, i,strTemp,strUrl
	if totalnumber mod maxperpage=0 then
    	n= totalnumber \ maxperpage
  	else
    	n= totalnumber \ maxperpage+1
  	end if
  	strTemp= "<table align=""center""><tr><td>"& vbCrLf
	strTemp=strTemp & "共 <font color=""#0000FF""><b>" & totalnumber & "</b></font> " & strUnit & "&nbsp;&nbsp;&nbsp;"
	strUrl=JoinChar(sfilename)
  	if Page<2 then
    	strTemp=strTemp & "首页 上一页&nbsp;"
12345

⌨️ 快捷键说明

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