<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog 彩虹网志个人版
'// 作 者: 朱煊(zx.asd)
'// 版权所有: RainbowSoft Studio
'// 技术支持: rainbowsoft@163.com
'// 程序名称:
'// 程序版本:
'// 单元名称: edit_user.asp
'// 开始时间: 2005.03.03
'// 最后修改:
'// 备 注: 编辑页
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<%
Call System_Initialize()
'plugin node
For Each sAction_Plugin_Edit_User_Begin in Action_Plugin_Edit_User_Begin
If Not IsEmpty(sAction_Plugin_Edit_User_Begin) Then Call Execute(sAction_Plugin_Edit_User_Begin)
Next
'检查非法链接
Call CheckReference("")
'检查权限
If Not CheckRights("UserEdt") Then Call ShowError(6)
Dim EditUser
Set EditUser=New TUser
If Not IsEmpty(Request.QueryString("id")) Then
If EditUser.LoadInfoByID(Request.QueryString("id")) Then
If (EditUser.ID<>BlogUser.ID) And (CheckRights("Root")=False) Then Call ShowError(6)
Else
Call ShowError(16)
End If
Else
EditUser.Level=4
EditUser.Name=""
EditUser.Email="null@null.com"
End If
BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG070
%>
<%=BlogTitle%>
<%=ZC_MSG242%>
<%
Response.Write "
" & Response_Plugin_UserEdt_SubMenu & "
"
%>
<% Call GetBlogHint() %>
<%
Call System_Terminate()
If Err.Number<>0 then
Call ShowError(0)
End If
%>