OfficeXP_menu(过程版)

过程

/**
* 仿OfficeXP风格的左边版面列表    
* --------------------------------------------------------------------------------
* blood 于 2/19/2002 4:47:11 PM 加贴在 Visual Basic
*
* 徐祖宁(唠叨) 移植于 2/28/2002
* 更正部分错误
*
*/

if($key == ""):
echo

          
    
    
  

EOD;
endif;

if($key == "menu"):
/**
*
* $MenuOn                      定义分类菜单数目
* $MenuBackColor               定义分类菜单背景颜色
* $MenuFontSize                定义分类菜单字体
* $MenuBarHeight               定义分类菜单高度
* $ItemTextColor               定义分类菜单项目文字颜色
* $ItemBackColor               定义分类菜单项目背景颜色
* $TopMenuHeight               定义分类菜单与顶部的间距
* $SelectedItemDarkBorder      定义分类菜单项目在鼠标移动到上面时的暗边框颜色
* $SelectedItemLightBorder     定义分类菜单项目在鼠标移动到上面时的亮边框颜色
* $SelectedItemBackgroundColor 定义分类菜单项目在鼠标移动到上面时的背景颜色
* $menuSubSectionBackColor     定义二级菜单背景颜色
* $menuSubSectionFontColor     定义二级菜单菜单字体颜色
* $defTarget                   定义菜单项目超连接默认目标框架
*/
$TopMenuHeight = 0;           //设置分类菜单与顶部的间距
$MenuBarHeight = 20;          //设置分类菜单高度
$MenuFontSize = "9pt";            //设置菜单字体大小

//我们使用仿Office XP风格的外观，也可以使用普通外观。
$menu_mode = false;

if($menu_mode) {
  //普通菜单外观
  $MenuBackColor = "lightgrey";             //设置背景颜色
  $ItemBackColor = "#7f7f7f";               //设置菜单项目背景色
  $ItemTextColor = "#ffffff";               //设置菜单项目文字颜色
  $SelectedItemDarkBorder = "#ffffff";      //设置菜单项目在鼠标移动到上面时的暗边框颜色
  $SelectedItemLightBorder = "#000000";     //设置菜单项目在鼠标移动到上面时的亮边框颜色
  $SelectedItemBackgroundColor = "";        //设置菜单项目在鼠标移动到上面时的背景颜色
  $menuSubSectionBackColor = "lightgrey";   //设置二级菜单背景颜色
  $menuSubSectionFontColor="black";          //设置二级菜单字体颜色
}else {
  //仿Office XP风格外观
  $MenuBackColor = "lightgrey";             //设置背景颜色
  $ItemBackColor = "lightgrey";             //设置菜单项目背景色
  $ItemTextColor = "#000000";               //设置菜单项目文字颜色
  $SelectedItemDarkBorder = "#08246B";      //设置菜单项目在鼠标移动到上面时的暗边框颜色
  $SelectedItemLightBorder = "#08246B";     //设置菜单项目在鼠标移动到上面时的亮边框颜色
  $SelectedItemBackgroundColor = "#B5BED6"; //设置菜单项目在鼠标移动到上面时的背景颜色
  $menuSubSectionBackColor = "darkgray";    //设置二级菜单背景颜色
  $menuSubSectionFontColor = "black";       //设置二级菜单字体颜色
}
$defTarget = "main";    //设置菜单项目超连接默认目标框架

echo

EOD;

$menuOn = 0;             //对菜单数目初始化

/**
* 绘制菜单方法：
* menuStartSection($Seq, $Label)
*   制作分类菜单
*   $Seq = 分类菜单序列号，使用菜单序列号控制启动是显示顺序
*   $Label = 分类菜单标题
* menuAddItem($Label, $Description, $URL, $Target="")
*   制作菜单项目
*   $Label = 项目标题
*   $Description = 项目简介
*   $URL = 超连接地址
*   $Target = 超连接目标框架，默认为$defTarget
* menuAddSubSection($Label)
*   制作二级分类菜单。
*   $Label = 二级分类菜单标题
* menuAddSubSectionLine()
*   制作项目分割线，使用高度为2的图片
* menuEndSection()
*   分类菜单结束
* menuSectionAsItem($Label, $Description, $URL, $Target="")
*   制作带超连接的分类菜单，类似菜单项目，可以直接使用
*   $Label = 分类菜单标题
*   $Description = 分类菜单简介
*   $URL = 超连接地址
*   $Target = 超连接目标框架，默认为$defTarget
*/

