<!--#include file="../fy.Function.asp"-->
<!--#include file="../../fy_inc/fy.Code.asp"-->
<% 
	Dim MakeIndex,TemplateContent
	Application(fycmsN & "fycms_TCJ_Type") = "Index"
	Application(fycmsN & "ClassID")="0"
	Application(fycmsN & "ModeID")=1
	Set MakeIndex =New ACT_Code
	If fycms.fycms_Sys(8)="0"  And Split(fycms.fycms_Sys(4),".")(1)<>"asp"  Then

		 Call fycms.Alert("FYCMS系统提醒您：\n\n1、首页设置伪静态,首页文件名必须是动态","../fy.Sys.asp"):Response.end
	End If 
	If Split(fycms.fycms_Sys(4),".")(1)="asp" Then Call fycms.Alert("FYCMS系统提醒您：\n\n1、站点首页文件以.ASP结尾的不能生成静态HTML\n\n2、请到系统设置->控制面板->改成Index.html","../fy.Sys.asp"):Response.end
	Application(fycmsN & "fycms_TCJ_Type") = "Index"
	TemplateContent = LoadTemplate(fycms.fycms_Sys(9))

	 Dim newt:Set newt=New Cls_Template
	 TemplateContent=newt.GetTabContentPage(TemplateContent,"0",1,"","index.html",false,"page/")'自定义函数



	IF TemplateContent = "" Then echo "error":Response.End
	Call SaveFile(TemplateContent,fycms.ActSys&fycms.fycms_Sys(4))	
	echo "<a  href=""" & fycms.ActSys&fycms.fycms_Sys(4) & """target=""_blank""" &  ">首页生成成功,点击浏览</a>"
 Set MakeIndex=Nothing:Set fycms=Nothing
 %>