www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > include/function.tag.common.asp

    <%
'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：do_replace_siteConfig
'│作  用：替换网站基本配置信息标签
'│参  数：ooDeepTemplate： 模版对象
'│说  明：需在文章头部包含 此文件时自动添加 	
'│日  期：2008-2-7 	2010-1-14
'└──────────────────── www.deepstudy.cn ──┘
'function do_replace_siteConfig(strHTML)
function do_replace_siteConfig(byref ooDeepTemplate)

		ooDeepTemplate.replaceTag "Site_Name",		site_siteName					'网站名称
		ooDeepTemplate.replaceTag "Site_Title",	site_siteTitle					'网站标题
		ooDeepTemplate.replaceTag "Site_Url",		site_siteUrl					'网站地址
		ooDeepTemplate.replaceTag "Site_LogoUrl",	projectRootPath&site_upFilesDir & "config/"& site_logoUrl					'Logo地址
		ooDeepTemplate.replaceTag "Site_WebmasterName",	site_webmasterName		'站长姓名  
		ooDeepTemplate.replaceTag "Site_Copyright",		site_copyright			'版权信息 
		ooDeepTemplate.replaceTag "Site_ICP",		site_ICP						'ICP备案  
		ooDeepTemplate.replaceTag "Site_QQ",		site_QQ						'联系QQ  
		ooDeepTemplate.replaceTag "Site_MSN",		site_MSN						'联系MSN  
		ooDeepTemplate.replaceTag "Site_Email", 	site_Email						'站长信箱 
		ooDeepTemplate.replaceTag "Site_Phone", 	site_phone						'联系电话 
		ooDeepTemplate.replaceTag "Site_MetaKeywords",  	site_metaKeywords		'针对搜索引擎的关键字
		ooDeepTemplate.replaceTag "Site_MetaDescription", 	site_metaDescription	'针对搜索引擎的说明 
		ooDeepTemplate.replaceTag "site_upFilesDir",  	site_upFilesDir		'存放上传文件目录
		ooDeepTemplate.replaceTag "Site_theme",  			site_theme				'网站主题皮肤模版
		ooDeepTemplate.replaceTag "Site_hiddenArea", 		site_hiddenArea		'网站隐藏区域
		ooDeepTemplate.replaceTag "Site_isHTML", 			site_isHTML			'是否html静态 0否 1是

		ooDeepTemplate.replaceTag "SystemEdition", 			SystemEdition 			'程序版本
		ooDeepTemplate.replaceTag "SystemVersion", 			SystemVersion 			'程序版本号
		ooDeepTemplate.replaceTag "SystemBuildDate", 		SystemBuildDate 		'程序版本时间

		'if(isObject(oDeepTemplate))then
			'if not(oDeepTemplate is nothing )then
				'oDeepTemplate.template = strHTML	'
			'end if
		'end if

		do_replace_siteConfig = ooDeepTemplate.template
end function

'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：do_replace_AD
'│作  用：替换网站基本配置信息标签
'│参  数：strHTML： 模版文件内容
'│说  明：需在文章头部包含 此文件时自动添加 	
'│日  期：2008-2-7 	2009-6-24
'└──────────────────── www.deepstudy.cn ──┘
sub do_replace_AD()
	dim rs,i
	set rs=conn.execute("SELECT count(*) FROM deep_Advertisement")
	for i=1 to rs(0)
		oDeepTemplate.replaceTag "showAdvert("&i&")", showAdvert(i)	
	next
	rs.close
	set rs=nothing
end sub

'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：do_replace_AD
'│作  用：替换网站基本配置信息标签
'│参  数：strHTML： 模版文件内容
'│说  明：需在文章头部包含 此文件时自动添加 	
'│日  期：2008-2-7 	2009-6-24
'└──────────────────── www.deepstudy.cn ──┘
sub do_replace_Channel()
	dim rs,i
	set rs=conn.execute("SELECT count(*) from (SELECT distinct fplace from deep_channel)")
	for i=0 to rs(0)
		oDeepTemplate.replaceTag "channel("&i&")",getHTML_channel(i)	'导航
	next
	rs.close
	set rs=nothing
end sub



%>