我想改个二级菜单，可是不知道，怎么改。现在的效果如下：
我想让二级菜单在，一级菜单的右侧，而不是下边，怎么改啊，高手帮忙啊～本人一点没做过～

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

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