<%

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

%>