<!--#include file="inc/MainClass.asp"-->
<%
alertMsg "请先安装程序，正在跳转到安装文件","install.asp"
'****************************************************
' MaxCms2.0
' Web: http://www.maxcms.net
' 2005-2009 Dreamwindows Inc. All rights reserved
' author:ElapsedBloom  2008-12-15
'****************************************************
if not runMode="dynamic"  then
	response.Redirect("/"&sitePath&"index"&fileSuffix)
else
	dim templateobj,templatePath,indexStr : set templateobj = mainClassobj.createObject("MainClass.template")
	echoIndex
	set templateobj =nothing : terminateAllObjects
end if

Sub echoIndex
	dim cacheName : cacheName="parsed_index"
	templatePath="/"&sitePath&"template/"&defaultTemplate&"/"&templateFileFolder&"/index.html"
	if cacheStart=1 then 
		if cacheObj.chkCache(cacheName)   then indexStr = cacheObj.getCache(cacheName) else  parseIndexPart : cacheObj.setCache cacheName,indexStr
	else
		parseIndexPart
	end if
	echo replaceStr(indexStr,"{maxcms:runinfo}",getRunTime()) 
End Sub

Sub parseIndexPart
	with templateObj : .load(templatePath) : .parseTopAndFoot() : .parseSelf() : .parseGlobal() : .parseMenuList() : .parseAreaList() : .parseVideoList() : .parseTopicList() : .parseLinkList : .content=replaceCurrentTypeId(.content) : .parseIf() : indexStr = .content : end with
End Sub
%>