Hej!


Jag skulle behöva lite hjälp med en meny. Jag har köpt en dropdown meny som heter coolmeny. Jag har även fått ett exempel hur man bygger menyn med hjälp av en databas. Till saken hör att jag har aldrig arbetat med javascrip och skulle nu behöva lite hjälp att anpassa den Idags läget har jag en meny som ja skall byta ut. Denna sköts från en datbas i asp VBscript. Logiken är klar och nu vill jag att mina SQL frågor skall läggas in i den nya meny så att jag får samma logik där..

Här kommer min kod för att bygga den gamla menyn
<code>
<script language="JavaScript" src="/Meny/advancedmenu.js"></script>
<script>
/*
initmenu parameters in sequence order are:
1. No of top levels.
2. Height of individual item.
3. Width of individual item.
4. Delay interval in milliseconds.
5. Layout type- The value of this parameter should be either horizontal or vertical.
*/
initmenu(5,20,79,200,"horizontal");

/*addmenuitem parameters in sequence order are:
1. Node.
2. Description which shows up.
3. URL associated with the Description.
4. Onmouseover text color.
5. Onmouseover background color.
6. Onmouseout/default text color.
7. Onmouseout/default Background color.
8. Onmousedown/default text color.
9. Onmousedown/default Background color.
10.String containing font values.
*/
</script>

<!-- #include virtual="Customer/connect.asp" -->
<% four = "#000"
five = "#ccc"
six = "#fff"
seven = "#000"
eight = "#000"
nine = "#ccc"
strFontVal = "font-family: Verdana, Arial; font-size: 10px; font-weight: 700; vertical-align: top; padding-top: 2px; padding-bottom: 3px; padding-left: 3px;"
%>

<%
'==============================================================================
' Hämtar in alla huvudmenyer från databasen
'==============================================================================

Visa = "SELECT * FROM tbl_HEADMENU where active=1"
Set REcSet=connect.execute(Visa)
'RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic


Set RecSet2 = Server.CreateObject("ADODB.Recordset")

'==============================================================================
' Loopar ignom menyerna samt bygger upp dem
'==============================================================================
Do While Not RecSet.EOF

' Sparar undan posterna i variblar som anvädnds för att bygga menyn
strPlacering = RecSet("placement")
strText = trim(RecSet("MenuName"))
strLink = RecSet("menuLink")
'strSubmeny = RecSet("Submeny")

'==============================================================================
' Script som bygger huvudmenyn
'==============================================================================
%>
<script>
addmenuitem("<%=strPlacering %>","<%=strText %>","<%=strLink %>","<%=four%>","<%=five%>","<%=six%>","<%=seven%>","<%=eight%>","<%=nine%>","<%=strFontVal%>");
</script>

<%
'==============================================================================
' Hämtar in undermenyerna från databasen
'==============================================================================
SQLsub="select a.*, bb.placement, bb.active from tbl_SUBMENU a, tbl_HEADMENU bb" & _
" WHERE bb.placement = a.headMenuID " & _
" AND bb.active = a.active " & _
" AND bb.active=1 AND a.headMenuID='" & strPlacering & "'"
set recSet2 = connect.execute(SQLsub)
'RecSet2.Open SQLsub, Connect, adOpenStatic, adLockOptimistic

'==============================================================================
' Loopar igenom undermenyerna för att bygga upp dem under resp huvudmeny
'==============================================================================
do while not RecSet2.EOF

' Sparar undan posterna i variblar som anvädnds för att bygga undermenynmenyn
strPlacering = RecSet("placement")
strID = RecSet2("subPlacement")
strSubText = trim(RecSet2("subMenuName"))
strSubLink = RecSet2("SubLink")
strParentMenu = RecSet2("headMenuID")

'==============================================================================
' Script som bygger undermenyn
'==============================================================================
%>
<script>
addmenuitem("<%= strPlacering %>,<%= strID %>","<%= strSubText %>","<%= strSubLink %>","<%=four%>","<%=five%>","<%=six%>","<%=seven%>","<%=eight%>","<%=nine%>","<%=strFontVal%>");
</script>
<%
'==============================================================================
' Avslutar loop för undermeny
'==============================================================================
RecSet2.MoveNext
Loop
RecSet2.Close
'==============================================================================
' Avslutar loop för huvudmeny
'==============================================================================
RecSet.MoveNext
Loop
RecSet.Close
%>

<script>
createmenu();
add10xitems();
</script>

</code>

Här kommer koden för den nya menyn

<code>
<%@language="JScript"%>
<%
var connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("data.mdb") + ";Persist Security Info=False";
%>
// styles
var color = {"border":"#666666", "shadow":"#DBD8D1", "bgON":"white","bgOVER":"#B6BDD2"};
var css = {"ON":"clsCMOn", "OVER":"clsCMOver"};
var STYLE = {"border":1, "shadow":2, "color":color, "css":css};

// items and formats
var MENU_ITEMS = [
{"pos":"relative", "itemoff":[0,119], "leveloff":[21,0], "style":STYLE, "size":[22,120]},
<%
Response.Expires = 0;

function getChildren(connection, parent) {
var results = connection.Execute("select * from structure where not disabled and id <> 0 and parent = " + parent);
var list = new Array();
while (!results.EOF) {
list[list.length] = new Array(
results("caption").value,
results("url").value,
results("target").value
);
var children = getChildren(connection, results("id"));
if (children.length > 0)
list[list.length - 1][3] = children;
results.MoveNext();
}
results.Close();
return list;
}

function getItems(connection) {
return getChildren(connection, 0);
}

function printItems(items, depth) {
if (!depth) depth = 0;
var s = '', last = items.length - 1, i;
for (i = 0; i <= last; i++) {
var item = items[i];
if (i > 0)
s += ',';
if (i > 0)
s += "\n";
s += '{"code":"' + item[0] + '"';
if (item[1] != '' && item[1] != 'null' && item[1] != null)
s += ', "url":"' + item[1] + '"';
if (item[2] != '' && item[2] != 'null' && item[2] != null)
s += ', "target":"' + item[2] + '"';
if (item[3]) {
if (depth == 0)
s += ", \"sub\":[\n{\"itemoff\":[21,0], \"leveloff\":[0,0]},\n";
else
s += ", \"sub\":[\n{\"itemoff\":[21,0], \"leveloff\":[11,109]},\n";
s += printItems(item[3], depth + 1);
s += ']';
}
s += "}";
}
if (depth > 0)
s += "\n";
return s;
}

var connection = Server.CreateObject("ADODB.Connection");
connection.Open(connectionString);
Response.Write(printItems(getItems(connection)));
connection.Close();
%>
];
</code>

Denna kod utgår fråna att det endast finns en tabell som den skall läsa ifrån. Jag har två tbl_Headmenyu, som bygger huvudmenyerna. Och tbl_SUBMENU som bygger undemenyerna

I tbl_HEADMENU är det placement som styr placeringen

I tbl_SUBMENY så är subplacement.

Hoppas att någon har lusta att hjälpa mig med detta. När ni förklarar så utgå från att jag är en idiot dvs helt nollställd. Anledningen till att jag vill använda det gamla tänket är att den ingår i ett större system och som måste ha den här strukturen. Jag vill alltså att den nya menyn skall köras som java och inte konverteras öbver till ASP

För ev frågor eller bättre förklaringar så kan ni maila mig direkt på tyson@tyson.st.

Info kan du hitta här: javascript.cooldev.com/scripts/coolmenupro/demos/




Tack på förhand

/phinala