www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > product/productClass.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_ProductClass 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("productClass.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("productClass.asp",fparentID,"select fclass_ID,fparentID,fclassName from deep_ProductClass where fisView=1 and fclass_ID=") oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList oDeepTemplate.replaceTag "productClass_className",fclassName if(isSub("deep_ArticleClass","fparentID",id))then oDeepTemplate.replaceTag "productClass_productClass", getHTML_productClass(id,10,"span-18","span-9",1,2) else oDeepTemplate.replaceTag "productClass_productClass", getHTML_productClassList(id,50) end if '--------------------------------- oDeepTemplate.replaceTag "productClassTree",getHTML_productClassTree oDeepTemplate.display() '显示 set oDeepTemplate=nothing call CloseConnDB() %>