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

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../"	'相对当前应用程序根的位置
%>
<!--#include file="../web.config.asp"-->


<!--#include file="../include/function.tag.photo.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_photoClass 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("photoClass.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 "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
	
	'---------------------------------
	strSiteNavClassList = siteNavClassList("photoClass.asp",fparentID,"select fclass_ID,fparentID,fclassName from deep_photoClass where fisView=1 and fclass_ID=") 
	oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList
	
	oDeepTemplate.replaceTag "photoClass_className",fclassName
	if(isSub("deep_photoClass","fparentID",id))then
		oDeepTemplate.replaceTag "photoClass_photoClass",	getHTML_photoClass(id,10,"span-18","span-9",1,2)	
	else
		oDeepTemplate.replaceTag "photoClass_photoClass",	getHTML_photoClassList(id,50)	
	end if
	'---------------------------------
	oDeepTemplate.display()	'显示
	
set oDeepTemplate=nothing

call CloseConnDB()

%>