关于访问数据库,构成树,把生成的网页代码发送到客户端的服务器端代码 --->>>

ricky460 2003-09-09 05:05:10
服务器端有一个access的数据库Account.mdb,库中有一个表,表名:Account
表的设计如下:
ID --- 自动递增的索引
TeamId --- 所在组的编号
TeamName --- 所在组的名字
Name --- 职员的姓名
现在希望能够在客户端显示成如下树结构.
例如:
第一组
|---张三
|---李四
第二组
|---周五
|---郑二
需要在服务器端,搜索数据库account表 , 生成树列表,把生成好的网页发送到客户端 . . .
哪位大侠能够给我编写好的服务器端源代码????
要求: 希望服务器端用Asp和JavaScript编写 . . . .
另注: 生成树的JS代码已经有了,只需要在文件中包含<!-- #include file = "tree.js" -->
然后调用:
foldersTree = folderNode("第一组")
appendChild(folderTree, leafNode("张三"))
appendChild(folderTree, leafNode("李四"))
foldersTree = folderNode("第二组")
appendChild(folderTree, leafNode("周五"))
appendChild(folderTree, leafNode("郑二"))
哪个好心的大哥有时间,能够给我个Email,我把几个文件给发过去...给我看看 . . .
一定最好用JavaScript..
...全文
71 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
超级大笨狼 2003-09-13
  • 打赏
  • 举报
 回复
仿照csdn左面的菜单的ASP+数据库无限级树菜单代码分享

近来问无限级数据库树菜单人很多，我就自己做了一个仿照csdn左面的菜单，自己暂时不用，完全是给大家分享的，要数据库和代码文件请到www.ymdg.com/tree.rar下载，如果有人提供空间存放那是最好了。
本文完全采用大家熟悉的ASP（VBS）制作，过写日子我再写一个基于XML技术的给大家。
QQ:28963147,email:panyuguang962@sohu.com
感谢CSDN和全体网友！
说明：
Access数据库
● 数据库名：tree
● 表名：tree
● 字段名的设计
ID 文本类型 编码
Name 文本类型 节点文字
HyperLink 文本类型 相关信息
---------------------------------------------------
ID | Name | HyperLink
---------------------------------------------------
1_1_1 | ASP | http://www.csdn.net
---------------------------------------------------
1_1_1_1 | DHTML | http://www.csdn.net
---------------------------------------------------
1_2_2 | JAVA | http://www.csdn.net
---------------------------------------------------
1_1_2 | JavaScript | http://www.csdn.net
---------------------------------------------------
1_2_1 | VB | http://www.csdn.net
---------------------------------------------------
1_2_1_2 | VBA | http://www.csdn.net
---------------------------------------------------
1_1 | WEB开发 | http://www.csdn.net
---------------------------------------------------
1 | WWW.CSDN.net | http://www.csdn.net
---------------------------------------------------
1_2_1_1 | 基础类 | http://www.csdn.net
---------------------------------------------------
1_3_1 | 基础类 | http://www.csdn.net
---------------------------------------------------
1_2 | 开发语言 | http://www.csdn.net
---------------------------------------------------
1_1_1_2 | 内建对象 | http://www.csdn.net
---------------------------------------------------
1_3 | 数据库 | http://www.csdn.net
----------------------------------------------------
文件：nolimited.asp经简单测试好用！代码如下：
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>asp树的研究</title>
</head>
<style type="text/css">
<!--
.aa {
font-size: 14px;
color: #000000;
text-align: center;
vertical-align: middle;
letter-spacing: 0px;
word-spacing: 0px;
}
-->
</style>
<body bgcolor="DEE3F7">
<%
dim cn,rs,SQL ,Para,NumChild
set cn=server.CreateObject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
set rs1=server.createobject("ADODB.recordset")
cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tree.mdb")
SQL="Select * from tree order by ID"
rs.open SQL,cn,3,2
do while not rs.EOF
SQL="Select ID from tree where ID like '" & rs("ID") & "%' and ID<>'" & rs("ID") & "' order by ID"
Para=rs("ID") & "|"
NumChild=0
rs1.open SQL,cn, 3,2
NumChild=rs1.RecordCount
do while not rs1.EOF
Para =Para & rs1("ID") & "|"
rs1.MoveNext
loop
Para=cstr(trim(left(Para,len(Para)-1)))
rs1.Close
%>
<table id="T<%=rs("ID")%>"
border=1
cellpadding=0
cellspacing=0
bordercolor="#DEE3F7"
class="aa"
abbr="<%=Para%>"
summary=<%=checkid(rs("ID"))%>
style="cursor:hand"
onClick="vbs:subtree '<%=Para%>'" >

<tr>
<td width="<%=17+checkid(rs("ID"))*20%>"
height="20" align="right">
<table width="20" height="20" border="1" cellpadding="0" cellspacing="0" bordercolor="#DEE3F7">
<tr>

