程序代码如下：
USING SYSTEM;
USING SYSTEM.COLLECTIONS;
USING SYSTEM.COMPONENTMODEL;
USING SYSTEM.DATA;
USING SYSTEM.DRAWING;
USING SYSTEM.WEB;
USING SYSTEM.WEB.SESSIONSTATE;
USING SYSTEM.WEB.UI;
USING SYSTEM.WEB.UI.WEBCONTROLS;
USING SYSTEM.WEB.UI.HTMLCONTROLS;
USING SYSTEM.DATA.OLEDB;
NAMESPACE WEBAPPLICATION6
{
/// <SUMMARY>
/// WEBFORM1 的摘要说明。
/// </SUMMARY>
PUBLIC CLASS WEBFORM1 : SYSTEM.WEB.UI.PAGE
{
PROTECTED COALESYS.WEBMENU.WEBMENU CSNETMENU;
PRIVATE VOID PAGE_LOAD(OBJECT SENDER, SYSTEM.EVENTARGS E)
{
// 在此处放置用户代码以初始化页面
CSNETMENU.MENUBAR.ABSOLUTEDOCKENABLED = FALSE;
CSNETMENU.MENUBAR.ABSOLUTEDRAGENABLED = FALSE;
CSNETMENU.MENUBAR.BACKGROUNDCOLOR = "";
CSNETMENU.MENUBAR.OUTERHIGHLIGHTCOLOR = "#666666";
CSNETMENU.MENUBAR.OUTERSHADOWCOLOR = "#666666";
CSNETMENU.MENUBAR.INNERSHADOWCOLOR = "#F9F8F7";
CSNETMENU.MENUBAR.HOVERCOLOR = "#DFDFDF";
CSNETMENU.MENUBAR.SELECTEDCOLOR = "#B6BDD2";
CSNETMENU.MENUBAR.SELECTEDTEXTCOLOR = "#000000";
CSNETMENU.BACKGROUNDCOLOR = "";
CSNETMENU.SELECTEDCOLOR = "#B6BDD2";
CSNETMENU.OUTERHIGHLIGHTCOLOR = "#C0C0C0";
CSNETMENU.OUTERSHADOWCOLOR = "#C0C0C0";
CSNETMENU.INNERSHADOWCOLOR = "#808080";
CSNETMENU.POPUPICON = "./IMAGES/ARROW-BLACK.GIF";
CSNETMENU.SELECTEDPOPUPICON = "./IMAGES/ARROW-WHITE.GIF";
CSNETMENU.CLEARPIXELIMAGE = "./IMAGES/CLEARPIXEL.GIF";
// POPULATE WEBMENU
LOADWEBMENUDATA(CSNETMENU);
}
//=============================================================================
// LOADWEBMENUDATA - LOAD WEBMENU FROM DATABASE
//
// INPUT:
// CSWEBMENU - [IN] COALESYS.WEBMENU.WEBMENU OBJECT
//
// OUTPUT:
// NONE
//
PUBLIC VOID LOADWEBMENUDATA(COALESYS.WEBMENU.WEBMENU CSWEBMENU)
{
COALESYS.WEBMENU.GROUP CSMENUGROUP;
// DATABASE INFO
STRING DBCONNSTRING = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=";
STRING DBPATHSTRING = SERVER.MAPPATH("./SELFREFERENCEDTABLE.MDB");
STRING DBSQLSTRING = "SELECT * FROM NODES ORDER BY ID";
// INITIATE OLEDB INTERFACE
OLEDBCONNECTION DBCONN = NEW OLEDBCONNECTION(DBCONNSTRING + DBPATHSTRING);
OLEDBCOMMAND DBCOMM = NEW OLEDBCOMMAND(DBSQLSTRING, DBCONN);
OLEDBDATAADAPTER DBADAPTER = NEW OLEDBDATAADAPTER();
DBCONN.OPEN();
// FILL AN ADO.NET DATASET
DATASET DS = NEW DATASET();
DBADAPTER.SELECTCOMMAND = DBCOMM;
DBADAPTER.FILL(DS, "MENUITEMS");
DBCONN.CLOSE();
// CREATE THE DATA RELATION BETWEEN THE ID AND PARENT_ID COLUMNS OF THE MENUITEMS TABLE.
// (THIS IS THE KEY TO HIERARCHICAL NAVIGATING IN A SELF-REFERENCING TABLE).
DATARELATION DR = DS.RELATIONS.ADD("MENUITEMHIERARCHY",
DS.TABLES["MENUITEMS"].COLUMNS["ID"],
DS.TABLES["MENUITEMS"].COLUMNS["PARENT_ID"]);
// START TOP-DOWN NAVIGATION OF THE MENUITEM ROWS.
FOREACH(DATAROW DBMENUITEM IN DS.TABLES["MENUITEMS"].ROWS)
{
// IF THE PARENT_ID COLUM IS NULL, THEN THIS IS A ROOT MENU ITEM.
IF(DBMENUITEM.ISNULL("PARENT_ID"))
{
// CREATE A MENU GROUP FOR THE ROOT MENU ITEM
CSMENUGROUP = CSWEBMENU.GROUPS.ADD();
CSMENUGROUP.CAPTION = DBMENUITEM["CAPTION"].TOSTRING();
// EXECUTE THE RECURSIVE FUNCTION TO POPULATE ALL IT'S CHILDREN.
ADDMENUITEMS(DBMENUITEM.GETCHILDROWS(DR), DR, CSMENUGROUP);
}
}
}
//=============================================================================
// ADDMENUITEMS - RECURSIVE FUNCTION TO POPULATE HIERARCHICAL MENU ITEMS
// FROM DATA ROWS THAT HAVE PARENT/CHILD RELATIONSHIPS.
//
// INPUT:
// DATAROWS - [IN] CHILD ROWS
// DATAREL - [IN] DATA RELATION
// WEBMENUGROUP - [IN] WEBMENU GROUP
//
// OUTPUT:
// NONE
//
PUBLIC VOID ADDMENUITEMS(DATAROW[] DATAROWS, DATARELATION DATAREL, COALESYS.WEBMENU.GROUP WEBMENUGROUP)
{
COALESYS.WEBMENU.ITEM CSMENUITEM;
COALESYS.WEBMENU.GROUP CSNESTEDMENUGROUP;
DATAROW[] DRCHILDREN;
FOREACH(DATAROW DBMENUITEM IN DATAROWS)
{
CSMENUITEM = WEBMENUGROUP.ITEMS.ADD();
CSMENUITEM.CAPTION = DBMENUITEM["CAPTION"].TOSTRING();
CSMENUITEM.URL = DBMENUITEM["URL"].TOSTRING();
IF (DBMENUITEM["ENABLE"].TOSTRING()=="TRUE" )
{
CSMENUITEM.ENABLED=TRUE;
}
ELSE
{
CSMENUITEM.ENABLED=FALSE;
}
// CHECK IF THIS ITEM HAS CHILDREN OF IT'S OWN
DRCHILDREN = DBMENUITEM.GETCHILDROWS(DATAREL);
// IF SO, CREATE A GROUP FOR THE CHILDREN AND REENTER THIS FUNCTION.
IF(DRCHILDREN.LENGTH > 0)
{
CSNESTEDMENUGROUP = CSMENUITEM.ADDGROUP();
ADDMENUITEMS(DRCHILDREN, DATAREL, CSNESTEDMENUGROUP);
}
}
}
}
效果图如下：
