admin_left.asp

依蓝旅游网站管理系统Elan2008.SP2

Set rsChannel = Nothing
Set ChannelCmd = Nothing

EL_PurviewPassed = False
If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(14, 3) Then
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td background='Images/left_91.gif'><div id='Users' class='Div_MenuTitle' onMouseOver=""this.className='Div_Over'"" onMouseOut=""this.className='Div_MenuTitle'""onClick=""ShowItems('Collection')"">采集管理</div></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td height='1'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "<div id='Collection_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'>"
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Collection.asp?Action=Add' target='main'>添加采集项目</a></td>"
   Response.Write "        </tr>"
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Collection.asp' target='main'>采集项目管理</a></td>"
   Response.Write "        </tr>" 
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Collection.asp?Action=Import' target='main'>采集项目导入</a></td>"
   Response.Write "        </tr>" 
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Collection.asp?Action=Export' target='main'>采集项目导出</a></td>"
   Response.Write "        </tr>" 
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Collection.asp?Action=Fliter' target='main'>采集过滤设置</a></td>"
   Response.Write "        </tr>" 
   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

EL_PurviewPassed = False
If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(15, 3) Then
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td background='Images/left_98.gif'><div id='Users' class='Div_MenuTitle' onMouseOver=""this.className='Div_Over'"" onMouseOut=""this.className='Div_MenuTitle'""onClick=""ShowItems('Users')"">用户管理</div></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td height='1'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "<div id='Users_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'>"
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_User.asp' target='main'>网站会员管理</a></td>"
   Response.Write "        </tr>"
   If EL_Admin.Purview = 1 Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Administrator.asp' target='main'>后台管理员管理</a></td>"
      Response.Write "        </tr>"
   End If
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Group.asp' target='main'>会员组管理</a></td>"
   Response.Write "        </tr>" 
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_User.asp?Action=AwardLog' target='main'>会员奖惩记录</a></td>"
   Response.Write "        </tr>" 
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_User.asp?Action=ExchangeLog' target='main'>会员"& PointItemName &"兑换记录</a></td>"
   Response.Write "        </tr>" 
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Message.asp' target='main'>站内短信管理</a></td>"
   Response.Write "        </tr>" 
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Template.asp?TempType=-2' target='main'>会员模板管理</a></td>"
   Response.Write "        </tr>" 
   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

EL_PurviewPassed = False
For i = 17 To 25
   If EL_Admin.CheckAdminPurview(i, 3) Then
      EL_PurviewPassed = True
	  Exit For
   End If
Next

IF EL_Admin.Purview = 1 Or EL_PurviewPassed = True Then
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td background='Images/left_95.gif'><div id='Book' class='Div_MenuTitle' onMouseOver=""this.className='Div_Over'"" onMouseOut=""this.className='Div_MenuTitle'""onClick=""ShowItems('Book')"">订单管理</div></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td height='1'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "<div id='Book_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.CheckAdminPurview(17, 3) Or EL_Admin.CheckAdminPurview(18, 3) Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_HotelBook.asp' target='main'>酒店订单管理</a></td>"
      Response.Write "        </tr>"
   End If   
   
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(17, 3) Or EL_Admin.CheckAdminPurview(20, 3) Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_FlightBook.asp' target='main'>机票订单管理</a></td>"
      Response.Write "        </tr>"
   End If
   
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(17, 3) Or EL_Admin.CheckAdminPurview(19, 3) Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_ProductBook.asp' target='main'>度假订单管理</a></td>"
      Response.Write "        </tr>"
   End If
   
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(17, 3) Or EL_Admin.CheckAdminPurview(21, 3) Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_SightBook.asp' target='main'>景点订单管理</a></td>"
      Response.Write "        </tr>"
   End If
   
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(17, 3) Or EL_Admin.CheckAdminPurview(25, 3) Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_CarBook.asp' target='main'>租车订单管理</a></td>"
      Response.Write "        </tr>"
   End If
   
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(17, 3) Or EL_Admin.CheckAdminPurview(22, 3) Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_ShopBook.asp' target='main'>商品兑换管理</a></td>"
      Response.Write "        </tr>"
   End If
   
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(17, 3) Or EL_Admin.CheckAdminPurview(24, 3) Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_Payment.asp' target='main'>订单付款记录管理</a></td>"
      Response.Write "        </tr>"
   End If
   
   If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(17, 3) Or EL_Admin.CheckAdminPurview(23, 3) Then
      Response.Write "        <tr>"
      Response.Write "          <td height='20'><a href='Admin_PayOnline.asp' 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

