<!--#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,currentarticleid
	if app_viewtype=0 Then
		ID = Request.ServerVariables("QUERY_STRING") 
		ID1 = Replace(ID,"."&app_htmlSuffix&"","")
		ID2 = Split(ID1,"-")
		currentarticleid= ID2(0)
	else 
		response.Redirect("../index.asp")
	end if
	
	If not isNum(currentarticleid) then
	  ShowMsg "请勿传递非法参数！","../index.asp"
	end if
	
Dim rs : Set rs = Database.GetRecordDetail("Tbl_Article","a_ID=" & currentarticleid)  
if rs.eof then ShowMsg "找不到此ID的文章!","index.asp"

	Dim Filepath : Filepath= app_installdir&"template/"&app_templatedir&"/"&app_htmldir&"/article.html"
	CacheOBJ.clscache()
	TemplateOBJ.html = CacheOBJ.loadFileOnCache("template_",Filepath)
	TemplateOBJ.replaceLabel()
	TemplateOBJ.html = replace(TemplateOBJ.html,"[articleinfo:id]",rs("A_ID"))
	TemplateOBJ.html = replace(TemplateOBJ.html,"[articleinfo:name]",rs("A_Title"))
	TemplateOBJ.html = replace(TemplateOBJ.html,"[articleinfo:author]",rs("A_author"))
	TemplateOBJ.html = replace(TemplateOBJ.html,"[articleinfo:des]",getData(rs("A_Content")))
	TemplateOBJ.html = replace(TemplateOBJ.html,"[articleinfo:time]",getData(rs("A_AddTime")))
	TemplateOBJ.html = replace(TemplateOBJ.html,"[articleinfo:hit]","<script type=""text/javascript"" language=""javascript"" src="""&app_installdir&"inc/service.asp?action=atriclehit&id="&rs("a_id")&"""></script>")
	
	Database.C(rs)
	response.Write TemplateOBJ.html
	
%>