admin.asp

来自「以朱朱相册为程序原型整合开发winds相册」· ASP 代码 · 共 48 行

<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'// 插件应用:    Z-Blog 1.7
'// 插件制作:    
'// 备    注:    
'// 最后修改：   
'// 最后版本:    
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<%
On Error Resume Next
 %>
<% Response.Charset="GB2312" %>
<% Response.Buffer=True %>
<!-- #include file="../../c_option.asp" -->
<!-- #include file="../../function/c_function.asp" -->
<!-- #include file="../../function/c_function_md5.asp" -->
<!-- #include file="../../function/c_system_lib.asp" -->
<!-- #include file="../../function/c_system_base.asp" -->
<!-- #include file="../../function/c_system_event.asp" -->
<!-- #include file="../../function/c_system_plugin.asp" -->
<%

Call System_Initialize()

'检查非法链接
Call CheckReference("")

'检查权限
If BlogUser.Level>1 Then Call ShowError(6) 

If CheckPluginState("windsphoto")=False Then Call ShowError(48)
BlogTitle="winds相册"

%>
<%
Response.cookies("photopass")="windsphoto#@#187"
Response.Redirect "main.asp"
%>
<%
Call System_Terminate()

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