<%
'生成招聘列表静态方法
Function html_To_RecruitmentSort(FileName, Page, bkkey)
	Call SiteInfo()
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * from BokeCMS_Module where DataForm=6", conn, 1, 2
	SortName = rs("SeoTitle")
	SeoTitle = rs("SeoTitle")
	If rs("SeoKeywords") <> "" Then
		SeoKeywords = rs("SeoKeywords")
	Else
		SeoKeywords = SeoTitle
	End If
	If rs("SeoDescription") <> "" Then
		SeoDescription = rs("SeoDescription")
	Else
		SeoDescription = SeoTitle
	End If
	Content = ""
	SortPath = "0,"
	FolderName = ""
	rs.close : set rs = nothing

	If bkkey = "PC" Then
		If Checkfile(TemplatePath&"/html/Recruitment.html") Then
			replace_code = ReadFromUTF(TemplatePath&"/html/Recruitment.html","utf-8")
		Else
			replace_code = ReadFromUTF(TemplatePath&"/html/RecruitmentList.html","utf-8")
		End If
		FilePath = "/" & RecruitmentDir & FolderName & "/" & FileName
		TemplatePath = TemplatePath
	End If
	If bkkey = "Mobile" Then
		If Checkfile(mTemplatePath&"/html/Recruitment.html") Then
			replace_code = ReadFromUTF(mTemplatePath&"/html/Recruitment.html","utf-8")
		Else
			replace_code = ReadFromUTF(mTemplatePath&"/html/RecruitmentList.html","utf-8")
		End If
		FilePath = "/wap/" & RecruitmentDir & FolderName & "/" & FileName
		TemplatePath = mTemplatePath
	End If

	If SiteStatus Then
		replace_code = Position(replace_code, "", 6, bkkey)
	
		replace_code = ReplaceCommon(replace_code, TemplatePath, bkkey)

		replace_code = replace(replace_code, "{bokecms:SortName}", SortName)
		replace_code = replace(replace_code, "{bokecms:SeoTitle}", SeoTitle)
		replace_code = replace(replace_code, "{bokecms:SeoKeywords}", SeoKeywords)
		replace_code = replace(replace_code, "{bokecms:SeoDescription}", SeoDescription)

		replace_code = HtmlTo(replace_code, "", "", bkkey, "")
	Else
		replace_code = ExplainJS
	End If
	
	If bkkey = "PC" Then replace_code = replace_code & ConstJs
	Call WriteToUTF(FilePath, replace_code)
End Function
%>