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     "&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>
  • 相关阅读:
    Beta 冲刺（4/7）
    Beta 冲刺（3/7）
    Beta 冲刺（2/7）
    福大软工 · 最终作业
    福大软工 · 第十二次作业
    Beta 冲刺（7/7）
    Beta 冲刺（6/7）
    Beta 冲刺（5/7）
    Beta 冲刺（4/7）
    Beta 冲刺（3/7）
  • 原文地址：https://www.cnblogs.com/RChen/p/204325.html
Copyright © 2011-2022 走看看