<!--#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 ID,ID1,ID2,page
	if app_viewtype=0 Then
		ID = Request.ServerVariables("QUERY_STRING") 
		ID1 = Replace(ID,"."&app_htmlSuffix&"","")
		if instr(ID1,"-") > 0 then
			ID2 = Split(ID1,"-")
			currenttypeid= ID2(0)
			if UBound(ID2) >=1 then
				page= ID2(1)
			else
				page =1
			end if
		else
			currenttypeid = ID1
			page =1
		end if
	else 
		response.Redirect("../index.asp")
	end if
	
	If not isNum(currenttypeid) then
	  ShowMsg "请勿传递非法参数！","../index.asp"
	end if
	
	if not isNum(page) then
	  page=1
	else
	  page= clng(page)
	end if

	Dim Filepath : Filepath= app_installdir&"template/"&app_templatedir&"/"&app_htmldir&"/list.html"
	
	TemplateOBJ.html = CacheOBJ.loadFileOnCache("template_",Filepath)
	TemplateOBJ.replaceLabel()
	TemplateOBJ.html = replace(TemplateOBJ.html,"{typepage:id}",currenttypeid)
	TemplateOBJ.html = replace(TemplateOBJ.html,"{typepage:name}",getDicName("tbl_type","t_name","t_id",currenttypeid))
	TemplateOBJ.html = replace(TemplateOBJ.html,"{typepage:link}",getTypeLink(currenttypeid))
	response.Write TemplateOBJ.html
	
%>