<td align="center" valign="middle" bordercolor="#000000" id="R<%=rs("ID")%>" ><%if NumChild=0 then Response.Write "." else Response.Write "-"%></td>
</tr>
</table>
</td>

<td height="20"
nowrap
bordercolor="#FFFFFF"
onMouseOver="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
onMouseOut="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'"
title="<%=rs("HyperLink")%>">
<%=rs("Name")%></td>
</tr>
</table>


<%
rs.MoveNext
loop
rs.Close:set rs=nothing
cn.Close:set cn=nothing
function checkid(x)
dim Tempnum
Tempnum=0
for i=1 to len(x)
if mid(x,i,1)="_" then
Tempnum=Tempnum+1
end if
next
checkid=Tempnum
end function


%>
<script language=VBS>
sub subtree(Client_para)
if instr(Client_para,"|")=0 then exit sub
Myarray=split(Client_para,"|")
Mytext=eval("R" & Myarray(0) & ".innertext")
select case Mytext
case "+"
document.all.item("R" & Myarray(0)).innertext="-"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")=1 then
document.all.item("T" & Myarray(i)).style.display="block"
end if
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>1 then
document.all.item("T" & Myarray(i)).style.display="none"
end if
next
case "-"
document.all.item("R" & Myarray(0)).innertext="+"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>=1 then
document.all.item("T" & Myarray(i)).style.display="none"
if eval("R" & Myarray(i) & ".innertext")="-" then
document.all.item("R" & Myarray(i)).innertext="+"
end if
end if
next
end select
set Myarray=nothing
end sub

Sub document_onselectstart
document.selection.clear
End Sub

if isobject(eval("T1")) then
subtree document.all("T1").abbr
subtree document.all("T1").abbr
end if
</script>

</html>




ricky460 2003-09-12
  • 打赏
  • 举报
 回复
liuruhong(蓝色街灯)你总算进来了...树我已经有了...生成树没有什么问题..
关键在于从服务器段读入数据生成树节点的时候总是有问题 . . .
所以我想请大侠帮帮忙,给我看看源码.....拜托了..
超级大笨狼 2003-09-12
  • 打赏
  • 举报
 回复
近来问连动下拉列表的人很多，我就自己做了一个，自己暂时不用，完全是给大家分享的，数据库结构采用常见的省份和城市，数据库结构结构来自csdn某文章，大家可以自己改。有什么意见请提出来，要代码文件和数据库请开贴放分并且留下email。
本文完全VBS制作，结交VBS高手，我用VBS能做出Javascript能做的一切QQ:28963147,email:panyuguang962@sohu.com

Access数据库
● 数据库名：DB_ProvinceCat
● 表名：1）Tb_Province 2）Tb_City
说明：表Tb_Province用来存放省份名称；表Tb_City用来存放相应的城市名称。
● 字段名的设计
1） 表Tb_Province的字段有省份ID号（ProvinceCatID）、省份代码（ProvinceCode）、省份名称（ProvinceName），表1给出了示例：
ProvinceCatID ProvinceCode ProvinceName
1 01 北京市
2 02 上海市
3 03 天津市
4 04 重庆市
5 05 广东省
6 06 浙江省
7 07 福建省
8 08 海南省
9 09 江苏省
表1
2） 表Tb_City的字段有城市ID号（CityID）、城市代码（CityCode）、城市名称（CityName），表2给出了示例：

CityID CityCode CityName
1 01001 北京市
2 02001 上海市
3 03001 天津市
4 04001 重庆市
5 05001 广州市
6 05002 深圳市
7 05003 珠海市
8 05004 茂名市
9 05005 中山市
10 06001 杭州市
11 06002 温州市
12 07001 福州市
13 07002 厦门市
14 08001 海口市
15 08002 三亚市
16 08003 万宁市
17 08004 五指山市
18 09001 南京市
19 09002 苏州市

表2

说明：这里要注意的一点就是，身份代码要对应城市代码的头两位,数据库尽量不要出现有父亲没儿子的事情。
文件：TwoSelect.asp经简单测试好用！
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

