在原有基础上修改：

1、大类管理员设置发布审核状态的Z_NewsAdd2.asp。

2、在会员分类中加入按照会员统计数据 Z_List.asp。




'判断除小类以外管理员权限
If Request.Cookies(zjsoft)("key")="super" Or Request.Cookies(zjsoft)("key")="check" Or Request.Cookies(zjsoft)("key")="bigmaster" Or Request.Cookies(zjsoft)("key")="typemaster" Then
	checkked = 1
Else
	'判断注册用户总权限
	If Request.Cookies(zjsoft)("key")="selfreg" And fabiaocheck="1" Then
		checkked=1
	Else
		'判断小类管理员权限
		If Request.Cookies(zjsoft)("key")="smallmaster" And usecheck="1" Then
			checkked=1
		Else
			checkked=0
			If Request.Cookies(zjsoft)("shenhe")="0" Then
				checkked=1
			Else
				checkked=0
			End If
		End if
	End if
End if




修改过的：



'判断除小类和大类以外管理员权限
If Request.Cookies(zjsoft)("key")="super" Or Request.Cookies(zjsoft)("key")="check"  Or Request.Cookies(zjsoft)("key")="typemaster" Then
	checkked = 1
Else
	'判断注册用户总权限
	If Request.Cookies(zjsoft)("key")="selfreg" And fabiaocheck="1" Then
		checkked=1
	Else



		'判断大类管理员权限
		If Request.Cookies(zjsoft)("key")="bigmaster" And usecheck="1" Then
			checkked=1
		Else
			checkked=0
			If Request.Cookies(zjsoft)("shenhe")="0" Then
				checkked=1
			Else
				checkked=0
			End If
		End if


		'判断小类管理员权限
		If Request.Cookies(zjsoft)("key")="smallmaster" And usecheck="1" Then
			checkked=1
		Else
			checkked=0
			If Request.Cookies(zjsoft)("shenhe")="0" Then
				checkked=1
			Else
				checkked=0
			End If
		End if
	End if
End if





<%
	set rsa=server.createobject("adodb.recordset")
	sqla="select count(*) as zjsgs from News ,FT_User  where  News.editor=FT_User.UserName and  News.checkked=1 and  FT_User.ID="&ChkRequest(request("id"),1)
	rsa.open sqla,ConnUser,1,1
    'response.write(rs("zjsgs"))
	%>
	
<%
	set rsb=server.createobject("adodb.recordset")
	sqlb="select count(*) as jnsbs  from News ,FT_User where year(News.UpdateTime)=year(now()) and  News.editor = FT_User.UserName and FT_User.ID="&ChkRequest(request("id"),1) 
	rsb.open sqlb,ConnUser,1,1
    'response.write(rs("zjsgs"))
	%>
<%
	set rsc=server.createobject("adodb.recordset")
 sqlc="select count(*) as jnsgs from News,FT_User where year(News.UpdateTime)=year(now()) and News.editor=FT_User.UserName and News.checkked=1 and  FT_User.ID="&ChkRequest(request("id"),1) 
	rsc.open sqlc,ConnUser,1,1
    'response.write(rs("zjsgs"))
	%>