www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > index.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="web.config.asp"-->
<!--#include file="include/function.tag.siteIndex.asp"-->
<!--#include file="include/function.tag.article.asp"-->
<!--#include file="include/function.tag.soft.asp"-->
<!--#include file="include/Tag.Channel.asp"-->
<!--#include file="include/Tag.product.asp"-->
<%
Dim oDeep_Cache
Set oDeep_Cache = New Deep_Cache
oDeep_Cache.CacheGroupName="DeepStudy_cms"	'缓存组的名称 （当一个站点中有多个缓存组时，则需要为每个缓存组设置不同的名称） 
											'默认值：DeepStudy

Dim strHtml:strHtml=""

if  oDeep_Cache.CacheIsEmpty("Cache_Site_Index")=false Then
    strHtml = oDeep_Cache.GetValue("Cache_Site_Index")
Else

'response.write "========test============"

	dim oDeepTemplate
	set oDeepTemplate=new Deep_Template


		oDeepTemplate.templates_dir="themes/"&site_theme&"/"
		'template=oDeepTemplate.readTemplateFile("index.htm")
		oDeepTemplate.readTemplateFile("index.template.html")	'调入文件
		'response.Write(oDeepTemplate.template)
		oDeepTemplate.replaceText "theme.css","themes/"&site_theme&"/theme.css"
		oDeepTemplate.replaceText "src=""./js/","src=""./themes/"&site_theme&"/js/"
		
		do_replace_siteConfig(oDeepTemplate)	'替换网站基本配置信息标签
		
		'导航
		call do_replace_Channel()
		'广告
		call do_replace_AD()
		'response.Write( oDeepTemplate.template )
		oDeepTemplate.replaceTag "article_ppt",getHTML_article_ppt(5,"article/")
		oDeepTemplate.replaceTag "article_new",getHTML_article_new(10,"article/")
		oDeepTemplate.replaceTag "article_new_tip",getHTML_article_new_tip(10,"article/")
		oDeepTemplate.replaceTag "article_sideBar",getHTML_articleList(2,8,"article/")
		oDeepTemplate.replaceTag "article_elite",getHTML_article_elite(10,"article/")
		oDeepTemplate.replaceTag "index_articleClassView",getHTML_index_articleClassView(0,10,"article/","span-9",2)
		oDeepTemplate.replaceTag "index_middle_1(3,5)",getHTML_index_middle(3,5,"span-18 last","span-9",0,2)
		oDeepTemplate.replaceTag "index_middle_2(4,5)",getHTML_index_middle(4,5,"span-24","span-6",1,4)
		oDeepTemplate.replaceTag "index_middle_3(5,5)",getHTML_index_middle(5,5,"span-18 last","span-9",2,2)
		
		oDeepTemplate.replaceTag "getHTML_index_soft",getHTML_index_soft(0,5,"span-18 last","span-9",1,2)
		
		oDeepTemplate.replaceTag "index_Photo",getHTML_index_photo()
		
		oDeepTemplate.replaceTag "friendLink",getHTML_friendLink
		oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic

		oDeepTemplate.replaceTag "index_ChannelTitleContent",getHTML_IndexChannelTitleContent
		oDeepTemplate.replaceTag "Index_ProductCommend",getHTML_IndexProductCommend
		oDeepTemplate.replaceTag "productClassTree",getHTML_productClassTree

		
		oDeepTemplate.display()	'显示

	

    oDeep_Cache.SetValue "Cache_Site_Index", oDeepTemplate.template

	set oDeepTemplate=Nothing
End If

Response.Write strHtml

		'oDeep_Cache.DelAllCache ()

' ===================
Set oDeep_Cache = Nothing


call CloseConnDB()
%>