| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1111 人关注过本帖
标题:[求助]寻找阳光白雪
取消只看楼主 加入收藏
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
结帖率:68.57%
收藏
 问题点数:0 回复次数:10 
[求助]寻找阳光白雪

以下是阳光白雪写的关于树型目录的一段程序,程序很好,但是我想问的是,我的是一个页面两个框架的,左框架(连接树型菜单)右框架显示点击树型菜单后连接的窗口(假如右框架连接main.asp),那请问,如我点击树型菜单中的“保存”,我想让“保存”窗口(save.asp),在右窗口打开,这样程序怎么呀?谢谢!!<



<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'**************************************************************
'**************************************************************
'**版本:Toumh无极限菜单树 **
'**编号:TOUMH-20051124 **
'**作者:阳光白雪 **
'**主页:http://www.ec2002.com ; **
'**邮件:chenmanyi0818@126.com **
'**声明:转载或使用时请保留程序的完整性,请保留以上信息。 **
'** 禁止用于任何商业用途! **
'**************************************************************
'**************************************************************
dataurl=Server.MapPath("menutree.mdb")'数据库地址
dim conn,strQuery,rs
set conn = server.CreateObject("adodb.connection")
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl
strQuery="select * from menufun"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1,1
allnum=rs.RecordCount
'取得最大的层数MaxLevel%>
<%
MaxLevel=1
for i=1 to allnum
if rs("PartLevel")>MaxLevel then
MaxLevel=rs("PartLevel")

end if
rs.movenext
next
rs.close
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Toumh无极限菜单树</title>
<style type="text/css">
<!--
td {
font-size: 12px;
}
-->
</style>
<script language="javascript">
<!--
function divshow(cmy1,cmy2,cmy3)
//展开/合并菜单函数
{
if(document.all("div"+cmy1+cmy2+cmy3).style.display==""){
document.all("div"+cmy1+cmy2+cmy3).style.display="none"
}else{
document.all("div"+cmy1+cmy2+cmy3).style.display=""
}
}
//-->
</script>
</head>
<body bgcolor="#6699CC" topmargin="0">
<table border="0" cellpadding="0" cellspacing="0">
<tr onClick="javascript:divshow(1,0,1);" style="cursor:hand"><TD><img src="images/admin.gif">Toumh无极限菜单树</TD></tr>
<%
dim toumh(10) '定义用于存放菜单前显示树图片的数组,如果应用时的最大级数大于十,请扩大数组维数
call menutree(1,0,MaxLevel,1)'首次调用菜单输出函数
'第一个参数:菜单的级数
'第二个参数:父菜单的ID,一级菜单默认为零
'第三个参数:菜单的最大级数
'第四个参数:用于区分层的名称,方便实现菜单的展开合并
%>
</table>
<%
'funno 菜单的级数
'funcid 父菜单的ID,一级菜单父级ID值为0
'MaxLevel 菜单的最大级数
'divno 用于区分层的名称,方便实现菜单的展开合并
'menutree() 数形菜单输出函数
function menutree(funno,funcid,MaxLevel,divno)
dim rsfun,numfun,funcidfun
strQuery1="select * from menufun where sup_funcid='"&funcid&"'"
set rsfun=server.createobject("adodb.recordset")
rsfun.open strQuery1,conn,1,1
numfun=rsfun.RecordCount
response.Write("<tr><td>")
response.Write("<div id='div"&funno&funcid&divno&"' style='display:none'>")'输出层,并根据相关参数给层定义唯一的ID名称
response.Write("<table border='0' cellpadding='0' cellspacing='0'>")
for j=1 to numfun
funcidfun=rsfun("funcid")
if j=numfun then '判断是否是本级菜单的最后一个
toumh(funno)="space.gif" '是则输出空白图片space.gif
else
toumh(funno)="line_v.gif" '否则输出竖线图片line_v.gif
end if
'判断是否有下级菜单
strQuery2="select * from menufun where sup_funcid='"&funcidfun&"'"
set rsfun2=server.createobject("adodb.recordset")
rsfun2.open strQuery2,conn,1,1
numfun2=rsfun2.RecordCount
'如果numfun2>0则有,反之则无
if numfun2 > 0 then
response.Write("<tr onClick='javascript:divshow("&funno+1&","&funcidfun&","&j&");' style='cursor:hand'>")
'用单击事件调用展开/合并菜单函数
else
response.Write("<tr style='cursor:hand'>")
end if
response.Write("<td>")
if numfun2 > 0 then
treeico="open_normal.gif"
if j=numfun then
treeico="open_end.gif"
end if
else
treeico="none_normal.gif"
if j=numfun then
treeico="none_end.gif"
end if
end if
for m=1 to cint(funno)-1 '根据当前菜单的级数输出菜单前的数形图片
response.Write("<img src='images/"&toumh(m)&"' align='absMiddle'>")
next

