<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'//              Z-Blog
'// 作    者:    朱煊(zx.asd)
'// 版权所有:    RainbowSoft Studio
'// 技术支持:    rainbowsoft@163.com
'// 程序名称:    
'// 程序版本:    
'// 单元名称:    view.asp
'// 开始时间:    2004.07.30
'// 最后修改:    
'// 备    注:    查看页
'///////////////////////////////////////////////////////////////////////////////
%>
<% 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" -->
<%

Call System_Initialize()

Dim Article
Dim ccVCobj
Set ccVCobj = New TViewCounter
Set Article=New TArticle

If Article.LoadInfoByID(Request.QueryString("id")) Then

	If Article.Level=1 Then Call ShowError(9)
	If Article.Level=2 Then
		If Not CheckRights("Root") Then
			If (Article.AuthorID<>BlogUser.ID) Then Call ShowError(6)
		End If
	End If
	If Article.Level=5 Then
		If Not CheckRights("Root") Then
			If (BlogUser.ID=0) Then Call ShowError(38)
		End If
	End If
	If Article.Level=6 Then
		If Not CheckRights("Root") Then
			If (BlogUser.Level>3) Then Call ShowError(42)
		End If
	End If

	If Article.Export(ZC_DISPLAY_MODE_ALL)= True Then

		Article.template="SINGLE"
		Article.Build
		Response.Write Article.html

	End If

End If
Set ccVCobj = Nothing
%>
<!-- <%=RunTime()%> --><%
Call System_Terminate()

If Err.Number<>0 then
	Call ShowError(0)
End If
%>