<%@ CODEPAGE=65001 %>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<!-- #include file="c_option.asp" -->
<!-- #include file="c_function.asp" -->
<%
Dim objStream
Dim s
Dim f

s=Request.QueryString("act")
If s<>"" Then

	If s="CommentVerify" Then
		Call CreateVerifySession("commentvalid")
	End If

	Response.Clear
	Response.End

End If


f=Request.QueryString("include")
If f<>"" Then

	If f="calendar" Then
		f="CALENDAR"
	ElseIf f="comments" Then
		f="COMMENTS"
	ElseIf f="previous" Then
		f="PREVIOUS"
	ElseIf f="authors" Then
		f="AUTHORS"
	ElseIf f="archives" Then
		f="ARCHIVES"
	ElseIf f="catalog" Then
		f="CATALOG"
	ElseIf f="tags" Then
		f="TAGS"
	ElseIf f="statistics" Then
		f="STATISTICS"
	ElseIf f="favorite" Then
		f="FAVORITE"
	ElseIf f="link" Then
		f="LINK"
	ElseIf f="misc" Then
		f="MISC"
	ElseIf f="rnd" Then
            f="RND"
	ElseIf f="trackbacks" Then
		f="TRACKBACKS"
	Else
		Response.End
	End If

	If IsEmpty(Application(ZC_BLOG_CLSID & "CACHE_" & f))=False Then
		Application.Lock
		s=Application(ZC_BLOG_CLSID & "CACHE_" & f)
		Application.UnLock
	Else
		Set objStream = Server.CreateObject("ADODB.Stream")
		With objStream
		.Type = adTypeText
		.Mode = adModeReadWrite
		.Open
		.Position = objStream.Size
		.Charset = "utf-8"
		.Position = objStream.Size
		.LoadFromFile Server.MapPath("include/"& f & ".asp")
		s=.ReadText
		.Close
		End With
		Set objStream = NoThing

		Application.Lock
		Application(ZC_BLOG_CLSID & "CACHE_INCLUDE_" & f)=s
		Application.UnLock
	End If

	Response.Clear
	Response.Write "document.write(""" & Replace(s,"""","\""") & """)"
	Response.End

End If

%>