<%
'生成招聘列表静态方法
Function html_To_JobSort(FileName, ke01)
	dim newHtml
	set newHtml = new Html

	Call SiteInfo()
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * from keyicms_System where DataForm=7", 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 Ke01 = "PC" Then
		FilePath = RootHost & "/" & JobDir & FolderName & "/" & FileName
		TemplatePath = TemplatePath
		TemplatePath = TemplatePath
	End If
	If Ke01 = "Mobile" Then
		FilePath = RootHost & "/" & mFolder & "/" & JobDir & FolderName & "/" & FileName
		TemplatePath = mTemplatePath
		TemplatePath = mTemplatePath
	End If

	If ID = "" and Page = "" and Checkfile(TemFilePath & "/Job.dwt") Then
		TemFile = "Job.dwt"
	Else
		TemFile = "JobList.dwt"
	End If

	If SiteStatus Then
		with newHtml
			.ReadFromUTF TemFilePath & "/" & TemFile, "utf-8"
			.Include()
			.Position "", 6
			.ReplaceCommon()

			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:ID}", ID)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:SortName}", SortName)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:SeoTitle}", SeoTitle)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:SeoKeywords}", SeoKeywords)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:SeoDescription}", SeoDescription)
			newHtml.replace_code = replace(newHtml.replace_code, "{keyicms:Content}", Content)

			set newMainClass = new MainClass
			With newMainClass
				.Load(newHtml.replace_code)
				.KE01_Job()
				newHtml.replace_code = newMainClass.Content
			End With
			set newMainClass = nothing

			.KE01_If()

			If Ke01 = "PC" Then newHtml.replace_code = newHtml.replace_code & ConstJs
		end with
	Else
		newHtml.replace_code = ExplainJS
	End If
	
	newHtml.WriteToUTF(FilePath)
	set newHtml = nothing
End Function
%>