showforumpermissions.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="Setup.asp" --><%
HtmlTop
ForumID=RequestInt("ForumID")
sql="select * from [Wo_Forums] where ForumID="&ForumID&""
Set Rs=Conn.Execute(sql)
	if Rs.eof then error"<li>系统找不到该群组的资料"
	ForumName=Rs("ForumName")
	Moderated=Rs("Moderated")
	ParentID=Rs("ParentID")
	GroupID=Rs("GroupID")
Rs.close
%>

<table width="900" align="center" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><div id="CommonBreadCrumbArea"><%ClubTree%> → <%ForumTree(ParentID)%><%=ForumTreeList%><a href="ShowForum.asp?ForumID=<%=ForumID%>"><%=ForumName%></a> → 权限列表</div></td>
  </tr>
</table>

<table cellspacing=1 cellpadding=0 width=900 align="center" id=CommonListArea>
	<tr id=CommonListTitle3>
		<td>角色</td>
		<td align="center" width="9%">浏览</td>
		<td align="center" width="9%">阅读</td>
		<td align="center" width="9%">发表</td>
		<td align="center" width="9%">回复</td>
		<td align="center" width="9%">编辑</td>
		<td align="center" width="9%">删除</td>
		<td align="center" width="9%">发起投票</td>
		<td align="center" width="9%">投票</td>
		<td align="center" width="9%">附件</td>
		<td align="center" width="9%">管理</td>
	</tr>
<%
sql="select * from [Wo_ForumPermissions] where ForumID="&ForumID&" order by RoleID"
Set Rs=Conn.Execute(sql)
	Do While Not Rs.EOF 
%>
	<tr id=CommonListCell height="25">
		<td><%=Conn.Execute("Select Name From [Wo_Roles] where RoleID="&RS("RoleID")&"")(0)%></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionView")%>.gif"></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionRead")%>.gif"></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionPost")%>.gif"></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionReply")%>.gif"></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionEdit")%>.gif"></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionDelete")%>.gif"></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionCreatePoll")%>.gif"></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionVote")%>.gif"></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionAttachment")%>.gif"></td>
		<td align="center"><img src="Images/ForumPermissions<%=RS("PermissionManage")%>.gif"></td>
	</tr>
<%
		Rs.MoveNext
	loop
Rs.Close
%>
</table>
<center><br><a href="javascript:history.back()">&lt; 返 回 &gt;</a>
<%
HtmlBottom
%>