/**
* 函数定义
*/
function menuAddItem($itemLabel, $StatusText, $URL, $target="") {
  global $defTarget,
         $SelectedItemDarkBorder,
         $SelectedItemLightBorder,
         $ItemTextColor,
         $SelectedItemBackgroundColor,
         $MenuFontSize ;
  if($target == "") $target = $defTarget;
  $URL = rawurldecode($URL);
  echo
$itemLabel
EOD;
}

function menuAddSubSection($ItemLabel) {
  global $menuSubSectionBackColor,
         $MenuFontSize,
         $menuSubSectionFontColor;
  echo
$ItemLabel
EOD;
}

function menuAddSubSectionLine() {
  echo

  
    
     
       
     
    
  

EOD;
}

function menuSectionAsItem($SectionSeq, $SectionName, $SectionDesc, $URL, $target="") {
  global $defTarget,
         $menuBackColor,
         $MenuBarHeight,
         $MenuFontSize;
  if($target == "") $target = $defTarget;
  $URL = rawurldecode($URL);
  $mh = $MenuBarHeight-2;
  echo


  




  

$SectionName

  


EOD;
}

function menuStartSection($SectionSeq, $SectionName) {
  global $menuBackColor,
         $MenuBarHeight,
         $MenuFontSize,
         $menuSection,
         $ItemBackColor;
  $mh = $MenuBarHeight-2;
  echo


  




  

$SectionName

  



EOD;
}

/**
* 创建菜单
*/
  menuStartSection(2, "代码世界");
  menuAddItem("Joy ASP", "欢迎访问Joy ASP", "$PHP_SELF?key=page&id=Joy ASP");
  menuAddItem("Java 世界", "欢迎访问Java 世界", "$PHP_SELF?key=page&id=Java 世界");
  menuAddItem("DotNet 时代", "欢迎访问DotNet 时代", "$PHP_SELF?key=page&id=DotNet 时代");
  menuAddItem("Visual Basic", "欢迎访问Visual Basic", "$PHP_SELF?key=page&id=Visual Basic");
  menuAddItem("Delphi", "欢迎访问Delphi", "$PHP_SELF?key=page&id=Delphi");
  menuEndSection();

  menuStartSection(3, "开心一刻");
  menuAddItem("传统笑话", "传统笑话", "$PHP_SELF?key=page&id=传统笑话");
  menuAddItem("近代笑话", "近代笑话", "$PHP_SELF?key=page&id=近代笑话");
  menuAddSubSection("儿童类");
  menuAddItem("校园笑话", "校园笑话", "$PHP_SELF?key=page&id=校园笑话");
  menuAddItem("幼儿笑话", "幼儿笑话", "$PHP_SELF?key=page&id=幼儿笑话");
  menuAddItem("少年笑话", "少年笑话", "$PHP_SELF?key=page&id=少年笑话");
  menuAddSubSectionLine();
  menuAddItem("中学时代笑话", "中学时代笑话", "$PHP_SELF?key=page&id=中学时代笑话");
  menuAddSubSection("成人笑话");
  menuAddItem("带颜色的笑话", "带颜色的笑话", "$PHP_SELF?key=page&id=带颜色的笑话");
  menuAddItem("笑话林", "笑话林", "$PHP_SELF?key=page&id=笑话林");
  menuEndSection();

  menuSectionAsItem(3, "菜单简介", "菜单简介", "$PHP_SELF?key=about");

  menuStartSection(1, "个人收藏夹");
  menuAddItem("DotNet 时代", "欢迎访问DotNet 时代", "$PHP_SELF?key=page&id=DotNet 时代");
  menuEndSection();

  // 将个人收藏夹定为启动菜单
  $menuOn = 4;

/**
* 输出javascript脚本
*/
echo


EOD;

endif;


if($key == "page"):
echo






欢迎访问 $id


EOD;
endif;

if($key == "about"):
echo






关于此菜单




说明，此菜单程序只能使用在IE 5以上的版本使用，NetSpace下不能使用，推荐使用IE 6正式中文版


EOD;
endif;
?>