📄 addgroupper.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim strForumName
Dim strGroupName
Dim intUserGroupID
Dim intSelGroupID
Dim intForumID
intForumID = CInt(Request.QueryString("fid"))
intUserGroupID = CInt(Request.Form("group"))
strSQL = "SELECT timesbbs.bbsname From timesbbs WHERE timesbbs.bbsid=" & intForumID & ";"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
strForumName = rsConn("bbsname")
End If
rsConn.Close
If Request.Form("postBack") Then
strSQL = "SELECT timesaccess.* From timesaccess WHERE timesaccess.bbsid=" & intForumID & " AND timesaccess.grpid = " & intUserGroupID & ";"
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
With rsConn
If rsConn.EOF Then .AddNew
.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
End With
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect("forumgroupper.asp?fid=" & intForumID)
End If
strSQL = "SELECT timesgrp.grpid, timesgrp.Name FROM timesgrp ORDER BY timesgrp.grpid ASC;"
rsConn.Open strSQL, adoCon
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>创建新的组权限</title>
<script language="JavaScript">
<!-- Hide from older browsers...
function CheckForm () {
if (document.frmNewForum.group.value==""){
alert("请选择一个用户组");
return false;
}
return true
}
// -->
</script>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><span class="heading">组权限管理 <% = strForumName %>
</span><br />
<a href="menu.asp" target="_self"><br>
返回到管理主菜单</a><br>
<br>
<a href="groupper.asp" target="_self">给另外一个论坛分类设定权限</a><br />
</div>
<form action="addgroupper.asp?fid=<% = intForumID %>" method="post" name="frmNewForum" target="_self" onSubmit="return CheckForm();">
<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>请选择选择用户组</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" class="text">选择你要设置权限的组
<% = strForumName %>
.<br>
<select name="group">
<option value="" selected>-- Select User Group --</option><%
Do while NOT rsConn.EOF
strGroupName = rsConn("Name")
intSelGroupID = CInt(rsConn("grpid"))
Response.Write (vbCrLf & " <option value=""" & intSelGroupID & """")
Response.Write(">" & strGroupName & "</option>")
rsConn.MoveNext
Loop
%>
</select> </td>
</tr>
</table></td>
</tr>
</table>
<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 %>
论坛权限</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="57%" class="text">访 问:</td>
<td width="43%" valign="top">
<input type="checkbox" name="read" value="true" /> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="57%" class="text">发 帖:</td>
<td width="43%" valign="top"> <input type="checkbox" name="post" value="true" /> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="57%" class="text">回 复:<br /> </td>
<td width="43%" valign="top"> <input type="checkbox" name="reply" value="true" /> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="text">编 辑:</td>
<td valign="top"><input type="checkbox" name="edit" value="true" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="text">删除主题:</td>
<td valign="top"><input type="checkbox" name="delete" value="true" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="text">置顶主题:</td>
<td valign="top"><input type="checkbox" name="priority" value="true" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="text">发起投票:</td>
<td valign="top"><input type="checkbox" name="poll" value="true" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="text">参与投票:</td>
<td valign="top"><input type="checkbox" name="vote" value="true" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="text">贴 图:<br>
<span class="smText">请先在 <a href="upcfg.asp" target="_self" class="smLink">上传管理页面</a>
开通贴图的功能</span> <br>
</td>
<td valign="top"><input type="checkbox" name="images" value="true" /></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" /></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" /></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><%
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -