<table width="195" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="195" height="57" background="skin/Guide_top.gif"><table width="42%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="37" valign="bottom"><div align="center"><strong>快捷导航</strong></div></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="195" border="0" cellpadding="0" cellspacing="0" background="skin/Guide_main.gif">
  <tr> 
    <td height="394" valign="top"><strong> 
      <%End If%>
      </strong>
      <table width="173" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td> <%
 Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""10""></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
Dim sqlChannel, rsChannel
sqlChannel = "select * from PE_Channel where ChannelType<=1 and Disabled=" & PE_False
Select Case SystemEdition
Case "CMS", "eShop"
    sqlChannel = sqlChannel & " and ModuleType<4"
Case "GPS", "EPS", "ECS"
    sqlChannel = sqlChannel & " and (ModuleType<4 or ModuleType=8)"
Case "IPS"
    sqlChannel = sqlChannel & " and (ModuleType<4 or ModuleType=6 or ModuleType=7)"
Case "All"
    sqlChannel = sqlChannel & " and (ModuleType<4 or ModuleType>5)"
End Select
sqlChannel = sqlChannel & " order by OrderID"
Set rsChannel = Conn.Execute(sqlChannel)
Do While Not rsChannel.EOF
    ChannelID = rsChannel("ChannelID")
    ChannelName = Trim(rsChannel("ChannelName"))
    ChannelShortName = Trim(rsChannel("ChannelShortName"))
    ChannelDir = Trim(rsChannel("ChannelDir"))
    Select Case rsChannel("ModuleType")
    Case 1
        ModuleName = "Article"
    Case 2
        ModuleName = "Soft"
    Case 3
        ModuleName = "Photo"
    Case 6
        ModuleName = "Supply"
    Case 7
        ModuleName = "House"
    Case 8
        ModuleName = "Job"
    End Select
    If ChannelID = 998 Then

        Dim rsHouseClass
		Set rsHouseClass = Conn.Execute("select * from PE_HouseConfig")
        Response.Write "<tr>" & vbCrLf
        Response.Write "    <td height=""22""  onclick=""ChangeLevelDisplay(998)"">" & vbCrLf
        Response.Write "    <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
         
        Response.Write "      <tr id=""cy_user_right"">" & vbCrLf
       Response.Write "        <li><img src=""skin/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><b>" & ChannelName & "</b></li> "& vbCrLf
        Response.Write "      </tr>" & vbCrLf
        Response.Write "    </table>" & vbCrLf
        Response.Write "  </td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""1""></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr id=""Level_998"" style=""display: none"">" & vbCrLf
        Response.Write "  <td>" & vbCrLf
        Response.Write "  <table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
		
        Do While Not rsHouseClass.EOF
        Response.Write "    <tr>" & vbCrLf
        Response.Write "    <td height=""20"" style=""padding-left:15px;""><a href=""User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ClassID=" & rsHouseClass("ClassID") & "&Action=Add"" target=""use"">发布" & rsHouseClass("ClassName") & "信息</a></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""20""  style=""padding-left:15px;"" ><a href=""User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ClassID=" & rsHouseClass("ClassID") & "&Action=Manage"" target=""use"">管理" & rsHouseClass("ClassName") & "信息</a></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
            rsHouseClass.MoveNext
        Loop
        Response.Write "  </table>" & vbCrLf
		Response.Write "  </td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
    End If
		
    If ChannelID = 997 Then
        Response.Write "<tr>" & vbCrLf
        Response.Write "    <td height=""22"" onclick=""ChangeLevelDisplay(997)"">" & vbCrLf
         Response.Write "    <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
         Response.Write "      <tr id=""cy_user_right"">" & vbCrLf
        Response.Write "        <li><img src=""skin/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><b>" & ChannelName & "</b></li> "& vbCrLf
              
        Response.Write "      </tr>" & vbCrLf
        Response.Write "    </table>" & vbCrLf
        Response.Write "    </td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""1""></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr id=""Level_997"" style=""display: none"">" & vbCrLf
        Response.Write "  <td>" & vbCrLf
        Response.Write "  <table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
        Response.Write "    <tr>" & vbCrLf
        Response.Write "    <td height=""20"" style=""padding-left:15px;"" ><a href=""../Job/Searchresult.asp"" target=""use"">查询职位信息</a></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""20""  style=""padding-left:15px;""><a href=""User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Resume"" target=""use"">维护我的简历</a></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""20"" style=""padding-left:15px;"" ><a href=""User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Supply','_self','User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Supply"" target=""use"">我申请的职位</a></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  </table>" & vbCrLf
		Response.Write "  </td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
    End If
	
    If FoundInArr(arrClass_Input, ChannelDir & "none", ",") = False And ChannelID <> 997 And ChannelID <> 998 Then '增加不显示房产的条件
        Response.Write "<tr>" & vbCrLf
       Response.Write "    <td height=""22""   onclick=""ChangeLevelDisplay(" & ChannelID & ")"">" & vbCrLf
       Response.Write "    <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
     
        Response.Write "      <tr  id=""cy_user_right"">" & vbCrLf
       Response.Write "        <li><img src=""skin/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><b>" & ChannelName & "</b></li> "& vbCrLf
        Response.Write "      </tr>" & vbCrLf
        Response.Write "    </table>" & vbCrLf
       Response.Write "  </td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""1""></td>" & vbCrLf
		
        Response.Write "  <tr id=""Level_" & ChannelID & """ style=""display: none"">" & vbCrLf
        Response.Write "  <td>" & vbCrLf
        Response.Write "  <table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
		
        If CheckUser_ChannelInput() = True Then
      	  Response.Write "  <tr>" & vbCrLf
     	  Response.Write "    <td height=""20""  style=""padding-left:15px;""><a href=""User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add"" target=""use"">添加" & ChannelShortName & "</a></td>" & vbCrLf
     	  Response.Write "  </tr>" & vbCrLf
        End If
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""20"" style=""padding-left:15px;"" ><a href=""User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage"" target=""use"">我添加的" & ChannelShortName & "</a></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""20""  style=""padding-left:15px;""><a href=""User_Favorite.asp?ChannelID=" & ChannelID & """ target=""use"">我收藏的" & ChannelShortName & "</a></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=""20"" style=""padding-left:15px;""><a href=""User_Comment.asp?ChannelID=" & ChannelID & """ target=""use"">我评论的" & ChannelShortName & "</a></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        If rsChannel("ModuleType") = 1 Then
  	      Response.Write "  <tr>" & vbCrLf
    	  Response.Write "    <td height=""20"" style=""padding-left:15px;""><a href=""User_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Receive&Passed=All"" target=""use"">签收管理</a></td>" & vbCrLf
    	  Response.Write "  </tr>" & vbCrLf
        End If
      
        Response.Write "  </table>" & vbCrLf
		Response.Write "  </td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
    Else
    End If
    rsChannel.MoveNext
