[求助]寻找阳光白雪 - ASP

天泪离星

电梯直达

1^#

发表于 2010-1-14 03:18:44 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

以下是阳光白雪写的关于树型目录的一段程序，程序很好，但是我想问的是，我的是一个页面两个框架的，左框架（连接树型菜单）右框架显示点击树型菜单后连接的窗口（假如右框架连接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">

</style>
<script language="javascript">

</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
%>


</html>

收藏0

使用道具举报

爱人好难a

2^#

发表于 2010-1-14 03:18:48 | 只看该作者

他和他GF过生蛋节去了

回复支持反对

使用道具举报

☆冬虫草☆

3^#

发表于 2010-1-14 03:18:52 | 只看该作者

您能跟我解决吗？谢谢！

回复支持反对

使用道具举报

简单快乐

4^#

发表于 2010-1-14 03:18:56 | 只看该作者

阳光白雪，

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

回复支持反对

使用道具举报

═━灆涩━═

5^#

发表于 2010-1-14 03:19:00 | 只看该作者

各位帮帮忙！谢谢！！

回复支持反对

使用道具举报

假tp老tp练

6^#

发表于 2010-1-14 03:19:36 | 只看该作者

我也想知道同样的问题！

回复支持反对

使用道具举报

駃旒_鎏蒗瀦

7^#

发表于 2010-1-14 03:19:40 | 只看该作者

有人帮忙吗？

回复支持反对

使用道具举报

天泪离星

8^#

楼主| 发表于 2010-1-14 03:19:44 | 只看该作者

来了吗？

回复支持反对

使用道具举报

深水海狗

9^#

发表于 2010-1-14 03:19:48 | 只看该作者

font_color="black"
end if
response.Write("<img src='images/"&treeico&"' align='absMiddle'><a href="javascript:" onclick=winlocation('"&link_url&"')><font color='"&font_color&"'>"&rsfun("funcname")&"</font></a>")'输出不可用菜单名

<script language=javascript>
function winlocation(url){
rightframe.location=url
}
</script>
frightframe是唷框架的名称！

不好意思，今天才看见！！！呵呵~~~~~

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册