usergroup.asp

BBS论坛的开发和设计

    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">投票许可</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以发布新投票<br></td>
      <td>是 
        <input name="pollnew" type="radio" value="1" checked>
        　否 
        <input type="radio" name="pollnew" value="0"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以参与投票<br></td>
      <td>是 
        <input name="vote" type="radio" value="1" checked>
        　否 
        <input type="radio" name="vote" value="0"></td>
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">悄悄话许可</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以使用悄悄话<br></td>
      <td>是 
        <input name="usepm" type="radio" value="1" checked>
        　否 
        <input type="radio" name="usepm" value="0"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可保留悄悄话总数</td>
      <td> 
        <input name="pmcount" type="text" id="pmcount" value="100"></td>
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">查看会员在线状态的许可</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以查看会员在线状态<br></td>
      <td>是 
        <input name="viewonline" type="radio" value="1" checked>
        　否 
        <input type="radio" name="viewonline" value="0"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以查看在线会员的IP地址<br></td>
      <td>是 
        <input type="radio" name="viewonlineip" value="1">
        　否 
        <input name="viewonlineip" type="radio" value="0" checked></td>
    </tr>
  </table>
  <div align="center"><br>
    <input name="Submit2" type="submit" class="form1" value="确定添加">
    　
    <input name="Submit3" type="reset" class="form1" value="重置">
  </div>
</form>
<br>
<%
End Sub
'==========================
Sub SaveEdit()
	groupID = replace(Trim(Request.querystring("groupID")),"'","")
		if Not(IsNumeric(groupID)) then ErrorMsg "参数错误!~"
	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 where groupID > 3 and groupID="&groupID,conn,1,3
		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 Edit()
	groupid = Trim(Request.QueryString("groupid"))
		if Not(IsNumeric(groupid)) then ErrorMsg "参数错误!~"
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * From JBB_usergroup where groupID="&groupID,conn,1,1
	if Not(rs.Bof and rs.Eof) then
