📄 editgroupper.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim strForumName
Dim strGroupName
Dim intUserGroupID
Dim intForumID
Dim blnRead
Dim blnPost
Dim blnReply
Dim blnEdit
Dim blnDelete
Dim blnPriority
Dim blnPollCreate
Dim blnVote
Dim blnAttachments
Dim blnImageUpload
Dim blnModerateForum

intForumID = CInt(Request("fid"))
intUserGroupID = CInt(Request("gid"))
strSQL = "SELECT timesbbs.* From timesbbs WHERE timesbbs.bbsid=" & intForumID & ";"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
	strForumName = rsConn("bbsname")
End If
rsConn.Close
strSQL = "SELECT timesgrp.Name FROM timesgrp WHERE timesgrp.grpid=" & intUserGroupID & ";"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
	strGroupName = rsConn("Name")
End If
rsConn.Close
strSQL = "SELECT timesaccess.* From timesaccess WHERE timesaccess.bbsid=" & intForumID & " AND timesaccess.grpid = " & intUserGroupID & ";"
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If Request.Form("postBack") Then
	With rsConn
		.Fields("bbsid") = intForumID
		.Fields("grpid") = intUserGroupID
		.Fields("Read") = CBool(Request.Form("read"))
		.Fields("Post") = CBool(Request.Form("post"))
		.Fields("replypost") = CBool(Request.Form("reply"))
		.Fields("editpost") = CBool(Request.Form("edit"))
		.Fields("delpost") = CBool(Request.Form("delete"))
		.Fields("toppost") = CBool(Request.Form("priority"))
		.Fields("addpoll") = CBool(Request.Form("poll"))
		.Fields("Vote") = CBool(Request.Form("vote"))
		.Fields("Attachments") = CBool(Request.Form("files"))
		.Fields("imgup") = CBool(Request.Form("images"))
		.Fields("Moderate") = CBool(Request.Form("moderate"))
		.Update
		.Requery
	End With
End If

If NOT rsConn.EOF Then
	blnRead = CBool(rsConn("Read"))
	blnPost = CBool(rsConn("Post"))
	blnReply = CBool(rsConn("replypost"))
	blnEdit = CBool(rsConn("editpost"))
	blnDelete = CBool(rsConn("delpost"))
	blnPriority = CBool(rsConn("toppost"))
	blnPollCreate = CBool(rsConn("addpoll"))
	blnVote = CBool(rsConn("Vote"))
	blnAttachments = CBool(rsConn("Attachments"))
	blnImageUpload = CBool(rsConn("imgup"))
	blnModerateForum = CBool(rsConn("Moderate"))
End If
rsConn.Close
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>编辑组权限</title>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><span class="heading">编辑 
  <% = strForumName %>
  </span> <span class="heading">的组权限</span><br>
  <br />
  <a href="menu.asp" target="_self">返回到管理主菜单</a><br>
  <br>
  <a href="groupper.asp" target="_self">编辑另外一个论坛的组权限</a><br />
</div>
<form method="post" name="frmNewForum" action="editgroupper.asp?fid=<% = intForumID %>&gid=<% = intUserGroupID %>" onSubmit="return CheckForm();">
 <br>
 <table width="450" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
  <tr>
   <td width="450"> <table width="100%" border="0" align="center" class="normal" cellpadding="4" cellspacing="1">
     <tr bgcolor="#CCCCCC">
            <td colspan="2" class="tHeading"><b>
              <% = strForumName %>
              分论坛<br />
              <% = strGroupName %>
              用户组的权限</b></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text">访　　问:</td>
      <td width="43%" valign="top"> 
       <input type="checkbox" name="read" value="true"<% If blnRead = true Then Response.Write(" checked") %> /> </td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text">发　　言:</td>
      <td width="43%" valign="top"> <input type="checkbox" name="post" value="true"<% If blnPost = true Then Response.Write(" checked") %> /> </td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text">回　　复:<br /> </td>
      <td width="43%" valign="top"> <input type="checkbox" name="reply" value="true"<% If blnReply = true Then Response.Write(" checked") %> /> </td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">编　　辑:</td>
      <td valign="top"><input type="checkbox" name="edit" value="true"<% If blnEdit = true Then Response.Write(" checked") %> /></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">删　　除:</td>
      <td valign="top"><input type="checkbox" name="delete" value="true"<% If blnDelete = true Then Response.Write(" checked") %> /></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">置　　顶:</td>
      <td valign="top"><input type="checkbox" name="priority" value="true"<% If blnPriority = true Then Response.Write(" checked") %> /></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">发起投票:</td>
      <td valign="top"><input type="checkbox" name="poll" value="true"<% If blnPollCreate = true Then Response.Write(" checked") %> /></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">参与投票:</td>
      <td valign="top"><input type="checkbox" name="vote" value="true"<% If blnVote = true Then Response.Write(" checked") %> /></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">贴　　图:<br> <span class="smText">请先在 <a href="upcfg.asp" target="_self" class="smLink">上传管理页面</a> 
              开通贴图的功能</span> </td>
      <td valign="top"><input type="checkbox" name="images" value="true"<% If blnImageUpload = true Then Response.Write(" checked") %> /></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td class="text">附　　件:<br> <span class="smText">请先在 <a href="upcfg.asp" target="_self" class="smLink">上传管理页面</a> 
              开通附件的功能</span></td>
      <td valign="top"><input type="checkbox" name="files" value="true"<% If blnAttachments = true Then Response.Write(" checked") %> /></td>
     </tr>
     <tr bgcolor="#FFFFFF">
            <td width="57%" class="text">论坛管理:<br />
              可以管理该论坛分类 </td>
      <td width="43%" valign="top" class="smText"> <input type="checkbox" name="moderate" value="true"<% If blnModerateForum = true Then Response.Write(" checked") %> /></td>
     </tr>
    </table></td>
  </tr>
 </table>
 <div align="center"><br />
  <input type="hidden" name="postBack" value="true" />
  <input type="submit" name="Submit" value="确定" />
  <input type="reset" name="Reset" value="清除" />
  <br />
 </div>
</form><%
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -