<%
'生成首页、网站单页静态方法
Function html_To_Index(FileName, bkkey)
	Call SiteInfo()	
	FolderName = FileName
	Template = FileName&".html"
	
	If FileName = "Index" Then
		FilePath = "/Index."&HTMLName 
	Else
		FilePath = "/"&FolderName&"/Index."&HTMLName 
	End If
	If bkkey = "PC" Then
		replace_code = ReadFromUTF(TemplatePath&"/html/"&Template,"utf-8")'获得模板文件路径和文件名，请求编码
		FilePath = FilePath
		TemplatePath = TemplatePath
	End If
	If bkkey = "Mobile" Then
		replace_code = ReadFromUTF(mTemplatePath&"/html/"&Template,"utf-8")
		FilePath = "/wap"&FilePath
		TemplatePath = mTemplatePath
	End If

	If SiteStatus Then'如果网站开启
		replace_code = ReplaceCommon(replace_code, TemplatePath, bkkey)'替换标签内容
		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
%>