<!--#include file="../inc/conn.asp" -->

<% 
 '===========================================================================================
	'软件名称：126 cms 视频影视管理系统
	'程序版权：126电影               '咨询QQ：479025
	'开发作者：magicblack(479025)    '官方网站：http://www.126oo.com/
	'Copyright (C) 2009 - ... 126oo.com  All Rights Reserved.
	'郑重声明:
	'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
	'    2、任何个人或组织不得以盈利为目的发布,修改,本软件及其他副本上一切关于版权的信息；
	'    3、126电影保留此软件的法律追究权利；
'==========================================================================================
%>

<%
	dim para : para = request.QueryString
	
	if isN(para) then
		topicindex
	else
		Dim ID,ID1,page
		ID = Request.ServerVariables("QUERY_STRING")
		ID1 = Replace(ID,"."&app_htmlSuffix&"","")
		
	    If not isNum(ID1) then
	    	ShowMsg "请勿传递非法参数！","../index.asp"
		end if
		currentTopicId = ID1
		showtopic ID1
	end if
		
	sub showtopic(id)
	
		dim sql,rs
		sql="select T_ID,T_Name,T_EnName,T_template from Tbl_Topic where T_ID ="&id
		
		set rs = Database.GetRecordBySQL(sql)
		if rs.eof then ShowMsg "不存在此专题!","index.asp"
		
		Dim Filepath : Filepath= app_installdir&"template/"&app_templatedir&"/"&app_htmldir&"/" & getData(rs("T_template"))
		
		
		TemplateOBJ.html = CacheOBJ.loadFileOnCache("template_",Filepath)
		TemplateOBJ.replaceLabel()
		TemplateOBJ.html = replace(TemplateOBJ.html,"{topic:name}",getData(rs("t_name")))
		response.Write TemplateOBJ.html
		Database.C(rs)
	end sub 
	
	sub topicindex
		if app_viewtype <> 0 then 
			response.Redirect(app_installdir&app_topicpath&"index."&app_htmldir)
		end if
		
		Dim Filepath : Filepath= app_installdir&"template/"&app_templatedir&"/"&app_htmldir&"/topic.html"
		CacheOBJ.clscache()
		TemplateOBJ.html = CacheOBJ.loadFileOnCache("template_",Filepath)
		TemplateOBJ.replaceLabel()
		response.Write TemplateOBJ.html
	end sub
%>