Loop
rsChannel.Close
Set rsChannel = Nothing
If FoundInArr(AllModules, "Classroom", ",") Then
        Response.Write "  <tr  id=""cy_user_right"">" & vbCrLf
        Response.Write "    <li><img src=""skin/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Enrol.asp"" target=""use""><b>室场使用</b></a></li>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
End If
Response.Write "</table>" & vbCrLf
%> 
 </td>
        </tr>
      </table>
      <table width="173" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><strong>商城管理</strong></td>
        </tr>
        <tr>
          <td> 
            <%

Dim rsChannel_Shop, NoShow_Shop
Set rsChannel_Shop = Conn.Execute("select Disabled from PE_Channel where ModuleType=5")
If Not (rsChannel_Shop.bof And rsChannel_Shop.EOF) Then
    NoShow_Shop = rsChannel_Shop(0)
Else
    NoShow_Shop = True
End If

If NoShow_Shop = False Then
    If PE_Clng(UserSetting(30)) = 1 Then
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Wholesale.asp""  target=""use"">批发商品</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
    End If
    If GroupType = 4 Then
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Order.asp?OrderType=1""  target=""use"">我代理的订单</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Bill.asp""  target=""use"">我的对账单</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Complain.asp""  target=""use"">被投诉记录</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        End If
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Order.asp""  target=""use"">我的订单</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""../Shop/ShoppingCart.asp"" >我的购物车</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_all.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Favorite.asp?ChannelID=1000""  target=""use"">我收藏的商品</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_all.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Comment.asp?ChannelID=1000""  target=""use"">我评论的商品</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_paymentlog.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""../Shop/PayOnline.asp""  target=""_blank"">在线支付</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_paymentlog.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Payment.asp""  target=""use"">在线支付查询</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_all.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Bankroll.asp""  target=""use"">资金明细查询</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
         Response.Write "  <ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_all.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_ConsumeLog.asp""  target=""use"">点卷明细查询</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
         Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_all.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_RechargeLog.asp""  target=""use"">有效期查询</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
        Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/exchange_cardlist.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Down.asp""  target=""use"">下载购买软件</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
         Response.Write "<ul>" & vbCrLf
        Response.Write "    <li><img src=""../chaoyu/images/user/detail_orderList.gif"" align=""absmiddle"" border=""0"" alt="""" /><a href=""User_Exchange.asp?Action=GetCard""  target=""use"">获取充值卡</a></li>" & vbCrLf
        Response.Write "  </ul>" & vbCrLf
End If

%>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<div style="DISPLAY: none">
<script src="http://s17.cnzz.com/stat.php?id=3268399&web_id=3268399" language="JavaScript"></script></div>
<table width="195" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="13"><img src="skin/Guide_bottom.gif" width="195" height="13"></td>
  </tr>
</table>

<script language="javascript" type="text/javascript">
function ChangeLevelDisplay(Object)
{
	var Target = "Level_" + Object;
	if(document.all[Target])
	{
		if(document.all[Target].style.display == 'none')
		{
			document.all[Target].style.display = '';
		}
		else
		{
			document.all[Target].style.display = 'none';
		}
	}
}
      </script>
