<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'//              Z-Blog
'// 作    者:    朱煊(zx.asd)
'// 版权所有:    RainbowSoft Studio
'// 技术支持:    rainbowsoft@163.com
'// 程序名称:    
'// 程序版本:    
'// 单元名称:    catalog.asp
'// 开始时间:    2005.02.11
'// 最后修改:    
'// 备    注:    目录
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<!-- #include file="c_option.asp" -->
<!-- #include file="c_function.asp" -->
<!-- #include file="c_system_lib.asp" -->
<!-- #include file="c_system_base.asp" -->
<!-- #include file="CACHE/CACHE_ARTICLE_LIST.asp" -->
<%

LoadGlobeCache

Dim ArtList
Dim ccVCobj,ccAct
Set ccVCobj = New TViewCounter
ccAct = Trim(Request.QueryString("type"))

If ccAct = "" Or IsEmpty(ccAct) = True Or IsNull(ccAct) = True Then
	ccAct = Request.Cookies(ZC_BLOG_CLSID&"ListType")
End If

If ccAct = "list" Then
	If ccAryArticle(0,0) = 0 Then Call ShowError(39)
	Response.Cookies(ZC_BLOG_CLSID&"ListType") = "list"
	Response.Cookies(ZC_BLOG_CLSID&"ListType").Expires = Date + 365
	Set ArtList=New TArticleListList
	ArtList.LoadCache
	ArtList.template="CATALOG"
		If ArtList.ExportByCache(Request.QueryString("page"),Request.QueryString("cate"),Request.QueryString("auth"),Request.QueryString("date"),Request.QueryString("tags"),ZC_DISPLAY_MODE_ALL) Then
		ArtList.Build
	End If
ElseIf ccAct = "preview" Then
	Response.Cookies(ZC_BLOG_CLSID&"ListType") = "preview"
	Response.Cookies(ZC_BLOG_CLSID&"ListType").Expires = Date + 365
	Set ArtList=New TArticleList
	ArtList.LoadCache
	ArtList.template="CATALOG"
		If ArtList.ExportByCache(Request.QueryString("page"),Request.QueryString("cate"),Request.QueryString("auth"),Request.QueryString("date"),Request.QueryString("tags"),ZC_DISPLAY_MODE_ALL) Then
		ArtList.Build
	End If
Else
	Response.Cookies(ZC_BLOG_CLSID&"ListType") = cc_opt_catalog_show
	Response.Cookies(ZC_BLOG_CLSID&"ListType").Expires = Date + 365
	Set ArtList=New TArticleList
	ArtList.LoadCache
	ArtList.template="CATALOG"
		If ArtList.ExportByCache(Request.QueryString("page"),Request.QueryString("cate"),Request.QueryString("auth"),Request.QueryString("date"),Request.QueryString("tags"),ZC_DISPLAY_MODE_ALL) Then
		ArtList.Build
	End If
End If

Response.Write ArtList.html

Set ccVCobj = Nothing
%><!-- <%=RunTime()%> --><%
If Err.Number<>0 then
	Call ShowError(0)
End If
%>