📄 disgroup.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim intUserGroupID
Dim strGroupName
Dim lngMinimumPosts
Dim blnSpecialGroup
Dim intStars
Dim strCustomStars
Dim blnStartingGroup
If Request.Form("postBack") Then
intUserGroupID = CInt(Request.Form("start"))
strSQL = "UPDATE timesgrp SET "
strSQL = strSQL & "timesgrp.startgrp = False "
strSQL = strSQL & " WHERE timesgrp.startgrp = True;"
adoCon.Execute(strSQL)
strSQL = "SELECT timesgrp.* FROM timesgrp WHERE timesgrp.grpid = " & intUserGroupID & ";"
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If not rsConn.EOF Then
rsConn.Fields("startgrp") = True
rsConn.Update
rsConn.Requery
End If
rsConn.Close
End If
%>
<html>
<head>
<title>管理用户组</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><span class="heading">管理用户组</span><br>
<br />
<a href="menu.asp" target="_self">返回到管理主菜单</a><br>
</div>
<form action="disgroup.asp" method="post" name="form1" target="_self">
<table width="96%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000" align="center">
<tr>
<td> <table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr valign="top" class="tHeading">
<td width="52%" nowrap bgcolor="#CCCCCC">用户组名称</td>
<td width="16%" nowrap bgcolor="#CCCCCC"><div align="center">星的个数</div></td>
<td width="18%" height="12" nowrap bgcolor="#CCCCCC"><div align="center">最少发帖数<br />
<span class="smText"> </span></div></td>
<td width="9%" height="12" align="center" nowrap bgcolor="#CCCCCC"><div align="center">开始级别</div></td>
<td width="5%" height="12" align="center" nowrap bgcolor="#CCCCCC"><div align="center">删除</div></td>
</tr>
<%
strSQL = "SELECT timesgrp.* FROM timesgrp ORDER BY timesgrp.grpid ASC;"
rsConn.Open strSQL, adoCon
If rsConn.EOF Then
Response.Write vbCrLf & "<td bgcolor=""#FFFFFF"" colspan=""4""><span class=""text"">There are User Groups to display.</span></td>"
Else
Do While NOT rsConn.EOF
intUserGroupID = CInt(rsConn("grpid"))
strGroupName = rsConn("Name")
lngMinimumPosts = CLng(rsConn("minipost"))
blnSpecialGroup = CBool(rsConn("cusrank"))
intStars = CInt(rsConn("Stars"))
strCustomStars = rsConn("cusstars")
blnStartingGroup = CBool(rsConn("startgrp"))
%>
<tr>
<td bgcolor="#FFFFFF" class="text"><a href="groupintro.asp?mode=edit&gid=<% = intUserGroupID %>" target="_self">
<% = strGroupName %>
</a></td>
<td bgcolor="#FFFFFF" class="text"><img src="<% If strCustomStars <> "" Then Response.Write(strCustomStars) Else Response.Write("images/" & intStars & "star.gif") %>" alt="<% = intStars %> stars"></td>
<td bgcolor="#FFFFFF" class="text">
<%
If blnSpecialGroup Then
Response.Write("不参与等级排列")
Else
Response.Write(lngMinimumPosts)
End If
%>
</td>
<td bgcolor="#FFFFFF" width="9%" align="center" class="text">
<%
If intUserGroupID <> 1 AND intUserGroupID <> 2 Then
%>
<input type="radio" name="start" value="<% = intUserGroupID %>"<% If blnStartingGroup Then Response.Write(" checked") %>>
<%
End If
%>
</td>
<td bgcolor="#FFFFFF" width="5%" class="text" align="center">
<%
If intUserGroupID <> 1 AND intUserGroupID <> 2 AND blnStartingGroup = False Then
%>
<a href="delgroup.asp?gid=<% = intUserGroupID %>" OnClick="return confirm('Are you sure you want to Delete this User Group?\n\nWARNING: Deleting this user group will mean all members of this user group will be transfered to the Starting Group!')"><img src="images/del.gif" width="15" height="16" border="0" alt="Delete"></a>
<%
End If
%>
</td>
</tr>
<%
rsConn.MoveNext
Loop
End If
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td align="right">
<input name="postBack" type="hidden" id="postBack" value="true">
<input type="submit" name="Submit" value="更新开始级别">
</td>
</tr>
</table>
</form>
<table width="96%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr align="center">
<td width="50%"><form action="groupintro.asp?mode=new" method="post" name="form2" target="_self">
<input type="submit" name="Submit" value="创建新用户组"></form></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><span class="lgText">说明:</span></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td class="bold">管理员组</td>
</tr>
<tr>
<td class="text">不能删除，用户最高的权限，把会员加入该组时要三思</td>
</tr>
<tr>
<td class="bold"> </td>
</tr>
<tr>
<td class="bold">客人级别</td>
</tr>
<tr>
<td class="text">不能删除，用户最低的权限</td>
</tr>
<tr>
<td class="bold"> </td>
</tr>
<tr>
<td class="bold">开始级别</td>
</tr>
<tr>
<td class="text">新用户注册时所属的组<br> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -