想改个二级菜单，不知道怎么改 - 编程论坛

#2

aspic2009-09-15 16:34

没有代码别人怎么看一个一个写的代码都不一样的很多不同的方式都可以实现

#3

sunfishy2009-09-15 20:42

DW里改

可上可下可左可右.就是没法翘

#4

yushan_00082009-09-16 08:59

回复 2楼 aspic

用stm31.js实现的，怎样弄啊～

#5

孤独冷雨2009-09-16 09:07

www.tlsrd.
看一下这个网站二级菜单，它是下面一横排，排列的，把源文件打开看一下，代码复制过来，我相信你应该会调吧！

#6

yushan_00082009-09-16 09:10

回复 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所以，一时也改不过来，

#7

孤独冷雨2009-09-16 10:59

你用DIV不就行了。你去把我发给你的网站打开，再点查看源文件，把里面的代码挑出来不就行了！

#8

lzw_love12009-09-22 01:04

用CSS做简单实用