<%@ 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 %>
<%
Call System_Initialize()
'plugin node
For Each sAction_Plugin_Catalog_Begin in Action_Plugin_Catalog_Begin
If Not IsEmpty(sAction_Plugin_Catalog_Begin) Then Call Execute(sAction_Plugin_Catalog_Begin)
Next
Dim ArtList
Set ArtList=New TArticleList
ArtList.LoadCache
ArtList.template="CATALOG"
If ArtList.ExportByMixed(Request.QueryString("page"),Request.QueryString("cate"),Request.QueryString("auth"),Request.QueryString("date"),Request.QueryString("tags"),ZC_DISPLAY_MODE_ALL) Then
ArtList.Build
Response.Write ArtList.html
End If
'plugin node
For Each sAction_Plugin_Catalog_End in Action_Plugin_Catalog_End
If Not IsEmpty(sAction_Plugin_Catalog_End) Then Call Execute(sAction_Plugin_Catalog_End)
Next
Call System_Terminate()
%><%
If Err.Number<>0 then
Call ShowError(0)
End If
%>亚洲第一网站