<% HtmlTop ForumID=RequestInt("ForumID") sql="select * from [BBSXP_Forums] where ForumID="&ForumID&"" Set Rs=Conn.Execute(sql) if Rs.eof then error"

系统找不到该论坛的资料" ForumName=Rs("ForumName") Moderated=Rs("Moderated") ParentID=Rs("ParentID") GroupID=Rs("GroupID") Rs.close %>

<%ClubTree%> → <%ForumTree(ParentID)%><%=ForumTreeList%><%=ForumName%> → 权限列表

<% sql="select * from [BBSXP_ForumPermissions] where ForumID="&ForumID&" order by RoleID" Set Rs=Conn.Execute(sql) Do While Not Rs.EOF %> <% Rs.MoveNext loop Rs.Close %>

角色	浏览	阅读	发帖	回复	编辑	删除	发起投票	投票	附件	管理
<%=Conn.Execute("Select Name From [BBSXP_Roles] where RoleID="&RS("RoleID")&"")(0)%>	.gif">	.gif">	.gif">	.gif">	.gif">	.gif">	.gif">	.gif">	.gif">	.gif">

< 返回 > <% HtmlBottom %>