If EL_Admin.Purview = 1 Or EL_Admin.CheckAdminPurview(16, 3) Then
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td background='Images/left_96.gif'><div id='Database' class='Div_MenuTitle' onMouseOver=""this.className='Div_Over'"" onMouseOut=""this.className='Div_MenuTitle'""onClick=""ShowItems('Database')"">数据库管理</div></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td height='1'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "<div id='Database_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'>"
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Database.asp?Action=Backup' target='main'>备份数据库</a></td>"
   Response.Write "        </tr>"
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Database.asp?Action=Restore' target='main'>恢复数据库</a></td>"
   Response.Write "        </tr>"
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Database.asp?Action=Compact' target='main'>清理数据库日志</a></td>"
   Response.Write "        </tr>"   
   Response.Write "        <tr>"
   Response.Write "          <td height='20'><a href='Admin_Database.asp?Action=Space' target='main'>系统空间占用</a></td>"
   Response.Write "        </tr>" 
   Response.Write "      </table>"
   Response.Write "	</td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "</div>"
End If

   Response.Write "<table width='100%'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td height='20'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td background='Images/left_97.gif'><div id='Info' class='Div_MenuTitle' onMouseOver=""this.className='Div_Over'"" onMouseOut=""this.className='Div_MenuTitle'"">系统信息</div></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td height='1'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "<div id='Info_items'>"
   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'>"   
   Response.Write "        <tr>"
   Response.Write "          <td height='20'>"
   Response.Write "版权所有：<a href='http://www.elancom.net' target='_blank'>依蓝网络</a><br>"
   Response.Write "技术支持：<a href='http://bbs.elancom.net' target='_blank'>依蓝网络</a><br>"
   Response.Write "系统版本："& EL_Cache.GetCache("Sys.Edition", 0)
   Response.Write "</td>"
   Response.Write "        </tr>" 
   Response.Write "    </table>"
   Response.Write "	</td>"
   Response.Write "  </tr>"
   Response.Write "  <tr><td height='20'></td></tr>"
   Response.Write "</table>"
   Response.Write "</div>"

Response.Write "</body>"
Response.Write "</html>"

Sub Menu_Top()
   Response.Write "<table width='160'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td height='2'></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td><img src='Images/left_title.gif' width='160' height='57'></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td height='115' align='center' valign='top' style='background:url(Images/left_titlebg.gif)'>"
   Response.Write "	<table width='140'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "      <tr>"
   Response.Write "        <td><div class='Div_MenuTitle' onMouseOver=""this.className='Div_Over'"" onMouseOut=""this.className='Div_MenuTitle'"" ><a href='Admin_Main.asp' target='main' class='Title'>管理首页</a> | <a href='Admin_Login.asp?Action=Logout' target='_top' class='Title'>退出</a></div></td>"
   Response.Write "      </tr>"
   Response.Write "    </table>"
   Response.Write "	<table width='140'  border='0' cellspacing='0' cellpadding='0' style='border: 1px solid #BABABA; '>"
   Response.Write "      <tr>"
   Response.Write "        <td height='83' align='center' valign='top' bgcolor='#FCFCFC'><table width='130'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "          <tr>"
   Response.Write "            <td>用户名："& EL_Admin.AdminName &"</td>"
   Response.Write "          </tr>"
   Response.Write "          <tr>"
   Response.Write "            <td>身&nbsp;&nbsp;份："& EL_Admin.AdminLevel &"</td>"
   Response.Write "          </tr>"
   Response.Write "          <tr>"
   Response.Write "            <td>登&nbsp;&nbsp;陆："& EL_Admin.LoginTimes &" 次</td>"
   Response.Write "          </tr>"
   Response.Write "          <tr>"
   Response.Write "            <td>IP："& EL_Admin.LastLoginIP &"</td>"
   Response.Write "          </tr>"
   Response.Write "        </table></td>"
   Response.Write "      </tr>"
   Response.Write "    </table></td>"
   Response.Write "  </tr>"
   Response.Write "  <tr>"
   Response.Write "    <td height='2' background='Images/left_titlebottom.gif'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
   Response.Write "<table width='100%'  border='0' cellspacing='0' cellpadding='0'>"
   Response.Write "  <tr>"
   Response.Write "    <td height='10'></td>"
   Response.Write "  </tr>"
   Response.Write "</table>"
End Sub

EL_Common.ShowScriptError()
Call ApplicationTerminate()
%>