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

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="web.config.asp"-->
<!--#include file="include/function.tag.article.asp"-->
<!--#include file="include/Tag.product.asp"-->
<%
id=request.QueryString("id")
if (id="") or (not isNumeric(id)) then 
  response.Redirect("index.asp")
end if

	  
sql_channel="select fid,fparentID,fname,fcontentTitle,fcontent,fchannelPic from deep_Channel where fisView=1 and fid=" & id
set rsChannel=conn.execute(sql_channel)
if (rsChannel.eof and rsChannel.bof) then
  response.Write("没有记录")
else
	fid		= rsChannel("fid")
	fparentID	= rsChannel("fparentID")
	fname		= rsChannel("fname")
	fchannelPic		= rsChannel("fchannelPic")
	fcontentTitle	= rsChannel("fcontentTitle")
	fcontent		= rsChannel("fcontent")
end if
rsChannel.close
set rsChannel=nothing


dim oDeepTemplate
set oDeepTemplate=new Deep_Template
	oDeepTemplate.templates_dir="themes/"&site_theme&"/"
	'template=oDeepTemplate.readTemplateFile("index.htm")
	oDeepTemplate.readTemplateFile("channel.template.html")	'调入文件
	'oDeepTemplate.replaceTag "../base.css","themes/base.css"
	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)
	'oDeepTemplate.replaceTag "article_new",getHTML_article_new(10)
	oDeepTemplate.replaceTag "article_sideBar",getHTML_articleList(2,8,"article/")
	'oDeepTemplate.replaceTag "index_middle_1(3,5)",getHTML_index_middle(3,5,"span-18","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","span-9",2,2)
	
	'oDeepTemplate.replaceTag "getHTML_index_soft",getHTML_index_soft(0,5,"span-18","span-9",1,2)
	
	oDeepTemplate.replaceTag "friendLink",getHTML_friendLink
	oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic
	
	'---频道--------------------
	'if(fparentID<>0)then
	  strSiteNavClassList = siteNavClassList("",fparentID,"select fid,fparentID,fname from deep_Channel where fisView=1 and fid=") 
	'end if
    
	oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList
	oDeepTemplate.replaceTag "channel_name",fname
	oDeepTemplate.replaceTag "channel_contentTitle",fcontentTitle
	oDeepTemplate.replaceTag "channel_content",fcontent
	'------------------------
		oDeepTemplate.replaceTag "productClassTree",getHTML_productClassTree
	
	oDeepTemplate.display()	'显示
	
set oDeepTemplate=nothing

call CloseConnDB()

%>