''''''''Rainic
dim font_color,link_url
if rsfun("link_url")<>"" then
link_url=rsfun("link_url")
else
link_url="###"
end if
if not rsfun("enable") then '判断菜单项是否可用,不可用的菜单名用#FF0000色显示
font_color="red"
else
font_color="black"
end if
response.Write("<img src='images/"&treeico&"' align='absMiddle'><a href='"&link_url&"'><font color='"&font_color&"'>"&rsfun("funcname")&"</font></a>")'输出不可用菜单名
''''''''Rainic

response.Write("</td>")
response.Write("</tr>")
if cint(funno)<cint(MaxLevel) then
call menutree(cint(funno)+1,funcidfun,MaxLevel,j) '递归调用 menutree()函数
end if
rsfun.movenext
next
'response.Write("</td></tr>")
response.Write("</table></div>")
response.Write("</td></tr>")
end function
%>
<!-- 程序中未能改变菜单展开/合并时的图片的属性,有兴趣的网友可以自己添加该功能 -->
<!--</body> -->
</html>
搜索更多相关主题的帖子: 阳光白雪 菜单 框架 窗口 
2005-12-24 14:30
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
收藏
得分:0 

您能跟我解决吗?谢谢!


我是农家的孩子,我有农家孩子的本色!
2005-12-24 16:17
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
收藏
得分:0 
阳光白雪,

先祝您“生蛋”快乐,生蛋之余,我还想得麻烦您帮我解决上面的问题。谢谢!!

我是农家的孩子,我有农家孩子的本色!
2005-12-25 11:38
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
收藏
得分:0 

各位帮帮忙!谢谢!!


我是农家的孩子,我有农家孩子的本色!
2005-12-26 15:37
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
收藏
得分:0 
有人帮忙吗?

我是农家的孩子,我有农家孩子的本色!
2005-12-26 16:49
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
收藏
得分:0 
来了吗?

我是农家的孩子,我有农家孩子的本色!
2005-12-28 11:27
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
收藏
得分:0 
终于等到您来了,大哥!

谢谢谢谢!非常感谢!!

我是农家的孩子,我有农家孩子的本色!
2005-12-28 16:14
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
收藏
得分:0 
哥们!又找您了,

我调试了很久还是不行,

老是提示缺少“)”

怎么办呢,谢谢!!

我的主框架为:mainframe

我是农家的孩子,我有农家孩子的本色!
2005-12-30 08:58
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
收藏
得分:0 
好的,谢谢!!

如不行还得麻烦你。

我是农家的孩子,我有农家孩子的本色!
2005-12-30 09:29
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
收藏
得分:0 
我把 href="javascript:" 删掉就可以实现其功能了。请问为什么?

如果加上 href="javascript:" ,总是有缺少“)”的提示


谢谢您!阳光白雪,我还想问一个问题:

搜索出来的树型菜单中有“退出管理系统”和“返回登陆窗口”的页面,我想点击“退出系统”,系统会给我个提示,然后用户决定是否退出窗口,如点击确定,就退出了;这怎么实现?

又如点击“返回登陆窗口”,这时直接返回到登陆窗口去,不想让登陆窗口在右边的窗口(mainframe)显示,这又怎么实现呢?也就是说,从数据库搜索出来的树型菜单,想让一些在mainframe(右窗口)显示,一些直接打开一个窗口,或直接弹出对话框。这怎么实现呢?谢谢!这做好了,相信更完美了,太感谢您了。阳光白雪。

说明:
不用树型菜单前我是这样实现的:

<TD height=20 ><div align="left"><font size="1"><a href="javascript:close();"
target=_parent>退出管理系统</a></font></div></TD>

---------------------------------------------------------------------------

<TD height=22 ><div align="left"><font size="1"><A href="../index.asp"
target=_parent>返回登陆窗口</A></font></div></TD>

现在用了树型菜单,都是从数据库搜索出来的,我就不知道怎么做了,能再帮帮我吗?(如我把这两项提出来,不放在数据库里,用上面两段程序,是可以实现,但是我还是想让“退出管理系统”和“系统管理首页”一起放在数据库里来实现,这要美观多了

我是农家的孩子,我有农家孩子的本色!
2006-01-04 21:38
快速回复:[求助]寻找阳光白雪
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019515 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved