$handle = ora_plogon(sender,password) or die("数据库连接失败!");
  $cursor=ora_open($handle);  共游标
  $cursor_tree=ora_open($handle);  立树专用游标
  $num=0;  存游标数值变量
  ora_commiton($handle);  动开启ORACLE的提交
?>

立树的主要函数,传递的参数为根节点的编号和根节点的标题
function create_tree($rootid,$roottilte){
  print_parent_from_rootsortid($rootid,$roottilte);
}
印根节点div头的函数
function print_parent_from_rootsortid($rootid,$roottilte){
  $parent_fullname="R".$rootid."Parent";  父级区别标志
  $parent_id="R".$rootid;
  $parent_pic="R".$rootid."img";
  echo "
 

  href="http://www.csdn.NET/expert/menu.shtm#"
  onclick="expandIt('$parent_id'); return false">  src="image/folderclosed000.gif" width=19>$roottilte

  global $cursor_tree;
  $Bottom_Flag=0;
  $len=strlen($rootid)+2;  级编码为父级编码长度加2
  $query = "select ResourceSortNo,ResourceSortName,SectionBottomFlag
  From TbSort
  Where length(ResourceSortNo)=$len and ResourceSortNo like '$rootid%'";  /">file://sql查询语句
  ora_parse($cursor_tree, $query) or die;
  ora_exec($cursor_tree);

  $child_fullname="R".$rootid."Child";  子级区别标志
  echo "

}
断是否是末级标志,并且打印子级编码的函数
function print_child_from_rootsortid($Section_Title,$Section_No,$Bottom_Flag){
  global $num;
  $len=2*$num+2;
  for($j=0;$j<$len;$j++){
  echo " ";
  }  出节点之间间距空格的循环

  if($Bottom_Flag==1){
  echo "
 
  Exchange.ASP" target=forum>$Section_Title
";
  }else{
  $p_id="R".$Section_No;
  $p_pic="R".$Section_No."img";
  echo "
 
  $Section_Title
";
  $child_fullname="R".$Section_No."Child";
  echo "

  }

}
询所有子级编码的函数
function find_allchild_from_rootsortid($Section_No){
  global $handle,$num;
  $num++;
  $cursor_ary[$num] = ora_open($handle);
  $len=strlen($Section_No)+2;  ó??±e±ào?3¤?è
  $query = "SELECT ResourceSortNo,ResourceSortName,SectionBottomFlag
  From TbSort
  Where length(ResourceSortNo)=$len and ResourceSortNo like '$rootid%'";  查询语句
  ora_parse($cursor_ary[$num], $query) or die;
  ora_exec($cursor_ary[$num]);
  while(ora_fetch($cursor_ary[$num]))
  {
  $Sort_Title = trim(ora_getcolumn($cursor_ary[$num],1));
  $Sort_No  = trim(ora_getcolumn($cursor_ary[$num],0));
  $Bottom_Flag  = trim(ora_getcolumn($cursor_ary[$num],2));
  print_child_from_rootsortid($Sort_Title,$Sort_No,$Bottom_Flag);  印所有的子级节点-----嵌套递归函数乙
  }
  $num--;
}

?>