📄 admin_left.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
Option Explicit
Response.Buffer = False
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<%
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.Write "<link href='Admin_Left_Style.css' type='text/css' rel='stylesheet'>"
Response.Write "<title>管理导航</title>"
Response.Write "<script language='javascript' type='text/javascript'>"
Response.Write "function ShowItems(sitem){"
Response.Write "   var whichEl = eval(sitem + ""_items"");"
Response.Write "   if (whichEl.style.display == ""none""){"
Response.Write "        eval(sitem + ""_items"" + "".style.display='';"");"
Response.Write "   }else{"
Response.Write "        eval(sitem + ""_items"" + "".style.display='none';"");"
Response.Write "   }"
Response.Write "}"
Response.Write "</script>"
Response.Write "</head>"
Response.Write "<body>"

Call Menu_Top()
Dim i
If EL_PurviewPassed = False Then   
   For i=1 To 12
      If EL_Admin.CheckAdminPurview(i, 3) Then
         EL_PurviewPassed = True
	     Exit For
      End If
   Next
   If EL_Admin.CheckAdminPurview(26, 3) Or EL_Admin.CheckAdminPurview(27, 3) Then EL_PurviewPassed = True
End If

If EL_PurviewPassed = True Then
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td background='Images/left_99.gif'><div id='System' class='Div_MenuTitle' onMouseOver=""this.className='Div_Over'"" onMouseOut=""this.className='Div_MenuTitle'""onClick=""ShowItems('System')"">系统设置</div></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td height='1'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "<div id='System_items' style='display:none;'>"
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td class='MenuItem'>"
   Response.Write "	  <table width='130'  border='0' cellspacing='0' cellpadding='0'>"
   If EL_Admin.Purview = 1 Then 
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_SiteConfig.asp' target='main'>网站基本信息配置</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(1, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Channel.asp?ChannelID=0' target='main'>网站频道管理</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(4, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Announce.asp' target='main'>网站公告管理</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(3, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_FriendSite.asp' target='main'>友情链接管理</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(2, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Advertisement.asp' target='main'>网站广告管理</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(5, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Vote.asp' target='main'>网站调查管理</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(6, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Skin.asp' target='main'>网站风格管理</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(7, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Template.asp?ChannelID=0' target='main'>网站通用模板管理</a></td>"
      Response.Write "        </tr>"
   End If
   If (EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(8, 3) = True) And EnableCounter = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Counter.asp' target='main'>网站流量统计</a> | <a href='Admin_Counter.asp?Action=Config' target='main'>配置</a></td>"
      Response.Write "        </tr>"
   End If   
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(9, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Keylink.asp?KeyType=0' target='main'>站内链接管理</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(10, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Keylink.asp?KeyType=1' target='main'>字符过滤管理</a></td>"
      Response.Write "        </tr>"
   End If   
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(11, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Label.asp' target='main'>自定义标签管理</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(26, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_City.asp' target='main'>城市管理</a> | <a href='Admin_City.asp?Action=CreateJs' target='main'>生成JS文件</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(12, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Log.asp' target='main'>网站日志管理</a></td>"
      Response.Write "        </tr>"
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(27, 3) = True Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Cache.asp' target='main'>系统缓存管理</a> | <a href='Admin_Cache.asp?Action=Config' target='main'>配置</a></td>"
      Response.Write "        </tr>"
   End If
   
   Response.Write "      </table>"
   Response.Write "	</td>"
   Response.Write "  </tr>"
   Response.Write "  <tr><td height='20'></td></tr>"
   Response.Write "</table>"
   Response.Write "</div>"
End If

Dim ChannelCmd, rsChannel, RowCount
Dim ChannelID, ChannelName, ChannelDir, ChannelModule, ItemName, ItemUnit, ClassItemName
Set ChannelCmd = Server.CreateObject("ADODB.COMMAND")
With ChannelCmd
   .ActiveConnection = Conn
   .CommandText = "EL_SP_AdminMenu"
   .CommandType = 4
   .Prepared = True
   .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
   .Parameters.Append .CreateParameter("@AdminID", 3, 1, 4, EL_Admin.AdminID)
   Set rsChannel = .Execute()
End With
rsChannel.Close()
RowCount = ChannelCmd(0)
If RowCount = -1 Then
   Response.Write "<scr" & "ipt>top.location.href='Admin_Login.asp';</scr" & "ipt>"
   Call ApplicationTerminate()
End If
rsChannel.Open()
For i = 1 To RowCount
   EL_PurviewPassed = False
   ChannelID = rsChannel(0)
   ChannelName = rsChannel(1)
   ChannelDir = rsChannel(2)
   ChannelModule = rsChannel(3)
   ItemName = rsChannel(4)
   ItemUnit = rsChannel(5)
   ClassItemName = rsChannel(6)
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(ChannelID, 1) = True Or EL_Admin.CheckAdminPurview(13, 3) = True Then EL_PurviewPassed = True
   If EL_PurviewPassed = True Then
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td background='Images/left_0"& ChannelModule &".gif'><div id='"& EL_ChannelModuleName(ChannelModule) &"_"& ChannelID &"' class='Div_MenuTitle' onMouseOver=""this.className='Div_Over'"" onMouseOut=""this.className='Div_MenuTitle'""onClick=""ShowItems('"& EL_ChannelModuleName(ChannelModule) &"_"& ChannelID &"')"">"& ChannelName &"</div></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td height='1'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "<div id='"& EL_ChannelModuleName(ChannelModule) &"_"& ChannelID &"_items' style='display:none;'>"
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td class='MenuItem'>"
   Response.Write "	  <table width='130'  border='0' cellspacing='0' cellpadding='0'>"
   If EL_Admin.Purview = 1 Or EL_Admin.Purview = 2 Then
     If ChannelModule = 2 Then
        Response.Write "        <tr>"
	    Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Level.asp?ChannelID="& ChannelID &"' target='main'>"& ItemName &"等级管理</a></td>"
        Response.Write "        </tr>"
     End If
   End If
   If EL_Admin.Purview = 1 Or EL_Admin.Purview = 2 Or EL_Admin.CheckAdminPurview(ChannelID, 1) = True Then
      If ChannelModule = 9 Then
         Response.Write "        <tr>"
         Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &".asp?ChannelID="& ChannelID &"' target='main'>"& ItemName &"管理</a></td>"
         Response.Write "        </tr>"
      Else
         Response.Write "        <tr>"
         Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &".asp?ChannelID="& ChannelID &"&Action=Add' target='main'>添加"& ItemName &"</a></td>"
         Response.Write "        </tr>"
         Response.Write "        <tr>"
         Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &".asp?ChannelID="& ChannelID &"&ManageType=Myself' target='main'>我添加的"& ItemName &"</a></td>"
         Response.Write "        </tr>"
         Response.Write "        <tr>"
         Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &".asp?ChannelID="& ChannelID &"' target='main'>"& ItemName &"管理</a>"
         Response.Write " | <a href='Admin_"& EL_ChannelModuleName(ChannelModule) &".asp?ChannelID="& ChannelID &"&ManageType=Check&Passed="& EL_False &"' target='main'>发布</a></td>"
         Response.Write "        </tr>"
      End If
      If ChannelModule = 2 Then
         Response.Write "        <tr>"
         Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Room.asp?ChannelID="& ChannelID &"' target='main'>"& ItemName &"房型管理</a> | <a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Room.asp?ChannelID="& ChannelID &"&Action=Add' target='main'>添加</a></td>"
         Response.Write "        </tr>"
      End If
      If ChannelModule = 4 Then
         Response.Write "        <tr>"
	     Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Ticket.asp?ChannelID="& ChannelID &"' target='main'>"& ItemName &"舱位管理</a> | <a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Ticket.asp?ChannelID="& ChannelID &"&Action=Add' target='main'>添加</a></td>"
         Response.Write "        </tr>"
      End If
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &".asp?ChannelID="& ChannelID &"&ManageType=Recycled' target='main'>"& ItemName &"回收站管理</a></td>"
      Response.Write "        </tr>"

      Response.Write "        <tr>"
      Response.Write "          <td height='5'><hr size=1></td>"   
      Response.Write "        </tr>"   
   End If
   
   If EL_Admin.Purview = 1 Or EL_Admin.Purview = 2 Then         
	  If ChannelModule <> 2 And ChannelModule <> 4 And ChannelModule <> 5 And ChannelModule <> 9 Then	     
		 Response.Write "        <tr>"
         Response.Write "          <td height='20'><a href='Admin_Class.asp?ChannelID="& ChannelID &"' target='main'>"& ItemName & ClassItemName &"管理</a></td>"
         Response.Write "        </tr>"	
		 Response.Write "        <tr>"
         Response.Write "          <td height='20'><a href='Admin_ClassMenu.asp?ChannelID="& ChannelID &"' target='main'>"& ClassItemName &"导航设置</a> | <a href='Admin_ClassMenu.asp?ChannelID="& ChannelID &"&Action=Create' target='main'>生成</a></td>"
         Response.Write "        </tr>"	
	  End If
	  If ChannelModule = 4 Then
		 Response.Write "        <tr>"
	     Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Company.asp?ChannelID="& ChannelID &"' target='main'>航空公司管理</a> | <a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Company.asp?ChannelID="& ChannelID &"&Action=CreateJs' target='main'>生成Js</a></td>"
         Response.Write "        </tr>"
	     Response.Write "        <tr>"
	     Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Plane.asp?ChannelID="& ChannelID &"' target='main'>机型管理</a> |  <a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Plane.asp?ChannelID="& ChannelID &"&Action=CreateJs' target='main'>生成Js</a></td>"
         Response.Write "        </tr>"
	  End If 
	  If ChannelModule = 9 Then
		 Response.Write "        <tr>"
	     Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Board.asp?ChannelID="& ChannelID &"' target='main'>论坛"& ClassItemName &"管理</a>"
         Response.Write "        </tr>"
		 Response.Write "        <tr>"
	     Response.Write "          <td height='20'><a href='Admin_"& EL_ChannelModuleName(ChannelModule) &"Level.asp?ChannelID="& ChannelID &"' target='main'>论坛用户等级管理</a>"
         Response.Write "        </tr>"
	  End If  	   
   End If 
   
   If ChannelModule <> 4 And ChannelModule <> 9 Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Comment.asp?ChannelID="& rsChannel(0) &"' target='main'>"& rsChannel(1) &"评论管理</a></td>"
      Response.Write "        </tr>"   
   End If
   
   If EL_Admin.Purview = 1 Or EL_Admin.Purview = 2 Then  
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Uploadfiles.asp?ChannelID="& ChannelID &"' target='main'>上传文件管理</a></td>"
      Response.Write "        </tr>"
	  Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Template.asp?ChannelID="& ChannelID &"' target='main'>频道模板管理</a></td>"
      Response.Write "        </tr>"
	  If ChannelModule <> 9 Then
	     Response.Write "        <tr>"
         Response.Write "          <td height='20'><a href='Admin_Field.asp?ChannelID="& ChannelID &"' target='main'>自定义字段管理</a></td>"
         Response.Write "        </tr>"
	  End If
   End If
   Response.Write "      </table>"
   Response.Write "	</td>"
   Response.Write "  </tr>"
   Response.Write "  <tr><td height='20'></td></tr>"
   Response.Write "</table>"
   Response.Write "</div>"
   End If
   If i < RowCount Then rsChannel.MoveNext
Next

EL_PurviewPassed = False

rsChannel.Close()
12 下一页
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -