<%@ CODEPAGE=65001 %>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<%
Call System_Initialize()
Call CheckReference("")
Dim strAct
strAct="admin"
'检查权限
If Not CheckRights(strAct) Then Call ShowError(6)
%>
Z-Blog <%=ZC_MSG248%>
<%
Call System_Terminate()
If Err.Number<>0 then
Call ShowError(0)
End If
%>