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() %>