您没有管理本页面的权限。"
dvbbs_error()
Else
if request("action")="save" then
call savegrade()
elseif request("action")="add" then
call add()
elseif request("action")="savenew" then
call savenew()
elseif request("action")="del" then
call del()
elseif request("action")="per" then
call per()
else
call gradeinfo()
end if
Footer()
End If
sub gradeinfo()
%>
<%
end sub
Sub savegrade()
Server.ScriptTimeout=99999999
Dim usertitleid,iuserclass,usertitle,Minarticle,titlepic,groupid
For i=1 to request.form("usertitleid").count
usertitleid=replace(request.form("usertitleid")(i),"'","")
usertitle=replace(request.form("usertitle")(i),"'","")
minarticle=replace(request.form("minarticle")(i),"'","")
titlepic=replace(request.form("titlepic")(i),"'","")
groupid=replace(request.form("groupid")(i),"'","")
if isnumeric(usertitleid) and isnumeric(iuserclass) and usertitle<>"" and isnumeric(minarticle) and titlepic<>"" and isnumeric(groupID) then
set rs=Dvbbs.Execute("select * from dv_usergroups where UserGroupID="&usertitleID)
if rs("usertitle")<>trim(usertitle) or rs("grouppic")<>trim(titlepic) or (rs("parentgid")<>cint(groupid) and rs("parentgid")>0) then
'如果有自定义权限，则UserGroupID为等级所在的ID，反之则为组ID
if rs("issetting")=1 then groupid=rs("usergroupid")
Dvbbs.Execute("update [dv_user] set userclass='"&usertitle&"',titlepic='"&titlepic&"',usergroupid="&groupid&" where userclass='"&rs("usertitle")&"'")
end if
if rs("parentgid")=0 then groupid=0
Dvbbs.Execute("update dv_usergroups set usertitle='"&usertitle&"',minarticle="&minarticle&",grouppic='"&titlepic&"',parentgid="&groupid&" where usergroupid="&usertitleID)
end if
next
response.write "设置成功，请返回。"
set rs=nothing
End Sub
sub add()
%>
<%
end sub
sub savenew()
if request.form("minarticle")="" then
Errmsg=ErrMsg + "
请输入新的等级需要文章数。"
dvbbs_error()
exit sub
elseif not isnumeric(request.form("minarticle")) then
Errmsg=ErrMsg + "
新的等级文章数只能是数字。"
dvbbs_error()
exit sub
end if
if request.form("titlepic")="" then
Errmsg=ErrMsg + "
请输入新的等级图片。"
dvbbs_error()
exit sub
end if
if request.form("usertitle")="" then
Errmsg=ErrMsg + "
请输入新的等级名称。"
dvbbs_error()
exit sub
end if
Dim GroupTitle,GroupSetting,GroupPic
Set rs=dvbbs.execute("select * from dv_usergroups where usergroupid="&request.form("usergroupid"))
GroupTitle=rs("title")
GroupSetting=rs("GroupSetting")
GroupPic=rs("titlepic")
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from dv_usergroups where usertitle='"&request.form("usertitle")&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.addnew
rs("usertitle")=request.form("usertitle")
rs("minarticle")=request.form("minarticle")
rs("grouppic")=request.form("titlepic")
rs("parentgid")=request.form("usergroupid")
rs("title")=GroupTitle
rs("GroupSetting")=GroupSetting
rs("isdisp")=0
rs("IsSetting")=0
rs("titlepic")=GroupPic
rs.update
else
Errmsg=ErrMsg + "
该等级名称已经存在。"
dvbbs_error()
exit sub
end if
rs.close
set rs=nothing
response.write "添加成功！建议您到更新用户数据中进行更新操作！"
end sub
Sub Del()
Server.ScriptTimeout = 99999999
Dim Minarticle, Minuserclass
If Isnumeric(Request("Id")) Then
If CLng(Request("id")) < 9 Then
Errmsg = ErrMsg + "
系统默认等级不能删除。"
Dvbbs_Error()
Exit Sub
End If
Set Rs = Dvbbs.Execute("SELECT * FROM Dv_UserGroups WHERE UserGroupId = " & Request("id"))
Minarticle = Rs("Minarticle")
Minuserclass = Rs("Usertitle")
Rem 修正删除等级后等级设置的错误 2004-5-1 Dvbbs.YangZheng
Set Rs = Dvbbs.Execute("SELECT TOP 1 * FROM Dv_Usergroups WHERE ParentGId = " & Request("id") & " AND NOT MinArticle = -1 ORDER BY Minarticle")
If Not (Rs.Eof And Rs.Bof) Then
Dvbbs.Execute("UPDATE [Dv_User] SET Userclass = '" & Rs("Usertitle") & "', Titlepic = '" & Rs("Grouppic") & "' WHERE Userclass = '" & Minuserclass & "'")
Else
Set Rs = Nothing
Set Rs = Dvbbs.Execute("SELECT TOP 1 * FROM Dv_UserGroups WHERE ParentGId = 4 ORDER By Minarticle Desc")
If Not (Rs.Eof And Rs.Bof) Then
Dvbbs.Execute("UPDATE [Dv_User] SET UserGroupId = 4, Userclass = '" & Rs("Usertitle") & "', Titlepic = '" & Rs("Grouppic") & "' WHERE Userclass = '" & Minuserclass & "'")
End If
End If
Dvbbs.Execute("DELETE FROM Dv_Usergroups WHERE Usergroupid = " & Request("id"))
Response.Write "删除成功！"
Set Rs = Nothing
End If
End Sub
sub per()
if not isnumeric(request("groupid")) then
response.write "错误的参数！"
exit sub
end if
if request("groupaction")="yes" then
dim GroupSetting,groupid,newgroupsetting
GroupSetting=GetGroupPermission
if request("isdefault")=1 then
set rs=dvbbs.execute("select * from dv_usergroups where usergroupid="&request("groupid"))
If Rs("ParentGID")=0 Then
Dv_suc("您没有选择自定义等级选项，所做修改将无效")
Exit Sub
End If
if rs("issetting")=1 then
groupid=rs("parentgid")
set rs=nothing
set rs=dvbbs.execute("select * from dv_usergroups where usergroupid="&groupid)
newgroupsetting=rs("groupsetting")
Set Rs=Nothing
dvbbs.execute("update dv_usergroups set issetting=0,groupsetting='"&newgroupsetting&"' where usergroupid="&request("regroupid"))
'取消自定义设置，更新用户数据，更新为用户组ID
dvbbs.execute("update [dv_user] set usergroupid="&groupid&" where userclass='"&request("usertitle")&"'")
end if
else
dvbbs.execute("update dv_usergroups set issetting=1,groupsetting='"&GroupSetting&"' where usergroupid="&request("regroupid"))
'更新用户数据
dvbbs.execute("update [dv_user] set usergroupid="&request("regroupid")&" where userclass='"&request("usertitle")&"'")
End If
ReloadGroup(request("regroupid"))
Dv_suc("修改等级自定义权限成功")
else
Dim reGroupSetting,founduserper,usergrade
If IsNumerIc(request("regroupid")) and request("regroupid")<>"" Then
Set Rs=Dvbbs.Execute("select * from dv_usergroups where usergroupid="&request("regroupid"))
usergrade=rs("usertitle")
End If
founduserper=false
set rs=Dvbbs.Execute("select * from dv_usergroups where usergroupid="&request("groupid"))
if rs.eof and rs.bof then
response.write "未找到用户等级"
exit sub
end if
If Rs("UserGroupID")<9 Then
founduserper=false
Else
If Rs("IsSetting")=1 Then
founduserper=true
Else
founduserper=false
End If
End If
reGroupSetting=split(rs("GroupSetting"),",")
%>