<% Dim admin_id Dim admin_is_root connect_db() check_admin_login() sql = "select id, root from admins where admin_username = '" & replaceSQLString(Session("strUsername")) & "' and flag = 0" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3 If rs.BOF And rs.EOF Then Response.End End If admin_id = rs("id") admin_is_root = rs("root") sql = "select id, task_name from tasks where parent_id = 0 and flag = 0 order by order_id desc, id" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3 beginAdminHtml() %> <% While Not rs.EOF sql = "select * from admin_task a, tasks b " &_ "where a.admin_id = " & admin_id & " " &_ "and a.task_id = b.id " &_ "and b.parent_id = " & rs("id") Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open sql, conn, 3 If (Not (rs1.BOF And rs1.EOF)) Or admin_is_root = 1 Then %> <% End If rs.MoveNext Wend %> <% Set rs1 = Nothing Set rs = Nothing Set conn = Nothing %>

后台管理菜单
<% Response.Write "" & formatHtml(rs("task_name")) & " " If admin_is_root = 1 Then sql = "select task_name, application from tasks where parent_id = " & rs("id") & " and flag = 0 order by order_id desc, id" Else sql = "select a.task_name, a.application from tasks a, admin_task b where a.parent_id = " & rs("id") & " and a.flag = 0 and a.id = b.task_id and b.admin_id = " & admin_id & " order by a.order_id desc, a.id" End If Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open sql, conn, 3 While Not rs1.EOF %> 　　" target="application" style="font-size: 9pt; text-decoration: none; color: #000000"><%=formatHtml(rs1("task_name"))%> <% rs1.MoveNext Wend %>
退出系统