%>
<br>
<form name="form1" method="post" action="?action=SaveEdit&groupID=<%=groupid%>">
  <table width="518" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>修改用户组</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="297" height="30">用户组名</td>
      <td width="198"> 
        <%
	  if groupID > 6 then
	  %>
	  	<input name="groupname" type="text" id="groupname" value="<%=rtrim(rs("groupname"))%>">
	  <%
	  else
	  %><input name="groupname" type="text" id="groupname" value="<%=rtrim(rs("groupname"))%>" disabled>
        <input name="groupname" type="hidden" id="groupname" value="<%=rtrim(rs("groupname"))%>">
	  <%	  
	  End if
	  %>	
		</td>
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">查看许可</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以浏览论坛<br></td>
      <td>是 
        <input name="viewBoard" type="radio" value="1" <%if rs("viewBoard") then response.Write"checked"%>>
        　否 
        <input type="radio" name="viewBoard" value="0" <%if Not(rs("viewBoard")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以查看别人发布的主题</td>
      <td>是 
        <input name="viewothers" type="radio" value="1" <%if rs("viewothers") then response.Write"checked"%>>
        　否 
        <input type="radio" name="viewothers" value="0" <%if Not(rs("viewothers")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以查看会员信息 <br>
        (包括其他会员的资料和会员列表) </td>
      <td>是 
        <input name="viewuserinfo" type="radio" value="1" <%if rs("viewuserinfo") then response.Write"checked"%>>
        　否 <input type="radio" name="viewuserinfo" value="0" <%if Not(rs("viewuserinfo")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">其它许可</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以搜索论坛<br></td>
      <td>是 
        <input name="SearchBoard" type="radio" value="1" <%if rs("SearchBoard") then response.Write"checked"%>>
        　否 
        <input type="radio" name="SearchBoard" value="0" <%if Not(rs("SearchBoard")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以修改个人资料<br></td>
      <td> 
        <%if groupid=6 then%>
	  	是 
        <input name="editproinfo" type="radio" value="1" disabled>
        　否 
        <input type="radio" name="editproinfo" value="0" checked>
		<%else%>
	  	是 
        <input name="editproinfo" type="radio" value="1" <%if rs("editproinfo") then response.Write"checked"%>>
        　否 
        <input type="radio" name="editproinfo" value="0" <%if Not(rs("editproinfo")) then response.Write"checked"%>>
		<%end if%>
		</td>   
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">发帖许可</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以发布新主题<br></td>
      <td>是 
        <input name="postnew" type="radio" value="1" <%if rs("postnew") then response.Write"checked"%>>
        　否 
        <input type="radio" name="postnew" value="0" <%if Not(rs("postnew")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以回复自己的主题<br></td>
      <td>是 
        <input name="replyown" type="radio" value="1" <%if rs("replyown") then response.Write"checked"%>>
        　否 
        <input type="radio" name="replyown" value="0" <%if Not(rs("replyown")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以回复别人的主题</td>
      <td>是 
        <input name="replyothers" type="radio" value="1" <%if rs("replyothers") then response.Write"checked"%>>
        　否 
        <input type="radio" name="replyothers" value="0" <%if Not(rs("replyothers")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>一天可上传附件数</td>
      <td> 
        <input name="upcount" type="text" id="upcount" value="<%=rs("upcount")%>"></td>
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">帖子/主题编辑许可</td>
    </tr>
	<%if groupid=6 then%>
    <tr bgcolor="#FFFFFF"> 
      <td>可以编辑自己的帖子<br></td>
      <td>是 
        <input name="editpost" type="radio" value="1" disabled>
        　否 
        <input type="radio" name="editpost" value="0" checked></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以删除自己的帖子<br></td>
      <td>是 
        <input name="delpost" type="radio" value="1" disabled>
        　否 
        <input type="radio" name="delpost" value="0" checked></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以移动自己的帖子到其他论坛<br></td>
      <td>是 
        <input type="radio" name="movepost" value="1" disabled>
        　否 
        <input name="movepost" type="radio" value="0" checked></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以打开/关闭自己发布的主题</td>
      <td>是 
        <input type="radio" name="closepost" value="1" disabled>
        　否 
        <input name="closepost" type="radio" value="0" checked></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以删除自己发布的主题作为整个主题开头的帖子<br></td>
      <td>是 
        <input type="radio" name="delthread" value="1" disabled>
        　否 
        <input name="delthread" type="radio" value="0" checked></td>
    </tr>
	<%else%>
	<tr bgcolor="#FFFFFF"> 
      <td>可以编辑自己的帖子<br></td>
      <td>是 
        <input name="editpost" type="radio" value="1" <%if rs("editpost") then response.Write"checked"%>>
        　否 
        <input type="radio" name="editpost" value="0" <%if Not(rs("editpost")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以删除自己的帖子<br></td>
      <td>是 
        <input name="delpost" type="radio" value="1" <%if rs("delpost") then response.Write"checked"%>>
        　否 
        <input type="radio" name="delpost" value="0" <%if Not(rs("delpost")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以移动自己的帖子到其他论坛<br></td>
      <td>是 
        <input type="radio" name="movepost" value="1" <%if rs("movepost") then response.Write"checked"%>>
        　否 
        <input name="movepost" type="radio" value="0" <%if Not(rs("movepost")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以打开/关闭自己发布的主题</td>
      <td>是 
        <input type="radio" name="closepost" value="1" <%if rs("closepost") then response.Write"checked"%>>
        　否 
        <input name="closepost" type="radio" value="0" <%if Not(rs("closepost")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以删除自己发布的主题作为整个主题开头的帖子<br></td>
      <td>是 
        <input type="radio" name="delthread" value="1" <%if rs("delthread") then response.Write"checked"%>>
        　否 
        <input name="delthread" type="radio" value="0" <%if Not(rs("delthread")) then response.Write"checked"%>></td>
    </tr>
	<%end if%>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">投票许可</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以发布新投票<br></td>
      <td>是 
        <input name="pollnew" type="radio" value="1" <%if rs("pollnew") then response.Write"checked"%>>
        　否 
        <input type="radio" name="pollnew" value="0" <%if Not(rs("pollnew")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以参与投票<br></td>
      <td> 
        <%
	 	if groupid=6 then
	 	%>
	 	是 
        <input name="vote" type="radio" value="1" disabled>
        　否 
        <input type="radio" name="vote" value="0" checked>
		<%
		else
		%>
		是 
        <input name="vote" type="radio" value="1" <%if rs("vote") then response.Write"checked"%>>
        　否 
        <input type="radio" name="vote" value="0" <%if Not(rs("vote")) then response.Write"checked"%>>
		<%end if%>
		</td>
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">悄悄话许可</td>
    </tr>
	<%
	if groupid = 6 then
	%>
    <tr bgcolor="#FFFFFF"> 
      <td>可以使用悄悄话<br></td>
      <td>是 
        <input name="usepm" type="radio" value="1" disabled>
        　否 
        <input type="radio" name="usepm" value="0" checked></td>
    </tr>
	<%else%>
	<tr bgcolor="#FFFFFF"> 
      <td>可以使用悄悄话<br></td>
      <td>是 
        <input name="usepm" type="radio" value="1" <%if rs("usepm") then response.Write"checked"%>>
        　否 
        <input type="radio" name="usepm" value="0" <%if Not(rs("usepm")) then response.Write"checked"%>></td>
    </tr>
	<%End if%>
    <tr bgcolor="#FFFFFF"> 
      <td>可保留悄悄话总数</td>
      <td> 
        <input name="pmcount" type="text" id="pmcount" value="<%=rs("pmcount")%>"></td>
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2">查看会员在线状态的许可</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以查看会员在线状态<br></td>
      <td>是 
        <input name="viewonline" type="radio" value="1" <%if rs("viewonline") then response.Write"checked"%>>
        　否 
        <input type="radio" name="viewonline" value="0" <%if Not(rs("viewonline")) then response.Write"checked"%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以查看在线会员的IP地址<br></td>
      <td>是 
        <input type="radio" name="viewonlineip" value="1" <%if rs("viewonlineip") then response.Write"checked"%>>
        　否 
        <input name="viewonlineip" type="radio" value="0" <%if Not(rs("viewonlineip")) then response.Write"checked"%>></td>
    </tr>
  </table>
  <div align="center"><br>
    <input name="Submit2" type="submit" class="form1" value="确定修改">
    　
    <input name="Submit3" type="reset" class="form1" value="重置">
  </div>
</form>
<br>
<%
	End if
	rs.close
	set rs = Nothing
End Sub
%>
</body>
</html>
<%
set conn=nothing
%>