</HEAD>
<BODY>
<%
Dim Cn,Rs
Dim SQL,StrDSN
Dim MyArray()
Set cn=Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
StrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DB_ProvinceCat.mdb")
Cn.Open strDSN
SQL="select * from Tb_Province order by ProvinceCatID"
Rs.Open SQL,cn,3,2
Rs.MoveFirst
redim MyArray(Rs.RecordCount-1)
%>
<table width="273" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="96"> <SELECT id=select1 style="WIDTH: 96px" name=select1>
<OPTION selected value=select<%=Rs("ProvinceCode")%>><%=Rs("ProvinceName")%></OPTION>
<%
MyArray(0)=Rs("ProvinceCode")
Rs.MoveNext
for i=1 to Rs.RecordCount-1
%>
<OPTION value=select<%=Rs("ProvinceCode")%>><%=Rs("ProvinceName")%></OPTION>
<%
MyArray(i)=Rs("ProvinceCode")
Rs.MoveNext
next
%>
</SELECT>
<%
Rs.Close
%>
</td>
<td width="96">
<%
for i=0 to ubound( MyArray)
SQL="select * from Tb_City where CityCode like '" & MyArray(i) & "%'"
'Response.End
Rs.Open SQL,cn,3,2
if Rs.RecordCount >0 then
Rs.MoveFirst
%>
<SELECT id=select<%=MyArray(i)%> style="WIDTH: 96px;display='none'" name=select<%=MyArray(i)%>>
<%do while not Rs.EOF %>
<OPTION value="<%=Rs("CityName")%>"><%=Rs("CityName")%></OPTION>
<%
Rs.MoveNext
loop
%>
</SELECT>
<%
end if
Rs.Close
next
%>
<SCRIPT LANGUAGE=vbscript>
<!--

dim Province,City
dim obj,lastObj
lastObj="select01"
obj="select01"
window.execScript "select01.style.display='block'" ,"vbs"
Province="北京市"
City="北京市"
Sub select1_onchange
obj=select1.value
if obj<>lastObj and isobject(eval(obj)) then
window.execScript Obj & ".style.display='block'" ,"vbs"
window.execScript lastObj & ".style.display='none'" ,"vbs"
Province=select1.options(select1.selectedIndex).innertext
window.execScript "City=" & Obj & ".value" ,"vbs"
lastObj=select1.value
end if
End Sub
sub SubMe()
window.execScript "City=" & Obj & ".value" ,"vbs"
window.location.href="TwoSelect.asp?Province=" & Province & "&City=" & City
End Sub
-->
</SCRIPT>
</td>
<td width="81"><input type="button" name="Submit" value="按钮" onClick="vbs:SubMe"></td>
</tr>
</table>
</BODY>


</HTML>




liuruhong 2003-09-11
  • 打赏
  • 举报
 回复
http://fason.nease.net
版猪fason提供了一些数据库版本的tree

另外你可以看一下我提供的tree，完全基于script的创建，同时支持xload的形式
http://expert.csdn.net/Expert/TopicView1.asp?id=2210140

网络上面的tree应该很多，只要花点时间去找
wangyiyun0119 2003-09-11
  • 打赏
  • 举报
 回复
javascript+xmlhttp+xmldom+xsl
yaray 2003-09-11
  • 打赏
  • 举报
 回复
这样的网上已经很多了呀,搜索吧
ricky460 2003-09-11
  • 打赏
  • 举报
 回复
怎么这么多天了,都没有人回答??
Chat2DB快速部署指南，本地数据库远程访问一键搞定
本文介绍了开源免费的多数据库客户端工具Chat2DB，它集成AI能力，能转换自然语言与SQL，支持多种主流数据库。详细讲解了用Docker部署安装Chat2DB的步骤，还介绍了cpolar内网穿透工具，可实现Chat2DB远程访问，以及设置固定二级子域名的方法。
本地部署 AI 数据库神器 Chat2DB 并实现外部访问
Chat2DB 是免费开源的多数据库客户端工具，集成 AI 功能。本文详细介绍利用 Docker 在本地部署 Chat2DB 的步骤，包括一键部署、登录等，还说明了通过安装路由侠内网穿透实现外网访问本地 Chat2DB 的具体操作，如添加设备、创建映射等。
什么是客户端与服务器端
本文介绍了客户端与服务器的角色，以Web为例，客户端通常指浏览器，服务器负责响应请求并返回数据。在通信中涉及TCP/IP协议，如三次握手和四次挥手。Apache是静态网页服务器，Tomcat则支持JSP。部署网站到云服务器如阿里云，需要将文件上传至服务器并配置。对于移动端App，它们与服务器交互实现数据动态更新，通常涉及后端数据库。Java的Servlet用于处理服务器端请求。关键词涵盖Web服务器、网络协议、数据库和App交互。
python爬取网页原理_网页基本构成和抓取原理
本文介绍了网页基本构成和爬虫抓取原理。网站分静态和动态，静态网站由HTML构成，易被收录但维护成本高；动态网站含服务器端脚本，用户体验好但访问速度低。网页由HTML、CSS、Javascript构成。爬虫通过特定工具分析网页，提取数据并持久化保存。
基于人工智能的数据库工具Chat2DB使用
本文介绍了Chat2DB，一款利用AIGC技术的开源数据库客户端，它能将自然语言转化为SQL，提供SQL优化建议，帮助用户快速查询和管理数据库。通过实例演示了如何配置和使用Chat2DB，以及其在提升数据库操作效率方面的优势。
JavaScript

87,987

社区成员

224,683

社区内容

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章