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

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../"	'相对当前应用程序根的位置
%>
<!--#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(projectRootPath&"index.asp")
end if
sql="select fclass_ID,fparentID,ftip,fclassName from deep_ArticleClass where fisView=1 and fclass_ID="&id&" order by forderId,fclass_ID"
set rs=conn.execute(sql)
if(rs.eof and rs.bof)then
	'
else
	fclass_ID=rs("fclass_ID")
	fparentID=rs("fparentID")
	ftip=rs("ftip")
	fclassName=rs("fclassName")
end if
rs.close
set rs=nothing



dim oDeepTemplate
set oDeepTemplate=new Deep_Template
	oDeepTemplate.templates_dir= projectRootPath & "themes/"&site_theme&"/"
	'template=oDeepTemplate.readTemplateFile("index.htm")
	oDeepTemplate.readTemplateFile("articleClass.template.html")	'调入文件
	'response.Write(oDeepTemplate.template)
	'template=replace(template,"../base.css","themes/base.css")
	'template=replace(template,"theme.css","themes/"&site_skin&"/theme.css")
	'oDeepTemplate.replaceTag "../base.css", projectRootPath & "themes/base.css"
	oDeepTemplate.replaceText "theme.css",projectRootPath & "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,"")
	
	oDeepTemplate.replaceTag "friendLink",getHTML_friendLink
	oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic
	
	'---------------------------------
	strSiteNavClassList = siteNavClassList("articleClass.asp",fparentID,"select fclass_ID,fparentID,fclassName from deep_ArticleClass where fisView=1 and fclass_ID=") 
	oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList
	
	oDeepTemplate.replaceTag "articleClass_className",fclassName
	if(isSub("deep_ArticleClass","fparentID",id))then
		oDeepTemplate.replaceTag "articleClass_articleClass",	getHTML_articleClass(id,10,"span-18","span-9",1,2)	
	else
		oDeepTemplate.replaceTag "articleClass_articleClass",	getHTML_articleClassList(id,50)	
	end if
	'---------------------------------
		oDeepTemplate.replaceTag "productClassTree",getHTML_productClassTree

	oDeepTemplate.display()	'显示
	
set oDeepTemplate=nothing

call CloseConnDB()

%>