
<!--#include file="../conn.asp"-->
<!--#Include File="../inc/Dv_ClsMain.asp"-->

<%

Sub CheckAdmin(flag)
	If Not Dvbbs.Master Or Session("flag")="" Then
		Response.Redirect "../showerr.asp?action=OtherErr&ErrCodes=<li>本页面为管理员专用，请<a href=admin_login.asp target=_top>登录</a>后进入。"
	End If

	If Instr(","&session("flag")&",",flag)=0 and flag<>"" then
		Errmsg=ErrMsg +	"<BR><li>本页面为管理员专用，请<a href=../admin_login.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
		Dvbbs_error()
	End If
End Sub

'If Session("flag")<> "" Then Dvbbs.Master = True

MyDbPath = "../"
ConnectionDatabase

'验证登陆
'If IsNumeric(Dvbbs.UserHidden) = 0 or Dvbbs.Userhidden = "" Then Dvbbs.UserHidden = 2
'If IsNumeric(Dvbbs.UserID) = 0 Or Dvbbs.UserID="" Then Dvbbs.UserID=0
'Dvbbs.UserID = Clng(Dvbbs.UserID)
'Dvbbs.MemberClass = Dvbbs.checkStr(Request.Cookies(Dvbbs.Forum_sn)("userclass"))
Dvbbs.GetForum_Setting
Dvbbs.CheckUserLogin


'前台权限
If Cint(Dvbbs.GroupSetting(16))=0 Then
	Dvbbs.AddErrCode(28)
	Dvbbs.Showerr()
End If

If Dvbbs.userid=0 Then
	Dvbbs.AddErrCode(6)
	Dvbbs.Showerr()
end if


'具备后台帖子管理权限
'dim admin_flag
'admin_flag=Split("26,27",",")
'CheckAdmin(","&admin_flag(0)&",")
'CheckAdmin(","&admin_flag(1)&",")

%>




<!--#include file="inc/base64.asp" -->
<!--#include file="inc/md5.asp" -->
<!--#include file="configs/union_config.asp" -->
<!--#include file="configs/relation_config.asp" -->
<!--#include file="lang_zn/lang_config.asp" -->
<!--#include file="inc/common_fun.asp" -->
<!--#include file="class/class_ccapi.asp" -->
<!--#include file="class/class_union.asp" -->
<!--#include file="class/class_type.asp" -->
<!--#include file="class/class_external.asp" -->
