[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 
"&nbsp;&nbsp;"
  next
  response.write rs(
"title"& "&nbsp;&nbsp;" & rs("code"& "</option>"
  rs.MoveNext
loop

response.write 
"</select>"

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

</BODY>
</HTML>

posted on 2005-08-01 00:13  NeilChen  阅读(...)  评论(...编辑  收藏

导航

统计