[ASP] 在下拉列表中输出树型结构(原作)

zoukankan html css js c++ java

[ASP] 在下拉列表中输出树型结构(原作)

（我以前发表的一篇旧文章，现在统一整理到这里来。）

SQL Server 2000 中用于建表以及其他脚本的 SQL 如下：

/**//* -------------------------------------
功能：建立表 tree 以及两个自定义函数
        用于层次性的输出到 <select>
Author: Neil Chen（木野狐）
Date: 2004-3-19
---------------------------------------*/

/**//* 创建表 */
use test
go

DROP TABLE tree
DROP FUNCTION [dbo].getDepth
DROP FUNCTION [dbo].getCode
go

create table tree
(
    id int identity primary key,
    pid int,
    title varchar(50)
)

/**//* 初始化数据 */
insert tree select 0, '中国'
insert tree select 1, '江苏'
insert tree select 1, '山东'
insert tree select 2, '南京'
insert tree select 2, '无锡'
insert tree select 1, '四川'

go

/**//* ------------------------------
函数： getDepth
功能：得到深度, 根的深度为 0
------------------------------ */
CREATE FUNCTION [dbo].getDepth(@id INT)
returns INT
AS
BEGIN

DECLARE @depth int, @temp int
SET @depth = 0

WHILE (SELECT pid FROM tree WHERE id = @id) > 0
BEGIN
    SELECT @id = pid FROM tree WHERE id = @id
    SET @depth = @depth + 1
END

RETURN @depth

END

go

/**//* ------------------------------
函数： getCode
功能：得到编码
------------------------------ */
CREATE FUNCTION [dbo].getCode(@id int)
RETURNs VARCHAR(10)
AS

BEGIN

DECLARE @code VARCHAR(10)
SET @code = ''

WHILE @id > 0
BEGIN
    SELECT @code = CAST(COUNT(id) AS VARCHAR(10)) + @code
    FROM tree
    WHERE [dbo].getDepth(id) = [dbo].getDepth(@id)
        AND id <= @id

    SELECT @id = pid FROM tree WHERE id = @id
END

RETURN @code

END

go

/**//* 测试 */
SELECT *, [dbo].getCode(id) AS code
FROM tree
ORDER BY code

go

对应的用于输出的 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="Neil Chen（木野狐）">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>

<BODY>

<%
dim conn
set conn = server.CreateObject("ADODB.Connection")
conn.open "Provider=SQLOLEDB.1;Password=markchen;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=cr"

dim sql, rs
sql = "SELECT *, [dbo].getCode(id) AS code from tree order by code"
set rs = conn.execute(sql)

response.write "<select>"

do while not rs.eof
  response.write "<option>"
  '输出缩进
  for i = 2 to len(rs("code"))
    response.write "  "
  next
  response.write rs("title") & "  " & rs("code") & "</option>"
  rs.MoveNext
loop

response.write "</select>"

rs.close : set rs = nothing
conn.close : set conn = nothing
%>

</BODY>
</HTML>

查看全文

相关阅读:
go函数
 Linux 查看磁盘容量、查找大文件、查找大目录
 五分钟理解一致性哈希算法(consistent hashing)
使用Java实现三个线程交替打印0-74
Python实现IOC控制反转
 Wannafly挑战赛5 A珂朵莉与宇宙前缀和+枚举平方数
 Yandex Big Data Essentials Week1 Scaling Distributed File System
Yandex Big Data Essentials Week1 Unix Command Line Interface Processes managing
Yandex Big Data Essentials Week1 Unix Command Line Interface File Content exploration
Yandex Big Data Essentials Week1 Unix Command Line Interface File System exploration

原文地址：https://www.cnblogs.com/RChen/p/204325.html