<% if runMode="0" then dim tags dim templateobj,templatePath : set templateobj = new TemplateClass templatePath=sitePath&"/"&setting.htmlFilePath&"/index.html" 'die templatePath if not CheckTemplateFile(templatePath) then echo "index.html"&err_16 with templateObj .content=loadFile(templatePath) .parseHtml() .parseCommon templateObj.parseList 0,1,"taglist","","tags" templateObj.parseCommon tags=templateObj.content echo .content end with set templateobj =nothing : terminateAllObjects Else On Error Resume Next Server.Transfer(sitePath&setting.languagepath&"index"&FileExt) If -2147467259 = Err.Number Then Response.Write "缺少首页文件，请登录后台生成首页文件！" end If If DebugMode Then echo timer - AppSpan %>