www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > soft/softClass.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% projectRootPath = "../" '相对当前应用程序根的位置 %> <!--#include file="../web.config.asp"--> <!--#include file="../include/function.tag.article.asp"--> <!--#include file="../include/function.tag.soft.asp"--> <% id=request.QueryString("id") if (id="") or (not isNumeric(id)) then response.Redirect("index.asp") end if sql="select fclass_ID,fparentID,ftip,fclassName from deep_softClass 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("softClass.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 "friendLink",getHTML_friendLink oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic '--------------------------------- strSiteNavClassList = siteNavClassList("softClass.asp",fparentID,"select fclass_ID,fparentID,fclassName from deep_softClass where fisView=1 and fclass_ID=") oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList oDeepTemplate.replaceTag "softClass_className",fclassName if(isSub("deep_softClass","fparentID",id))then oDeepTemplate.replaceTag "softClass_softClass", getHTML_softClass(id,10,"span-18","span-9",1,2) else oDeepTemplate.replaceTag "softClass_softClass", getHTML_softClassList(id,50) end if '--------------------------------- oDeepTemplate.display() '显示 set oDeepTemplate=nothing call CloseConnDB() %>