📄 usergroup.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include file = "BBSConfig.asp"-->
<!--#include file="Session.asp"-->
<!--#include file="function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户组管理</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
return eval(jsStr)
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<%
Sub errorMsg(theError)
response.write"<script language=javascript>alert('"& theError &"');history.back();</script>"
response.End
End Sub
'---------------------------------------
action = trim(request.QueryString("action"))
SELECT CASE action
Case "add"
Call add()
Case "SaveNew"
Call SaveNew()
Case "Edit"
Call Edit()
Case "SaveEdit"
Call SaveEdit()
Case "Del"
Call Del()
Case else
Call list()
End SELECT
'=============================
Sub Del()
groupid = trim(request.QueryString("groupid"))
if Not(IsNumeric(groupid)) then ErrorMsg "参数错误!~"
if trim(request.Form("Submit")) = "确定删除" then
Conn.ExeCute("Delete From JBB_usergroup where groupID="&groupid &" and groupID > 6")
response.Write("<br><br> 删除完毕!~")
Application.Lock
Application(JBBMasterCookies&"user_Group")=0
Application.UnLock
else
%>
<br>
<table width="340" height="47" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<form name="form2" method="post" action="?action=Del&groupid=<%=groupid%>">
<tr>
<td bgcolor="#EFEFE7">
<div align="center"><strong>确认删除</strong></div></td>
</tr>
<tr>
<td height="50" bgcolor="#FFFFFF">
<div align="center"><font color="#FF0000">您确定删除此用户组吗？</font></div></td>
</tr>
<tr>
<td bgcolor="#EFEFE7">
<div align="center">
<input name="Submit" type="submit" class="form1" id="Submit" value="确定删除">
<input name="Submit6" type="button" class="form1" onClick="MM_callJS('history.back()')" value="返回">
</div></td>
</tr>
</form>
</table>
<%
End if
End Sub
'==========================
Sub list()
%>
<br>
<table width="328" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#EFEFE7">
<td width="129"><strong>系统用户组</strong></td>
<td width="83"><strong>列出用户</strong></td>
<td width="94"><strong>操作</strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">管 理 员 (
<%
Cou = 0
set rsu = server.CreateObject("adodb.recordset")
rsu.open "SELECT usergroup from JBB_user where usergroup=1",conn,1,1
if Not rsu.eof then
Cou = rsu.recordCount
End if
rsu.close
set rsu = Nothing
response.Write(Cou)
%>
)</td>
<td bgcolor="#FFFFFF"><a href="user.asp?action=show&groupid=1">列出所有用户</a></td>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF">超级版主 (
<%
Cou = 0
set rsu = server.CreateObject("adodb.recordset")
rsu.open "SELECT usergroup from JBB_user where usergroup=2",conn,1,1
if Not rsu.eof then
Cou = rsu.recordCount
End if
rsu.close
set rsu = Nothing
response.Write(Cou)
%>
)</td>
<td bgcolor="#FFFFFF"><a href="user.asp?action=show&groupid=2">列出所有用户</a></td>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF">版 主 (
<%
Cou = 0
set rsu = server.CreateObject("adodb.recordset")
rsu.open "SELECT usergroup from JBB_user where usergroup=3",conn,1,1
if Not rsu.eof then
Cou = rsu.recordCount
End if
rsu.close
set rsu = Nothing
response.Write(Cou)
%>
)</td>
<td bgcolor="#FFFFFF"><a href="user.asp?action=show&groupid=3">列出所有用户</a></td>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF">贵 宾 (
<%
Cou = 0
set rsu = server.CreateObject("adodb.recordset")
rsu.open "SELECT usergroup from JBB_user where usergroup=4",conn,1,1
if Not rsu.eof then
Cou = rsu.recordCount
End if
rsu.close
set rsu = Nothing
response.Write(Cou)
%>
)</td>
<td bgcolor="#FFFFFF"><a href="user.asp?action=show&groupid=4">列出所有用户</a></td>
<td bgcolor="#FFFFFF"><a href="?action=Edit&groupid=4">[编辑]</a></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">普通会员 (
<%
Cou = 0
set rsu = server.CreateObject("adodb.recordset")
rsu.open "SELECT usergroup from JBB_user where usergroup=5",conn,1,1
if Not rsu.eof then
Cou = rsu.recordCount
End if
rsu.close
set rsu = Nothing
response.Write(Cou)
%>
)</td>
<td bgcolor="#FFFFFF"><a href="user.asp?action=show&groupid=5">列出所有用户</a></td>
<td bgcolor="#FFFFFF"><a href="?action=Edit&groupid=5">[编辑]</a></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">游 客 </td>
<td bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"><a href="?action=Edit&groupid=6">[编辑]</a></td>
</tr>
</table>
<br>
<table width="328" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#EFEFE7">
<td width="129"><strong>自定义用户组</strong></td>
<td width="83"><strong>列出用户</strong></td>
<td width="94"> <div align="center"><strong>操作</strong></div></td>
</tr>
<%
set rs = server.CreateObject("adodb.recordset")
rs.open "select groupID,groupName From JBB_usergroup where groupID > 6",conn,1,1
if Not(rs.Eof and rs.Bof) then
for i = 1 to rs.recordCount
%>
<tr bgcolor="#FFFFFF">
<td><%=rtrim(rs(1))%> (
<%
Cou = 0
set rsu = server.CreateObject("adodb.recordset")
rsu.open "SELECT usergroup from JBB_user where usergroup="&rs("groupID"),conn,1,1
if Not rsu.eof then
Cou = rsu.recordCount
End if
rsu.close
set rsu = Nothing
response.Write(Cou)
%>
)</td>
<td><a href="user.asp?action=show&groupid=<%=rs(0)%>">列出所有用户</a></td>
<td> <div align="center"><a href="?action=Edit&groupid=<%=rs(0)%>">[编辑]</a> <a href="?action=Del&groupid=<%=rs(0)%>">[删除]</a></div></td>
</tr>
<%
rs.MoveNext
Next
End if
rs.close
set rs = Nothing
%>
</table>
<%
End Sub
'===================
Sub SaveNew()
groupname = replace(Trim(Request.Form("groupname")),"'","")
if groupname = "" then ErrorMsg "组名不可为空!~"
upcount = Trim(Request.Form("upcount"))
If Not(IsNumeric(upcount)) then ErrorMsg "上传最大数只能为数字"
pmcount = Trim(Request.Form("pmcount"))
If Not(IsNumeric(pmcount)) then ErrorMsg "悄悄话最大保留数只能为数字"
set rs = server.CreateObject("adodb.recordset")
rs.open "select * From JBB_usergroup",conn,1,3
rs.addNew
rs("groupName") = groupName
rs("viewBoard") = Trim(Request.Form("viewBoard"))
rs("viewothers") = Trim(Request.Form("viewothers"))
rs("viewuserinfo") = Trim(Request.Form("viewuserinfo"))
rs("SearchBoard") = Trim(Request.Form("SearchBoard"))
rs("editproinfo") = Trim(Request.Form("editproinfo"))
rs("postnew") = Trim(Request.Form("postnew"))
rs("replyown") = Trim(Request.Form("replyown"))
rs("replyothers") = Trim(Request.Form("replyothers"))
rs("upcount") = upcount
rs("editpost") = Trim(Request.Form("editpost"))
rs("delpost") = Trim(Request.Form("delpost"))
rs("movepost") = Trim(Request.Form("movepost"))
rs("closepost") = Trim(Request.Form("closepost"))
rs("delthread") = Trim(Request.Form("delthread"))
rs("pollnew") = Trim(Request.Form("pollnew"))
rs("vote") = Trim(Request.Form("vote"))
rs("usepm") = Trim(Request.Form("usepm"))
rs("pmcount") = pmcount
rs("viewonline") = Trim(Request.Form("viewonline"))
rs("viewonlineip") = Trim(Request.Form("viewonlineip"))
rs.update
rs.close
set rs = Nothing
Response.Write("<br><br> 新用户组 <b>" & groupname & "</b> 添加成功!~")
Application.Lock
Application(JBBMasterCookies&"user_Group")=0
Application.UnLock
End Sub
'=======================
Sub add()
%>
<br>
<form name="form1" method="post" action="?action=SaveNew">
<table width="518" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td colspan="2" bgcolor="#EFEFE7"><strong>添加用户组</strong></td>
</tr>
<tr>
<td width="297" height="30" bgcolor="#FFFFFF">用户组名</td>
<td width="198" bgcolor="#FFFFFF">
<input name="groupname" type="text" id="groupname"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#EFEFE7"><font color="#000000">查看许可</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">可以浏览论坛<br></td>
<td bgcolor="#FFFFFF">是
<input name="viewBoard" type="radio" value="1" checked>
否
<input type="radio" name="viewBoard" value="0"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">可以查看别人发布的主题</td>
<td bgcolor="#FFFFFF">是
<input name="viewothers" type="radio" value="1" checked>
否
<input type="radio" name="viewothers" value="0"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">可以查看会员信息 <br>
(包括其他会员的资料和会员列表) </td>
<td bgcolor="#FFFFFF">是
<input name="viewuserinfo" type="radio" value="1" checked>
否 <input type="radio" name="viewuserinfo" value="0"></td>
</tr>
<tr bgcolor="#EFEFE7">
<td colspan="2">其它许可</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以搜索论坛<br></td>
<td>是
<input name="SearchBoard" type="radio" value="1" checked>
否
<input type="radio" name="SearchBoard" value="0"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以修改个人资料<br></td>
<td>是
<input name="editproinfo" type="radio" value="1" checked>
否
<input type="radio" name="editproinfo" value="0"></td>
</tr>
<tr bgcolor="#EFEFE7">
<td colspan="2">发帖许可</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以发布新主题<br></td>
<td>是
<input name="postnew" type="radio" value="1" checked>
否
<input type="radio" name="postnew" value="0"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以回复自己的主题<br></td>
<td>是
<input name="replyown" type="radio" value="1" checked>
否
<input type="radio" name="replyown" value="0"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以回复别人的主题</td>
<td>是
<input name="replyothers" type="radio" value="1" checked>
否
<input type="radio" name="replyothers" value="0"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>一天可上传附件数</td>
<td>
<input name="upcount" type="text" id="upcount" value="10"></td>
</tr>
<tr bgcolor="#EFEFE7">
<td colspan="2">帖子/主题编辑许可</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以编辑自己的帖子<br></td>
<td>是
<input name="editpost" type="radio" value="1" checked>
否
<input type="radio" name="editpost" value="0"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以删除自己的帖子<br></td>
<td>是
<input name="delpost" type="radio" value="1" checked>
否
<input type="radio" name="delpost" value="0"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以移动自己的帖子到其他论坛<br></td>
<td>是
<input type="radio" name="movepost" value="1">
否
<input name="movepost" type="radio" value="0" checked></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以打开/关闭自己发布的主题</td>
<td>是
<input type="radio" name="closepost" value="1">
否
<input name="closepost" type="radio" value="0" checked></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>可以删除自己发布的主题作为整个主题开头的帖子<br></td>
<td>是
<input type="radio" name="delthread" value="1">
否
<input name="delthread" type="radio" value="0" checked></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -