<%@ CODEPAGE=65001 %>
<%
'http:///////////////////////////////////////////////////////////////////////////////
'http:// Z-Blog
'http:// 作 者: 朱煊(zx.asd)
'http:// 版权所有: RainbowSoft Studio
'http:// 技术支持: rainbowsoft@163.com
'http:// 程序名称:
'http:// 程序版本:
'http:// 单元名称: catalog.asp
'http:// 开始时间: 2005.02.11
'http:// 最后修改:
'http:// 备 注: 目录
'http:///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<%
Dim html
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
If ArtList.Export(Request.QueryString("page"),Request.QueryString("cate"),IIF(Not IsEmpty(Request.QueryString("auth")),Request.QueryString("auth"),Request.QueryString("user")),Request.QueryString("date"),Request.QueryString("tags"),ZC_DISPLAY_MODE_INTRO) Then
ArtList.Build
html=ArtList.html
Response.Write 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
%>