forumspower.asp

来自「教师评估系统」· ASP 代码 · 共 51 行

<!-- #include file="Cls.asp" --><%
top "查看权限",true
Response.Expires=5
ForumID=ChkNumeric(Request("Fid"))
sql="select ID from [WxForums] where id="&ForumID&""
Set Rs=Conn.Execute(sql)
if Rs.Eof then Error 5,"<li>该版块不存在</li>"
Rs.close
ForumData=GetForumData(ForumID)
%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → <%ForumTree(ForumData(0))%><%=ForumTreeList%><a href="Forums.asp?Fid=<%=ForumID%>"><%=ForumData(2)%></a> → 权限列表</div>
<div class="tb dt">
<div id="tt">查看版块权限</div>
<div class="intro cb">
<div class="fl r w0b">角色</div>
<div class="fl r w0a">浏览</div>
<div class="fl r w0a">阅读</div>
<div class="fl r w0a">发帖</div>
<div class="fl r w0a">回复</div>
<div class="fl r w0a">编辑</div>
<div class="fl r w0a">删除</div>
<div class="fl r w0a">发起投票</div>
<div class="fl r w0a">投票</div>
<div class="fl r w0a">附件</div>
<div class="fl w0a">管理</div>
</div>
<%
sql="select * from [WxForumPermissions] where ForumID="&ForumID&" order by RoleID"
Set Rs=Conn.Execute(sql)
Do While Not Rs.Eof 
%>
<div class="tc b cb">
<div class="fl ac r w0b"><%=ShowRole(Rs("RoleID"))%></div>
<div class="fl ac r w0a"><img alt="" src="Images/check<%=Rs("PermissionsView")%>.gif" /></div>
<div class="fl ac r w0a"><img alt="" src="Images/check<%=Rs("PermissionsRead")%>.gif" /></div>
<div class="fl ac r w0a"><img alt="" src="Images/check<%=Rs("PermissionsPost")%>.gif" /></div>
<div class="fl ac r w0a"><img alt="" src="Images/check<%=Rs("PermissionsReply")%>.gif" /></div>
<div class="fl ac r w0a"><img alt="" src="Images/check<%=Rs("PermissionsEdit")%>.gif" /></div>
<div class="fl ac r w0a"><img alt="" src="Images/check<%=Rs("PermissionsDelete")%>.gif" /></div>
<div class="fl ac r w0a"><img alt="" src="Images/check<%=Rs("PermissionsCreatePoll")%>.gif" /></div>
<div class="fl ac r w0a"><img alt="" src="Images/check<%=Rs("PermissionsVote")%>.gif" /></div>
<div class="fl ac r w0a"><img alt="" src="Images/check<%=Rs("PermissionsAttachment")%>.gif" /></div>
<div class="fl ac w0a"><img alt="" src="Images/check<%=Rs("PermissionsManage")%>.gif" /></div>
</div>
<%
Rs.MoveNext
loop
Rs.Close
%>
</div>
<%HtmlEnd%>