MSDN 和CSDN 左边导航树的效果都是在点击父节点时,再发出请求填充其子节点!好像网页只刷新部分! JavaScript+ [ASP + Access] 实现
源程序下载: http://www.triaton.com.cn/Private/Zip/Tree.zip
<!-- Tree.asp -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<iframe width="100%" height="30" id="hiddenframe"></iframe>
<script>
function ExpandNode(ParentNode,ParentId){
var NodeX = eval(ParentNode.id + '_0');
if (NodeX.style.display == 'none')
{
NodeX.style.display="block";
if (NodeX.loaded == 'no')
{
document.frames['hiddenframe'].location.replace("http://localhost/dvbbs/subtree.asp?PID=" + ParentId + "&PNode=" + ParentNode.id);
NodeX.loaded = 'yes';
}
}
else
{
NodeX.style.display='none';
}
}
</script>
<CENTER>
<TABLE border="1" width="20%" height="60%">
<TR>
<TD>
<DIV style="OVERFLOW: auto;WIDTH: 100%;HEIGHT:100%">
<TABLE width =300%>
<TR>
<TD>
<%
dim adoConnection
set adoConnection = Server.CreateObject("ADODB.Connection")
'adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=TRIATON/PSQL2KE"
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("/dvbbs") & "/Tree.mdb;Persist Security Info=False"
dim adoRecordset
set adoRecordset = Server.CreateObject("ADODB.Recordset")
adoRecordset.Open "select *,(select count(*) from tree where parentid = T.id) as children from tree T where rootid = id ",adoConnection
dim i
i=0
do until adoRecordset.eof
%>
<div id='Node_<% = i %>'>
<a href='#'
<% if adoRecordset.Fields.item("Children").value >0 then %>
onClick='ExpandNode(Node_<% = i %>,<% =adoRecordset.Fields.item("id").value%>)'>+</a>
<% else %>
>-</a>
<% end if%>
<a href='#' onDblClick='ExpandNode(Node_<% = i %>,<% =adoRecordset.Fields.item("id").value%>)'><% =adoRecordset.Fields.item("remark").value%></a>
</div>
<div id='Node_<% = i %>_0' style='display: none' loaded='no'>
正在加载 ...
</div>
<% i=i+1
adoRecordset.MoveNext
loop
adoRecordset.close
set adoRecordset = nothing
adoConnection.close
set adoConnection = nothing
%>
</TD>
</TR>
</TABLE>
</DIV>
</TD>
</TR>
</TABLE>
</CENTER>
</BODY>
</HTML>
<!-- SubTree.asp -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<%
dim parentid
parentid = request.querystring("PID")
parentnode = request.querystring("Parentnode")
dim adoConnection
set adoConnection = Server.CreateObject("ADODB.Connection")
' adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=TRIATON/PSQL2KE"
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("/dvbbs") & "/Tree.mdb;Persist Security Info=False"
dim adoRecordset
set adoRecordset = Server.CreateObject("ADODB.Recordset")
adoRecordset.Open "select *,(select count(*) from tree where parentid =T.id ) as Children from tree T where parentid = " & parentid ,adoConnection
response.write adoRecordset.source
dim i
Dim SHTML
dim parentnode
parentnode = request.querystring("Pnode")
dim j
j= len(parentnode) - len(replace(parentnode,"_",""))
dim nSpace
for i=0 to j - 1
nSpace = nSpace + " "
next
i=0
do until adoRecordset.eof
shtml = shtml _
& "<div id='" & parentnode & "_" & i + 1 & "'>" & nSpace _
& "<a href='#'"
if adoRecordset.Fields.item("Children").value >0 then
shtml = shtml & " onClick='ExpandNode(" & parentnode & "_" & i + 1 & "," & adoRecordset.Fields.item("id").value & ")'>+"
else
shtml = shtml & ">-"
end if
shtml = shtml & "</a>/n" & "<a href='#'"
if adoRecordset.Fields.item("Children").value >0 then
shtml = shtml & "onDblClick='ExpandNode(" & parentnode & "_" & i + 1 & "," & adoRecordset.Fields.item("id").value & ")'"
end if
shtml = shtml & ">" & adoRecordset.Fields.item("id").value & ": " & adoRecordset.Fields.item("remark").value & "</a></div>"
if adoRecordset.Fields.item("Children").value >0 then
shtml = shtml & "<div id='" & parentnode & "_" & i + 1 & "_0' style='display: none' loaded='no'>" & nSpace & " 正在加载 ...</div>"
end if
i=i+1
adoRecordset.MoveNext
loop
adoRecordset.close
set adoRecordset = nothing
adoConnection.close
set adoConnection = nothing
'response.write shtml
%>
<script>
var x = eval('parent.' + '<% =request.querystring("Pnode") & "_0"%>' ) ;
x.innerHTML="<% =shtml %>";
</script>
</BODY>
</HTML>
表结构:
Tree(id,parentid,remark)
分享到:
相关推荐
【VB、VF、VC、Java与MSDN:编程语言与开发者资源】 VB(Visual Basic)是一种由微软开发的事件驱动的编程语言,以其易学易用的特性深受初学者和专业开发者的喜爱。VB提供了直观的图形用户界面(GUI)设计工具,...
必大家都听说过Share MSDN吧?没错,这就是那个即使你没有msdn帐号能下msdn资源的软件!当然包括windows7,只不过没有序列号...嘿嘿 10-25更新 - Share MSDN - Version 1.4.9.2320 MSDN资源查询/下载软件 说明: ...
然而,更常见的是,JavaScript被用来增强客户端的用户体验,如表单验证、动态效果等。 6. **部分文件(Part1等)**:在压缩包中的"教学资源 part1"可能指的是教程的分段内容,这些部分可能包括了逐步指南、示例代码...
标题 "轻松实现类 MSDN 2002 界面" 暗示我们要讨论的是在Visual C++环境中创建一个类似Microsoft Developer Network (MSDN) 2002的用户界面的方法。MSDN 2002是一款早期的开发者资源库,其界面设计对后来的开发工具...
4. **CTreeCtrl**:用于创建类似MSDN左侧的分类树形结构,展示各种编程库、类或函数的层级关系。 5. **CEditView** 或 **CRichEditCtrl**:用于显示和编辑文档内容,类似于右侧的API详情或示例代码。 6. **CMenu** ...
MSDN.For.VB6.0.zip 安装版本,可用; 1、执行setup.exe。 2、注册码已固化在安装程序里,不必输入了。^*^ 3、按照提示点击鼠标就完事OK。(不要使用键盘) !!!本安装可能会与新版MSDN冲突,如果您有新版MSDN,就别...
根据提供的文件信息,我们可以深入探讨有关MSDN ASP视频教程的相关知识点。这包括了解MSDN是什么、ASP技术的基本概念以及为何该视频教程值得学习等多方面内容。 ### MSDN概述 MSDN(Microsoft Developer Network)...
MSDN(Microsoft Developer Network)是微软为开发者提供的一套完整的开发资源库,它包含了微软各种开发工具、操作系统、编程语言的详细文档和技术资料。对于C++程序员来说,MSDN尤其重要,因为它提供了全面的Visual...
MSDN上 ASPNET相关内容打包成chm,这个更为详细。 易于阅读和搜索。
【仿CSDN网站源代码】是一个编程项目,旨在实现CSDN(China Software Developer Network)网站的部分核心功能,提供给初学者或爱好者一个实践和学习的平台。这个项目具有良好的练习价值,可以帮助开发者加深对Web...
本文将详细探讨"经典的MSDN弹出菜单效果"这一主题,以及如何实现这种效果。 弹出菜单,又称为下拉菜单或浮动菜单,是用户界面设计中的一个重要元素。它通常出现在鼠标悬停或点击某个特定按钮时,能够提供额外的操作...
2. **对象模型**:VB6中的许多功能都是通过对象和它们的方法、属性来实现的。这部分会列出VB6的标准控件,如Form、Label、Button等,以及它们的方法和属性,如Form的Load事件或Button的Click事件。 3. **类库参考**...
MSDN官方网站html源码,MSDN 技术资源库 做一个安静的工具站,系统之家,电脑系统下载站!包含纯净win7/8/10/xp/win10/win11系统资源 适合做官网首页,喜欢的可以自己动手改下!
python帮助文档(类似vc的msdn),chm版,可查阅,很强大,好东西一起分享
ASP.NET MVC 1.0 MSDN Reference CHM Version ASP.NET MVC 1.0 MSDN 参考及类库,CHM版本,从MSDN 官方网站下载并编译。源分支URL: http://msdn.microsoft.com/en-us/library/dd394709.aspx 内容列表: ASP.NET MVC...
win7MSDN官方下载
MSDN是一个微软开发的!感兴趣就来下下吧!
MSDN VB6精简版 ,去除了MSDN中VC。 VF以及其他部分,只保留了完整的VB帮助,强烈推荐! ========= 安装说明 ========= 1、执行setup.exe。 2、注册码已固化在安装程序里,不必输入了。^*^ 3、按照提示...
《VC++ 6.0 MSDN 文档》是开发者们在使用Microsoft Visual C++ 6.0进行MFC(Microsoft Foundation Classes)编程时的重要参考资料。MFC是一个C++类库,它封装了Windows API,使得程序员可以使用面向对象的方式来编写...