从say3say4的BLOG看到的，放到我们的团队的系列文章，方便大家学习
再说一句：基础很重要！
ajax架构中主要涉及的技术：
client: javascript解析xml， 操纵DOM修改html页面，javascript是“OO”的语言。
server: servlet + dao， 实现service接口即可
下面是client中主要的代码：
1。JS中封装解析xml的代码，以及实例应用。
//类的构造，传入xml文档和需要处理的标签名称
function DataSet(xmldoc, tagLabel) {
this.rootObj = xmldoc.getElementsByTagName(tagLabel)
//3个方法
this.getCount = getCount
this.getData = getData
this.getAttribute = getAttribute
}
function getCount(){
return this.rootObj.length
}
function getData(index, tagName){
if (index >= this.count) return “index overflow”
var node = this.rootObj[index]
var str = node.getElementsByTagName(tagName)[0].firstChild.data
return str
}
function getAttribute(index, tagName) {
if (index >= this.count) return “index overflow”
var node = this.rootObj[index]
var str = node.getAttribute(tagName)
return str
}
//如何使用DataSet类
function updateByXML(xmlDoc) {
var employeeDS = new DataSet(xmlDoc,”employee”); //关心的标签名称
var count = employeeDS.getCount()
for(i=0;i
var job = employeeDS.getData(i,"job")
var salary = employeeDS.getData(i,"salary")
alert(name + "," + job + "," + salary)
}
//使用的xml格式，类似如下
2。操纵DOM，创建table，显示获得的数据
function deleteOldTable() {
delRow = document.getElementsByTagName(“table”).length
//此句仅在本例中使用，因为本例中已经有一个table了，因此不能删除，需要根据情况变化一下2005.11.17
if(delRow == 1) return
var node = document.getElementsByTagName(“table”)[delRow-1]; //表格
var c = node.childNodes.length
for(i=0;i
}
//传入DataSet的一个实例即可
function makeTable(m_ds) {
deleteOldTable() //先清除以前的结果
var table = document.createElement(“table”);
table.setAttribute(“border”,”1″);
table.setAttribute(“width”,”100%”);
document.body.appendChild(table);
var header = table.createTHead();
var headerrow = header.insertRow(0);
headerrow.insertCell(0).appendChild(document.createTextNode(“姓名”));
headerrow.insertCell(1).appendChild(document.createTextNode(“职业”));
headerrow.insertCell(2).appendChild(document.createTextNode(“工资”));
for(var i=0;i
var job = m_ds.getData(i,”job”)
var salary = m_ds.getData(i,”salary”)
var row = table.insertRow(i+1);
row.insertCell(0).appendChild(document.createTextNode(name));
row.insertCell(1).appendChild(document.createTextNode(job));
row.insertCell(2).appendChild(document.createTextNode(salary));
}
}
首页index.htm
<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”>
<html xmlns=”http://www.w3.org/1999/xhtml”>
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″ />
<title>ajax test</title>
</head>
<!–code by afen–>
<body>
<input type=”button” value=”内容1″ onclick=”insert_row(1)”> <input type=”button” value=”内容2″ onclick=”insert_row(2)”> <input type=”button” value=”内容3″ onclick=”insert_row(3)”>
<table name=’tbl’ id=”tbl” width=”440″ height=”170″ border=”0″ cellpadding=”0″ cellspacing=”0″>
<tr><td></td></tr>
</table>
<script language=”javascript” defer=”defer”>
function ajax(objstr)
{
//接收传递参数
string=”objstr=”+escape(objstr);
//建立对象
var objXMLHTTP = null;
try
{
objXMLHTTP = new ActiveXObject(“MSXML2.XMLHTTP”);
}
catch(e)
{
try
{
objXMLHTTP = new ActiveXObject(“Microsoft.XMLHTTP”);
}
catch(e2){}
}
//发送数据
objXMLHTTP.open(“POST”, “index_ajax.asp”, false);
objXMLHTTP.setrequestheader(“content-length”,string.length);
objXMLHTTP.setrequestheader(“content-type”,”application/x-www-form-urlencoded”);
objXMLHTTP.send(string);
//得到服务器端返加值
return objXMLHTTP.responseText;
}
function insert_row(obj){
tbl.deleteRow();
content=ajax(obj);
R=tbl.insertRow();
C=R.insertCell();
C.innerHTML=content;
C=R.insertCell();
}
//初始化一下
insert_row(1);
</script>
</body>
</html>
数据处理员index_ajax.asp
<%
‘code by afen
Response.CharSet = “gb2312″
objstr=request(“objstr”)
‘这里可以对数据库操作等等返回值，想返回什么就什么~~
select case objstr
case 1
response.write(“内容1″)
case 2
response.write(“内容2″)
case 3
response.write(“内容3″)
end select
%>
From MoztwWiki
本文章为 Mozilla Developer Center 的 AJAX:Getting Started (http://developer.mozilla.o… 的翻译。原文的作者与编修历史可在它的历史页 (http://developer.mozilla.o… action=history)上看到。
这篇文章说明 AJAX 相关技术的基础，并提供实例供您上手。
AJAX 是啥？
AJAX (Asynchronous JavaScript and XML, 异步 JavaScript 及 XML 技术) 是个新词，但内涵是两个存在已有一段时间的 JavaScript 功能。这两种功能以往一直被忽略，在 Gmail、Google suggest 及 Google Maps 出现后才一举成名天下知。
这两个 JavaScript 功能 是：
做网站的，应该经常遇到使用分类功能的，通常有个二级三级分类已经很不错，在实现上，这些也不是很难的。但是对于某些系统，却需要实现更多级分类，例如文章系统，分类级数是不确定的，所以现在网上的系统中基本都采用无限分类。
看到很多地方都有关于无限分类实现的教程，也有人说这个是非常简单的功能。简单与否，在于每个人的能力了。
现在我们也来考察一下如何实现这个无限分类。在这里我采用的是 ASP(VBScript) 结合 Access 数据库来实现。
通常对于分类，我们需要有类别的编号和类别的名称，所以我们在数据库中定义这两个字段，ID 和 Title，ID 字段为自动编号，Title 选择文本类型。
但是如果仅有这两个字段，能实现的恐怕只有一级分类了。多级分类中，不同级之间都会存在关联性，即每个子类别，都应该是唯一地属于某个父类别的，所以在数据库中，我们表现出当前子类别所属的父类别即可。鉴于此，我们增加一个字段ParentID，保存父类别 ID 值。对于根类别，我们可以设置这个值为 0 。
至此，基本上就可以具备了无限级分类所必需的数据。
但是在实际使用中，出于效率问题，我们增加进两个字段：
IDPath – 用来保存当前类别的 ID 路径，即从顶层到当前类别的各级分类的 ID ，各级层间用分隔符“|”分隔。
TitlePath – 用来保存当前类别的 Title 路径，即每级分类的标题，各级层间用分隔符“|”分隔。
鉴于是要实现无限分类，上面两个字段的内容可能会很长，所以我们选择备注类型。具体的作用，在后面的程序中可以明了。
这样我们得到完整的数据库：
ID – 分类编号 – 自动编号
Title – 分类标题 – 文本
ParentID – 父类别编号 – 整数
IDPath – 分类层次编号路径 – 备注
TitlePath – 分类层次标题路径 – 备注
我们首先来考察如何显示表中已经存在的数据。先给出代码：
代码:
Sub listData
Dim intSortID : intSortID = CID(Request.QueryString(“SortID”))
Dim rs, sql
Set rs = Server.CreateObject(“ADODB.Recordset”)
sql = “SELECT s.ID, s.Title, s.IDPath, s.TitlePath, (SELECT Count(*) FROM Sorts ss WHERE ss.ParentID = s.ID) AS iCount FROM Sorts s WHERE s.ParentID = ” & intSortID & “;”
rs.Open sql, conn, 1, 1, 1
If rs.RecordCount > 0 Then
Dim arrIDs, arrTitles, intLoop
Response.Write(“<table width=”"100%”" cellpadding=”"3″” cellspacing=”"1″” border=”"0″” bgcolor=”"#CCCCCC”">”)
Response.Write(“<tr bgcolor=”"#E0E0E0″”><th>分类名</th><th>子类别数目</th><th>分类层级</th></tr>”)
Do While Not rs.EOF
Response.Write(“<tr bgcolor=”"#FFFFFF”"><td><a href=”"?action=list&SortID=” & rs(“ID”) & “”">” & rs(“Title”) & “</a> <img src=”/blog/”images/icon_new_window.gif”" width=”"11″” height=”"14″” border=”"0″” alt=”"打开功能菜单”" title=”"打开功能菜单”" onclick=”"showMenu(event, ”, ‘” & rs(“ID”) & “‘);”" /></td><td>” & rs(“iCount”) & “</td><td><a href=”"?action=list&SortID=0″”>根</a> » “)
‘ 数据入库的时候保证 IDPath 和 TitlePath 不为空
arrIDs = Split(rs(“IDPath”), “|”)
arrTitles = Split(rs(“TitlePath”), “|”)
For intLoop = 0 To UBound(arrIDs)
If intLoop = UBound(arrIDs) Then ‘ 如果是最后一级
Response.Write(“<a href=”"?action=list&SortID=” & arrIDs(intLoop) & “”">” & arrTitles(intLoop) & “</a>”)
Else
Response.Write(“<a href=”"?action=list&SortID=” & arrIDs(intLoop) & “”">” & arrTitles(intLoop) & “</a> » “)
End If
Next
Response.Write(“</td></tr>”)
rs.MoveNext
Loop
Response.Write(“</table>”)
Else
Response.Write(“暂无子类别，是否<a href=”"?action=add&SortID=” & intSortID & “”">添加</a>？”)
End If
rs.Close
Set rs = Nothing
End Sub
我们将列出分类的代码写入一段子程序 listData，其中变量 intSortID 是传递过来的一个类别编号，而我们要显示的是该类别下的子类别。
对于第一级分类，这个编号为 0。
CID() 函数是自定义的函数，用于将字符串转换为 ID 类型的数据，即大于等于 0 的整数，后面还会多次用到这个自定义函数，代码如下：
代码:
‘——————————————————————————–
Function CID(strS)
‘——————————————————————————–
‘ 转换为有效的 ID
‘ 返回值类型：Integer (>=0)
‘——————————————————————————–
Dim intI
intI = 0
If IsNull(strS) Or strS = “” Then
intI = 0
Else
If Not IsNumeric(strS) Then
intI = 0
Else
Dim intk
On Error Resume Next
intk = Abs(Clng(strS))
If Err.Number = 6 Then intk = 0 ”数据溢出
Err.Clear
intI = intk
End If
End If
CID = intI
End Function
数据库操作，就是从表中找到 ParentID = intSortID 的记录，然后循环显示。
在针对 IDPath 和 TitlePath 这两个字段的内容上，定义两个数组 arrIDs 和 arrTitles ，分别循环显示类别层次即可。这里需要注意最后一个层次(在我的代码中，最后一级即为当前分类)，其后是不包括箭头标示的，表示已经是当前分类了。
当没有记录的时候，显示提示信息，并有一个增加分类的链接。
因为所有的添加、编辑、删除、列表操作我放在一个页面中，所以链接中有个 action 变量来确定是进行哪步操作。
另外，显示的分类标题后面有个小图标，点击能显示功能菜单，相应的代码在后面给出。
无限级分类的简单算法实现及代码重点讲解
作者：未知 来源：本站收集 发布时间：2006-1-4 17:28:53 发布人：admin
减小字体 增大字体
分类算法要解决的问题
在网站建设中，分类算法的应用非常的普遍。在设计一个电子商店时，要涉及到商品分类；在设计发布系统时，要涉及到栏目或者频道分类；在设计软件下载这样的程序时，要涉及到软件的分类；如此等等。可以说，分类是一个很普遍的问题。
1、 分类算法常常表现为树的表示和遍历问题。那么，请问：如果用数据库中的一个Table来表达树型分类，应该有几个字段？
2、 如何快速地从这个Table恢复出一棵树；
3、 如何判断某个分类是否是另一个分类的子类；
4、 如何查找某个分类的所有产品；
5、 如何生成分类所在的路径。
6、 如何新增分类；
在不限制分类的级数和每级分类的个数时，这些问题并不是可以轻松回答的。本文试图解决这些问题。
分类的数据结构
我们知道：分类的数据结构实际上是一棵树。在《数据结构》课程中，大家可能学过Tree的算法。由于在网站建设中我们大量使用数据库，所以我们将从Tree在数据库中的存储谈起。
为简化问题，我们假设每个节点只需要保留Name这一个信息。我们需要为每个节点编号。编号的方法有很多种。在数据库中常用的就是自动编号。这在Access、SQL Server、Oracle中都是这样。假设编号字段为ID。
为了表示某个节点ID1是另外一个节点ID2的父节点，我们需要在数据库中再保留一个字段，说明这个分类是属于哪个节点的儿子。把这个字段取名为FatherID。如这里的ID2，其FatherID就是ID1。
这样，我们就得到了分类Catalog的数据表定义：
Create Table [Catalog](
[ID] [int] NOT NULL,
[Name] [nvarchar](50) NOT NULL,
[FatherID] [int] NOT NULL
);
约定：我们约定用-1作为最上面一层分类的父亲编码。编号为-1的分类。这是一个虚拟的分类。它在数据库中没有记录。
如何恢复出一棵树
上面的Catalog定义的最大优势，就在于用它可以轻松地恢复出一棵树—分类树。为了更清楚地展示算法，我们先考虑一个简单的问题：怎样显示某个分类的下一级分类。我们知道，要查询某个分类FID的下一级分类，SQL语句非常简单：
select Name from catalog where FatherID=FID
显示这些类别时，我们简单地用<LI>来做到：
<%
REM oConn—数据库连接，调用GetChildren时已经打开
REM FID—–当前分类的编号
Function GetChildren(oConn,FID)
strSQL = “select ID,Name from catalog where FatherID=”&FID
set rsCatalog = oConn.Execute(strSQL)
%>
<UL>
<%
Do while not rsCatalog.Eof
%>
<LI><%=rsCatalog(“Name”)%>
<%
Loop
%>
</UL>
<%
rsCatalog.Close
End Function
%>
现在我们来看看如何显示FID下的所有分类。这需要用到递归算法。我们只需要在GetChildren函数中简单地对所有ID进行调用：GetChildren(oConn,Catalog(“ID”))就可以了。
<%
REM oConn—数据库连接，已经打开
REM FID—–当前分类的编号
Function GetChildren(oConn,FID)
strSQL = “select Name from catalog where FatherID=”&FID
set rsCatalog = oConn.Execute(strSQL)
%>
<UL>
<%
Do while not rsCatalog.Eof
%>
<LI><%=rsCatalog(“Name”)%>
<%=GetChildren(oConn,Catalog(“ID”))%>
<%
Loop
%>
</UL>
<%
rsCatalog.Close
End Function
%>
修改后的GetChildren就可以完成显示FID分类的所有子分类的任务。要显示所有的分类，只需要如此调用就可以了：
<%
REM strConn–连接数据库的字符串，请根据情况修改
set oConn = Server.CreateObject(“ADODB.Connection”)
oConn.Open strConn
=GetChildren(oConn,-1)
oConn.Close
%>
如何查找某个分类的所有产品；
现在来解决我们在前面提出的第四个问题。第三个问题留作习题。我们假设产品的数据表如下定义：
Create Table Product(
[ID] [int] NOT NULL,
[Name] [nvchar] NOT NULL,
[FatherID] [int] NOT NULL
);
其中，ID是产品的编号，Name是产品的名称，而FatherID是产品所属的分类。
对第四个问题，很容易想到的办法是：先找到这个分类FID的所有子类，然后查询所有子类下的所有产品。实现这个算法实际上很复杂。代码大致如下：
<%
Function GetAllID(oConn,FID)
Dim strTemp
If FID=-1 then
strTemp = “”
else
strTemp =”,”
end if
strSQL = “select Name from catalog where FatherID=”&FID
set rsCatalog = oConn.Execute(strSQL)
Do while not rsCatalog.Eof
strTemp=strTemp&rsCatalog(“ID”)&GetAllID(oConn,Catalog(“ID”)) REM 递归调用
Loop
rsCatalog.Close
GetAllID = strTemp
End Function
REM strConn–连接数据库的字符串，请根据情况修改
set oConn = Server.CreateObject(“ADODB.Connection”)
oConn.Open strConn
FID = Request.QueryString(“FID”)
strSQL = “select top 100 * from Product where FatherID in (“&GetAllID(oConn,FID)&”)”
set rsProduct=oConn.Execute(strSQL)
%>
<UL><%
Do while not rsProduct.EOF
%>
<LI><%=rsProduct(“Name”)%>
<%
Loop
%>
</UL>
<%rsProduct.Close
oConn.Close
%>
这个算法有很多缺点。试列举几个如下：
1、 由于我们需要查询FID下的所有分类，当分类非常多时，算法将非常地不经济，而且，由于要构造一个很大的strSQL，试想如果有1000个分类，这个strSQL将很大，能否执行就是一个问题。
2、 我们知道，在SQL中使用In子句的效率是非常低的。这个算法不可避免地要使用In子句，效率很低。
我发现80%以上的程序员钟爱这样的算法，并在很多系统中大量地使用。细心的程序员会发现他们写出了很慢的程序，但苦于找不到原因。他们反复地检查SQL的执行效率，提高机器的档次，但效率的增加很少。
最根本的问题就出在这个算法本身。算法定了，能够再优化的机会就不多了。我们下面来介绍一种算法，效率将是上面算法的10倍以上。
分类编码算法
问题就出在前面我们采用了顺序编码，这是一种最简单的编码方法。大家知道，简单并不意味着效率。实际上，编码科学是程序员必修的课程。下面，我们通过设计一种编码算法，使分类的编号ID中同时包含了其父类的信息。一个五级分类的例子如下：
此例中，用32(4+7+7+7+7)位整数来编码，其中，第一级分类有4位，可以表达16种分类。第二级到第五级分类分别有7位，可以表达128个子分类。
显然，如果我们得到一个编码为 1092787200 的分类，我们就知道：由于其编码为
0100 0001001 0001010 0111000 0000000
所以它是第四级分类。其父类的二进制编码是0100 0001001 0001010 0000000 0000000，十进制编号为1092780032。依次我们还可以知道，其父类的父类编码是0100 0001001 0000000 0000000 0000000，其父类的父类的父类编码是0100 0000000 0000000 0000000 0000000。(我是不是太罗嗦了J，但这一点很重要。再回头看看我们前面提到的第五个问题。哈哈，这不就已经得到了分类1092787200所在的分类路径了吗？)。
现在我们在一般的情况下来讨论类别编码问题。设类别的层次为k，第i层的编码位数为Ni， 那么总的编码位数为N(N1+N2+..+Nk)。我们就得到任何一个类别的编码形式如下：
2^(N-(N1+N2+…+Ni))*j + 父类编码
其中，i表示第i层，j表示当前层的第j个分类。
这样我们就把任何分类的编码分成了两个部分，其中一部分是它的层编码，一部分是它的父类编码。
由下面公式定一的k个编码我们称为特征码：（因为i可以取k个值，所以有k个）
2^N-2^(N-(N1+N2+…+Ni))
对于任何给定的类别ID，如果我们把ID和k个特征码“相与”，得到的非0编码，就是其所有父类的编码！
位编码算法
对任何顺序编码的Catalog表，我们可以设计一个位编码算法，将所有的类别编码规格化为位编码。在具体实现时，我们先创建一个临时表：
Create TempCatalog(
[OldID] [int] NOT NULL,
[NewID] [int] NOT NULL,
[OldFatherID] [int] NOT NULL,
[NewFatherID] [int] NOT NULL
);
在这个表中，我们保留所有原来的类别编号OldID和其父类编号OldFatherID，以及重新计算的满足位编码要求的相应编号NewID、NewFatherID。
程序如下：
<%
REM oConn—数据库连接，已经打开
REM OldFather—原来的父类编号
REM NewFather—新的父类编号
REM N—编码总位数
REM Ni–每一级的编码位数数组
REM Level–当前的级数
sub FormatAllID(oConn,OldFather,NewFather,N,Nm,Ni byref,Level)
strSQL = “select CatalogID , FatherID from Catalog where FatherID=” & OldFather
set rsCatalog=oConn.Execute( strSQL )
j = 1
do while not rsCatalog.EOF
i = 2 ^(N – Nm) * j
if Level then i= i + NewFather
OldCatalog = rsCatalog(“CatalogID”)
NewCatalog = i
REM 写入临时表
strSQL = “Insert into TempCatalog (OldCatalogID , NewCatalogID , OldFatherID , NewFatherID)”
strSQL = strSQL & ” values(” & OldCatalog & ” , ” & NewCatalog & ” , ” & OldFather & ” , ” & NewFather & “)”
Conn.Execute strSQL
REM 递归调用FormatAllID
Nm = Nm + Ni(Level+1)
FormatAllID oConn,OldCatalog , NewCatalog ,N,Nm,Ni,Level + 1
rsCatalog.MoveNext
j = j+1
loop
rsCatalog.Close
end sub
%>
调用这个算法的一个例子如下：
<%
REM 定义编码参数，其中N为总位数，Ni为每一级的位数。
Dim N,Ni(5)
Ni(1) = 4
N = Ni(1)
for i=2 to 5
Ni(i) = 7
N = N + Ni(i)
next
REM 打开数据库，创建临时表
strSQL = “Create TempCatalog( [OldID] [int] NOT NULL, [NewID] [int] NOT NULL, [OldFatherID] [int] NOT NULL, [NewFatherID] [int] NOT NULL);”
Set Conn = Server.CreateObject(“ADODB.Connection”)
Conn.Open Application(“strConn”)
Conn.Execute strSQL
REM 调用规格化例程
FormatAllID Conn,-1,-1,N,Ni(1),Ni,0
REM ————————————————————————
REM 在此处更新所有相关表的类别编码为新的编码即可。
REM ————————————————————————
REM 关闭数据库
strSQL= “drop table TempCatalog;”
Conn.Execute strSQL
Conn.Close
%>
第四个问题
现在我们回头看看第四个问题：怎样得到某个分类下的所有产品。由于采用了位编码，现在问题变得很简单。我们很容易推算：某个产品属于某个类别的条件是Product.FatherID&（Catalog.ID的特征码）=Catalog.ID。其中“&”代表位与算法。这在SQL Server中是直接支持的。
举例来说：产品所属的类别为：1092787200，而当前类别为1092780032。当前类别对应的特征值为：4294950912，由于1092787200&4294950912=8537400，所以这个产品属于分类8537400。
我们前面已经给出了计算特征码的公式。特征码并不多，而且很容易计算，可以考虑在Global.asa中Application_OnStart时间触发时计算出来，存放在Application(“Mark”)数组中。
当然，有了特征码，我们还可以得到更加有效率的算法。我们知道，虽然我们采用了位编码，实际上还是一种顺序编码的方法。表现出第I级的分类编码肯定比第I+1级分类的编码要小。根据这个特点，我们还可以由FID得到两个特征码，其中一个是本级位特征码FID0，一个是上级位特征码FID1。而产品属于某个分类FID的充分必要条件是：
Product.FatherID>FID0 and Product.FatherID<FID1
下面的程序显示分类FID下的所有产品。由于数据表Product已经对FatherID进行索引，故查询速度极快：
<%
REM oConn—数据库连接，已经打开
REM FID—当前分类
REM FIDMark—特征值数组，典型的情况下为Application(“Mark”)
REM k—数组元素个数，也是分类的级数
Sub GetAllProduct(oConn,FID,FIDMark byref,k)
REM 根据FID计算出特征值FID0,FID1
for i=k to 1
if (FID and FIDMark = FID ) then exit
next
strSQL = “select Name from Product where FatherID>”FIDMark(i)&” and FatherID<”FIDMark(i-1)
set rsProduct=oConn.Execute(strSQL)%>
<UL><%
Do While Not rsProduct.Eof%>
<LI><%=rsProduct(“Name”)
Loop%>
</UL><%
rsProduct.Close
End Sub
%>
关于第5个问题、第6个问题，就留作习题吧。有了上面的位编码，一切都应该迎刃而解
ASP实现的无限级会员树型结构
日期：2006-01-05 16:46:37 点击：10 作者： 来源：
‘*********************************
‘* 函数名称:Function nodeUser(parent)
‘* 函数参数:parent
‘* 参数类型 :string
‘* 返回值类型:–
‘* 函数功能:递归显示用户树型结构
‘* 作者:范维肖
‘* 时间:2004-5-7
‘*********************************
Function nodeUser(parent)
‘检索其分支
sql = “select name from [user] where sel=’”&parent&”‘”
set rs = conn.Execute(sql)
do while not rs.Eof
i=i+1
‘格式控制
for j=i to 2 step -1
response.Write(“<font color=red> | </font>”)
response.Write(“ “)
next
response.Write(“<font color=red> |-> </font>”)
‘打印出此用户
response.Write(rs(0))
response.Write(“<br>”)
‘递归来显示出此用户为根的树型结构
nodeUser(rs(0))
‘完毕后转向下一个
rs.MoveNext
loop
‘一个级别的显示完成后就缩进一下
i=i-1
rs.close
set rs=nothing
End Function
再用的时候搜索了一下,没有找到能实现类似传销样的会员树,特写了一个
