| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 595 人关注过本帖
标题:想改个二级菜单,不知道怎么改
取消只看楼主 加入收藏
yushan_0008
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2009-6-16
结帖率:86.96%
收藏
已结贴  问题点数:10 回复次数:2 
想改个二级菜单,不知道怎么改
我想改个二级菜单,可是不知道,怎么改。现在的效果如下:
图片附件: 游客没有浏览图片的权限,请 登录注册
我想让二级菜单在,一级菜单的右侧,而不是下边,怎么改啊,高手帮忙啊~本人一点没做过~
搜索更多相关主题的帖子: 菜单 
2009-09-15 16:18
yushan_0008
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2009-6-16
收藏
得分:0 
回复 2楼 aspic
用stm31.js实现的,怎样弄啊~
2009-09-16 08:59
yushan_0008
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2009-6-16
收藏
得分:0 
回复 5楼 孤独冷雨
Public Function GetChildMenu(ID,ShowType,sChannelID)
        dim SQL,Rs,k,sTemp,ClassUrlStr,OpenType
        If pNum=1 Then
            sTemp = "stm_bp('p" & pNum & "',[1,4,0,0,2,3,6,7,100,'progid:DXImageTransform.Microsoft.Fade(overlap=.5,enabled=0,Duration=0.43)',-2,'',-2,67,2,3,'#999999','#ffffff','',3,1,1,'#aca899']);" & vbcrlf
        Else
            If ShowType=0 Then
                sTemp = "stm_bpx('p" & pNum & "','p" & pNum2 & "',[1,4,0,0,2,3,6]);" & vbcrlf
            Else
                sTemp = "stm_bpx('p" & pNum & "','p" & pNum2 & "',[1,2,-2,-3,2,3,0]);" & vbcrlf
            End If
        End If
        SQL="select ClassID,ClassName,ParentPath,ClassDir,ParentDir,Depth,NextID,Child,Readme,IsOuter,LinkUrl From Cl_Class where ChannelID="&Cint(sChannelID)&" and ParentID=" & ID & " and ShowOnTop="&TrueType&" order by OrderID asc"
        Set Rs = Cl.Execute(SQL)
        if Not (Rs.Bof and Rs.Eof) THen
            SQL = Rs.GetRows(-1)
            For k=0 to Ubound(SQL,2)
                If SQL(9,k)=1 Then
                    ClassUrlStr = SQL(10,k)
                    OpenType    = "_blank"
                Else
                    ClassUrlStr = Cl.GetClassLinkUrl(SQL(0,k))
                    OpenType    = "_self"
                End If
                If SQL(7,k) > 0 Then
                sTemp = sTemp & "stm_aix('p"&pNum&"i"&k&"','p"&pNum2&"i0',[0,'" & SQL(1,k) & "','','',-1,-1,0,'" & ClassUrlStr & "','"&OpenType&"','" & ClassUrlStr & "','" & SQL(8,k) & "','','',6,0,0,'"&Cl.WebDir&"images/arrow_r.gif','"&Cl.WebDir&"images/arrow_w.gif',7,7,0,0,1,'#ffffff',0,'#cccccc',0,'','',3,3,0,0,'#fffff7','#000000','#000000','#ffffff','9pt 宋体']);" & vbcrlf
                pNum=pNum+1 : pNum2=pNum2+1
                sTemp = sTemp & GetChildMenu(SQL(0,k),1,sChannelID)
                Else
                sTemp = sTemp & "stm_aix('p"&pNum&"i"&k&"','p"&pNum2&"i0',[0,'" & SQL(1,k) & "','','',-1,-1,0,'" & ClassUrlStr & "','"&OpenType&"','" & ClassUrlStr & "','" & SQL(8,k) & "','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',0,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体']);" & vbcrlf
                End If
            Next
            SQL=Empty
        End if
        Rs.Close : Set Rs=Nothing
        GetChildMenu = sTemp & "stm_ep();" & vbcrlf
        sTemp=Empty
    End Function
这是那段的生成代码,我其实不怎么懂stm31.js所以,一时也改不过来,
2009-09-16 09:10
快速回复:想改个二级菜单,不知道怎么改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012629 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved