www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > product/product.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 fid,fclass_ID,fproductName,fproductPic,fproductExplain from deep_Product where fisView=1 and fid=" & id
set rsProduct=conn.execute(sql)
if (rsProduct.eof and rsProduct.bof) then
  'response.Write("没有记录")
else

	fid		= rsProduct("fid")
	fclass_ID	= rsProduct("fclass_ID")
	fproductName		= rsProduct("fproductName")
	fproductPic		= "upLoadFile/product/"&rsProduct("fproductPic")	
	fproductExplain= rsProduct("fproductExplain")	
		
end if
rsProduct.close
set rsProduct=nothing

dim oDeepTemplate
set oDeepTemplate=new Deep_Template
	oDeepTemplate.templates_dir= projectRootPath & "themes/"&site_theme&"/"
	'template=oDeepTemplate.readTemplateFile("index.htm")
	oDeepTemplate.readTemplateFile("product.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 "product_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",fclass_ID,"select fclass_ID,fparentID,fclassName from deep_ProductClass where fisView=1 and fclass_ID=") 
	oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList
	
	'oDeepTemplate.replaceTag "channel_contentTitle",fcontentTitle
	'oDeepTemplate.replaceTag "channel_content",fcontent
	oDeepTemplate.replaceTag "product_title",fproductName	
	oDeepTemplate.replaceTag "product_productPic", fproductPic		
	oDeepTemplate.replaceTag "product_productExplain",fproductExplain	
	'------------------------
		oDeepTemplate.replaceTag "productClassTree",getHTML_productClassTree

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

call CloseConnDB()

%>