📄 commonfunction.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<%Function ReplaceLableFlag(Content)
	Dim regEx, Matches, Match, TempStr
	Set regEx = New RegExp
	regEx.Pattern = "{\$[^{\$}]*}"
	regEx.IgnoreCase = True
	regEx.Global = True
	Set Matches = regEx.Execute(Content)
	ReplaceLableFlag = Content
	For Each Match In Matches
		On Error Resume Next
		TempStr = Match.Value
		TempStr = Replace(TempStr, Chr(13) & Chr(10), "")
		TempStr = Replace(TempStr, "{$", "")
		TempStr = Replace(TempStr, "}", "")
		TempStr = Left(TempStr, InStr(TempStr, "(") - 1) & "," & Mid(TempStr, InStr(TempStr, "(") + 1)
		TempStr = Left(TempStr, InStrRev(TempStr, ")") - 1)
		TempStr = Replace(TempStr, """", "")
	If Err.Number = 0 Then
		ReplaceLableFlag = Replace(ReplaceLableFlag, Match.Value, ChangeLableToFunction(TempStr))
	End If
	Next
End Function
'****************************************************
'函数名：ReplaceAllLabel
'作  用：将标签名称转换成对应标签内容
'参  数： Content需转换的内容
'****************************************************
Function ReplaceAllLabel(Content)
	Dim LabelRS, LabelSql
	Set LabelRS = Server.CreateObject("ADODB.Recordset")
	LabelSql = "Select LabelType,LabelName,LabelContent from JOB_Label Where LabelType<>3 order by Labelorder desc"
	LabelRS.Open LabelSql, Conn, 1, 1
	Do While Not LabelRS.EOF
		Content = Replace(Content, LabelRS(1), LabelRS(2))
	LabelRS.MoveNext
	Loop
	LabelRS.Close:Set LabelRS = Nothing
	Content=ReplaceUserFunctionLabel(Content)
	ReplaceAllLabel = Content
End Function
'**************************************************
'函数名：ChangeLableToFunction
'作  用：将标签转换为函数执行
'参  数： LabelContent  ----标签参数
'返回值：函数执行结果
'**************************************************
Function ChangeLableToFunction(LabelContent)
Dim LabelArr:LabelArr = Split(LabelContent, ",")

If LabelArr(0) = "" Then
	  ChangeLableToFunction = ""
	  Exit Function
End If
Select Case UCase(LabelArr(0))
  Case "GETSLIDE"                           '幻灯片文章
	 If UBound(LabelArr) = 12 Then
	   ChangeLableToFunction = GetSlide(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case "GETSITENAV"                         '频道导航
	 If UBound(LabelArr) = 1 Then
	   ChangeLableToFunction = GetSitenav(LabelArr(1))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case "GETLINK"                            '友情链接
	 If UBound(LabelArr) = 8 Then
	   ChangeLableToFunction = GetLink(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case "GETARTICLELIST"                    '文章列表
	 If UBound(LabelArr) = 14 Then
	   ChangeLableToFunction = GetArticleList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case "GETSCROLLARTICLELIST"              '文章列表
	 If UBound(LabelArr) = 13 Then
	   ChangeLableToFunction = GetScrollArticleList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case "GETCIRARTICLELIST"
	 If UBound(LabelArr) = 12 Then
	   ChangeLableToFunction =  GetCirArticleList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case "GETARTICLESEARCH"
	 If UBound(LabelArr) = 2 Then
	   ChangeLableToFunction =  GetArticleSearch(LabelArr(1), LabelArr(2))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case "GETLASTARTICLELIST"                '终级文章列表
	 If UBound(LabelArr) = 9 Then
	   ChangeLableToFunction =  GetLastArticleList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case "GETRESUMELIST"                    '人才列表
	 If UBound(LabelArr) = 15 Then
	   ChangeLableToFunction = GetResumeList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
  	 End If
  Case "GETCOMLIST"                    '企业列表
	 If UBound(LabelArr) = 19 Then
	   ChangeLableToFunction = GetComList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15), LabelArr(16), LabelArr(17), LabelArr(18), LabelArr(19))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case "GETHIRELIST"                    '职位列表
	 If UBound(LabelArr) = 12 Then
	   ChangeLableToFunction = GetHireList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12))
	 Else
	 ChangeLableToFunction = "标签参数溢出！"
	 End If
  Case Else
   ChangeLableToFunction = ""
   Exit Function
 End Select
End Function
'***************************************************
'替换自定义函数标签
'***************************************************
Function ReplaceUserFunctionLabel(Content)
	Dim LabelRS, LabelSql
	Set LabelRS = Server.CreateObject("ADODB.Recordset")
	LabelSql = "Select LabelType,LabelName,LabelContent from JOB_Label Where LabelType=3 order by Labelorder desc"
	LabelRS.Open LabelSql, Conn, 1, 1
	Do While Not LabelRS.EOF
		Content = Replace(Content, LabelRS(1), ReplaceDIYFunctionLabel(LabelRS(1)))
	LabelRS.MoveNext
	Loop
	LabelRS.Close:Set LabelRS = Nothing
ReplaceUserFunctionLabel = Content		
End Function
Function ReplaceDIYFunctionLabel(SqlLabel)
Dim I,DiyLabelRS,LabelName,FunctionRS,FunctionSQL,LabelContent,FunctionContent,FunctionField
LabelName = SqlLabel
Set DiyLabelRS=Server.CreateObject("ADODB.Recordset")
DiyLabelRS.Open "Select LabelIntro,LabelContent From JOB_Label Where LabelName='" & LabelName & "'",Conn,1,1
IF DiyLabelRS.Eof And DiyLabelRS.Bof Then
	DiyLabelRS.Close:Set DiyLabelRS=Nothing:ReplaceDIYFunctionLabel="":Exit Function
Else
	FunctionSQL = DiyLabelRS(0)
	LabelContent = DiyLabelRS(1)
	Set FunctionRS=Server.CreateObject("ADODB.Recordset")
	FunctionRS.Open FunctionSQL,Conn,1,1
	If InStr(LabelContent,"{Loop}")>0 And InStr(LabelContent,"{/Loop}")>0 Then
		If Left(LabelContent,6) <> "{Loop}" Then
		FunctionContent=Split(LabelContent,"{Loop}")(0)
		Else
		FunctionContent=""
		End If
		Do While Not FunctionRS.EOF
		If Split(FunctionSQL," ")(1)="Top" Then
		FunctionField=Split(Split(FunctionSQL," ")(3),",")
		Else
		FunctionField=Split(Split(FunctionSQL," ")(1),",")
		End if
		LabelContent=Split(Split(LabelContent,"{Loop}")(1),"{/Loop}")(0)
		For I = 0 To UBound(FunctionField)
		LabelContent=Replace(LabelContent,"{$"&FunctionField(I)&"}",FunctionRS(""&FunctionField(I)&""))
		Next
		FunctionContent=FunctionContent&LabelContent
		FunctionRS.MoveNext
		Loop
	Else
	FunctionContent=LabelContent
	End If
	FunctionRS.Close:Set FunctionRS=Nothing
End If
DiyLabelRS.Close:Set DiyLabelRS=Nothing
ReplaceDIYFunctionLabel=FunctionContent
End Function
'***************************************************
'函数名：GetLink
'返回值：
'***************************************************
Function GetLink(imgs,num,nums,row_num,row_nums,order,font_left,target)
Dim html
html=""
Select Case imgs
	Case 0
		If num=0 then
		sql="select * from JOB_links where link_key="&imgs&""
		Else
		sql="select top "&num&" * from JOB_links where link_key="&imgs&""
		End If
		sql=sql&" order by "&order&""
		Set rs=conn.execute(sql)
		If not rs.eof then
			i=1
			Do while not rs.eof
				If font_left=0 then
					link_name=rs("link_name")
				Else
					link_name=left(rs("link_name"),font_left)
				End If
				If i Mod row_num = 0 then
				html=html&"<a href="&rs("link_url")&" title="&rs("link_sm")&" target="&target&">"&link_name&"</a>&nbsp;<br>"
				Else
				html=html&"<a href="&rs("link_url")&" title="&rs("link_sm")&" target="&target&">"&link_name&"</a>&nbsp;"
				End If
				i=i+1
			rs.movenext
			Loop
		End If
		rs.close:Set rs=Nothing
	Case 1
		If nums=0 then
		sql="select * from JOB_links where link_key="&imgs&""
		Else
		sql="select top "&nums&" * from JOB_links where link_key="&imgs&""
		End If
		sql=sql&" order by "&order&""
		Set rs=conn.execute(sql)
		If not rs.eof then
			i=1
			Do while not rs.eof
				link_name="<img src="&rs("link_name")&" width=88 height=31 border=0 alt="&rs("link_sm")&">"
				If i Mod row_nums = 0 then
				html=html&"<a href="&rs("link_url")&" title="&rs("link_sm")&" target="&target&">"&link_name&"</a>&nbsp;<br>"
				Else
				html=html&"<a href="&rs("link_url")&" title="&rs("link_sm")&" target="&target&">"&link_name&"</a>&nbsp;"
				End If
				i=i+1
			rs.movenext
			Loop
		End If
		rs.close:Set rs=Nothing
	Case 2
		If num=0 then
		sql="select * from JOB_links where link_key=0"
		Else
		sql="select top "&num&" * from JOB_links where link_key=0"
		End If
		sql=sql&" order by "&order&""
		Set rs=conn.execute(sql)
		If not rs.eof then
			i=1
			Do while not rs.eof
				If font_left=0 then
					link_name=rs("link_name")
				Else
					link_name=left(rs("link_name"),font_left)
				End If
				If i Mod row_num = 0 then
				html=html&"<a href="&rs("link_url")&" title="&rs("link_sm")&" target="&target&">"&link_name&"</a>&nbsp;<br>"
				Else
				html=html&"<a href="&rs("link_url")&" title="&rs("link_sm")&" target="&target&">"&link_name&"</a>&nbsp;"
				End If
				i=i+1
			rs.movenext
			Loop
		html=html&"<br>"
		End If
		rs.close:Set rs=Nothing
		If nums=0 then
		sql="select * from JOB_links where link_key=1"
		Else
		sql="select top "&nums&" * from JOB_links where link_key=1"
		End If
		sql=sql&" order by "&order&""
		Set rs=conn.execute(sql)
		If not rs.eof then
			i=1
			Do while not rs.eof
				link_name="<img src="&rs("link_name")&" width=88 height=31 border=0 alt="&rs("link_sm")&">"
				If i Mod row_nums = 0 then
				html=html&"<a href="&rs("link_url")&" title="&rs("link_sm")&" target="&target&">"&link_name&"</a>&nbsp;<br>"
				Else
				html=html&"<a href="&rs("link_url")&" title="&rs("link_sm")&" target="&target&">"&link_name&"</a>&nbsp;"
				End If
				i=i+1
			rs.movenext
			Loop
		End If
		rs.close:Set rs=Nothing
End Select
GetLink=html
End Function
'***************************************************
'函数名：GetSitenav
'返回值：
'***************************************************
Function GetSitenav(str)
Dim Sitenav
Sitenav=""
sql="select * from JOB_Channel where ShowNameOnPath="&FR_HR_True&" and Disabled="&FR_HR_False&""
Select Case FR_HR_Edition
	Case 0
sql=sql&" and (ModuleType=1 or ModuleType=2 or ModuleType=6 or ModuleType=10 or ModuleType=14 or ModuleType is null)"
12 3 4 下一页
⌨️ 快捷键说明

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