<!--#include file="inc/MainClass.asp"-->
<%
'******************************************************************************************
' Software name: Max(马克斯) Content Management System
' Version:2.6_User
' Web: http://maxcms.bokecc.com
' Author: 石头、酒瓶
' Copyright (C) 2005-2009 北京梦之窗数码科技有限公司 版权所有
' 法律申明：MaxCMS程序所有代码100%原创、未引入任何网上代码,对一切抄袭行为、坚决严肃追究法律责任
'******************************************************************************************
dim templateobj,templatePath,indexStr : set templateobj = mainClassobj.createObject("MainClass.template")
echoIndex
set templateobj =nothing : terminateAllObjects


Sub echoIndex
	'cacheObj.showAllCache
	dim cacheName : cacheName="parsed_index_"&user.level
	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 : .content=loadFile(templatePath) : .parseTop():.parseFoot() :.parseSelf() : .parseGlobal() :.parseMenuList("") : .parseNewsList : .parseAreaList() : .parseVideoList() :.parseTopicList() :.parseLinkList : .content=replaceCurrentTypeId(.content) : .parseIf() : indexStr = .content : end with
End Sub
%>