<!--#include file="Conn.asp"-->
<!--#include file="fy_inc/fy.Main.asp"-->
<!--#include file="fy_inc/fy.Code.asp"-->
 <%

Dim fycms,TemplateContent,ACT_L,Fso,CurrPage
Set Fso = Server.CreateObject("scripting.FileSystemObject")
 If Fso.FileExists(Server.MapPath("Install/index.asp")) And Not Fso.FileExists(Server.MapPath("Install/Install.lock")) Then
    Set Fso = Nothing: Response.Redirect "Install/Index.Asp": Response.End
Else
	Set fycms = New ACT_Main
	If Split(fycms.fycms_Sys(4),".")(1)<>"asp" Then 
		Response.Redirect fycms.fycms_Sys(4):Response.End
	Else
		 Set ACT_L = New ACT_Code
		 TemplateContent = LoadTemplate(fycms.fycms_Sys(9))
		 Application(fycmsN & "fycms_TCJ_Type") = "Index"
		 Application(fycmsN & "ClassID")="0"
		 Application(fycmsN & "modeid")=1
		 CurrPage = ChkNumeric(request("page"))
		 If TemplateContent = "" Then TemplateContent = "模板不存在 by fycms"
		 Dim newt:Set newt=New Cls_Template
		 If fycms.fycms_Sys(8)="0" Then 
			 TemplateContent=newt.GetTabContentPage(TemplateContent,"0",CurrPage,"","index.html",false,"page/")'自定义函数
		 Else 
			 TemplateContent=newt.GetTabContentPage(TemplateContent,"0",CurrPage,"","index.html",false,"index.asp?page=")'自定义函数
		 End If 

 		 echo TemplateContent
		' echo fycms.Runtime
   		 Set ACT_L = Nothing: Set fycms = Nothing
	End If 
End If 


 
 %> 