<%
'生成首页、网站单页静态方法
Function html_To_Index(FileName, Ke01)
	dim newHtml
	set newHtml = new Html

	Call SiteInfo()
	FolderName = FileName
	Template = FileName & ".dwt"
	
	If FileName = "Index" Then
		FilePath = "Index." & HTMLName 
	Else
		FilePath = FolderName & "/Index." & HTMLName 
	End If

	If Ke01 = "PC" Then
		FilePath = RootHost & "/" & FilePath
		TemplatePath = TemplatePath
		TemplatePath = TemplatePath
	End If
	If Ke01 = "Mobile" Then
		FilePath = RootHost & "/" & mFolder & "/" & FilePath
		TemplatePath = mTemplatePath
		TemplatePath = mTemplatePath
	End If

	If SiteStatus Then
		with newHtml
			.ReadFromUTF TemFilePath & "/" & Template, "utf-8"
			.Include()
			.ReplaceCommon()
			.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
%>