ASP无限分类数据库版

原创 2006年06月02日 22:38:00
数据库Access,字段:ClassID(主键),ParentClassID,ClassName,3个字段都是文本型。
<!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>
        
<title>ASP无限分类数据库版</title>
        
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
        
<meta name="Generator" content="EditPlus">
        
<meta name="Author" content="Dicky;QQ:25941">
        
<meta name="Keywords" content="Dicky;QQ:25941;ASP无限分类数据库版">
        
<meta name="Description" content="Dicky;QQ:25941;ASP无限分类数据库版">
    
</head>

    
<body>
        
<%
        
Const IsSql = 0    '定义数据库类型,1为SQL Server,0为Access
        Function OpenConn(Conn)     '打开数据库连接
            Dim ConnStr 
            
If IsSql = 1 Then '如果是SQL Server数据库 
                'SQL Server数据库连接参数:用户名、用户密码、数据库名、连接名(本地用local,外地用IP) 
                Dim SqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName 
                SqlUsername 
= "sa" 
                SqlPassword 
= "" 
                SqlDatabaseName 
= "TreeDb" 
                SqlLocalName 
= "(local)" 
                ConnStr 
= "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" 
            
Else  '如果是Access数据库 
                Dim Db 
                
'第一次使用请修改本处数据库地址并相应修改数据库名称,如将Dicky.mdb修改为Dicky.asp(防止恶意下载Access数据库) 
                Db = "TreeDB.mdb" 
                ConnStr 
= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
            
End If 
            
On Error Resume Next 
            
Set Conn = Server.CreateObject("ADODB.Connection"
            Conn.Open ConnStr 
            
If Err Then 
        
'        Err.Clear 
                Set Conn = Nothing 
                Response.Write 
"数据库连接出错,请检查连接字串。" 
                Response.End 
            
End If 
        
End Function

        
Function CloseConn(Conn)  '关闭数据库连接 
            If IsObject(Conn) Then
                Conn.Close 
                
Set Conn = Nothing
            
End If
        
End Function

        
Function Echo(Str) '输出字符串并换行
            Response.Write Str & VbCrlf
        
End Function

        
Call OpenConn(Conn)

        
'定义第一级分类
        Sub MainFl()
            
Dim Rs
            
Set Rs = Conn.Execute("SELECT ClassID,ClassName FROM Class WHERE ParentClassID IS NULL")
            
If Not Rs.Eof Then
                
Do While Not Rs.Eof
                    Echo(
"<div><label id=""" & Trim(Rs("ClassID")) & """>+" & Trim(Rs("ClassName")) & "</label>")
                    
Call Subfl(Rs("ClassID"),"|-"'循环子级分类
                    Echo("</div>")
                Rs.MoveNext
                
If Rs.Eof Then Exit Do '防上造成死循环
                Loop
            
End If
            
Set Rs = Nothing
        
End Sub
        
'定义子级分类
        Sub SubFl(FID,StrDis)
            
Dim Rs1
            
Set Rs1 = Conn.Execute("SELECT ClassID,ClassName FROM Class WHERE ParentClassID = '" & FID & "'")
            
If Not Rs1.Eof Then
                
Do While Not Rs1.Eof
                    Echo(
"    <div id=""" & Trim(Rs1("ClassID")) & """>" & StrDis & Trim(Rs1("ClassName")) & "</div>")
                    
Call SubFl(Trim(Rs1("ClassID")),"" & Strdis) '递归子级分类
                Rs1.Movenext:Loop
                
If Rs1.Eof Then
                    Rs1.Close
                    
Exit Sub
                
End If
            
End If
            
Set Rs1 = Nothing
        
End Sub

        
'最后直接调用MainFl()就行了

        MainFl()

        
Call CloseConn(Conn)%>
    
</body>
</html>

asp递归无限级分类(含数据库)

  • 2008年09月12日 14:19
  • 23KB
  • 下载

ASP无限级分类原理、数据库结构设计、应用及相关函数

本篇文章以本站无限级分类为例子,讲解无限级分类的原理及应用。 数据库设计 mmFolder表 mmID 自动编号 mmParentID 数字型(长整型) 上级目录ID,如果为根目录,此值为0 ...
  • zm2714
  • zm2714
  • 2012年09月03日 14:02
  • 2348

asp无限级分类(含数据库)

  • 2008年09月12日 14:08
  • 26KB
  • 下载

asp无限分类实例(含数据库)

  • 2008年07月21日 22:37
  • 25KB
  • 下载

无限级分类(非递归算法/存储过程版/GUID主键)完整数据库示例_(4)显示记录

显示记录,其实再简单不过了,一条sql语句即可 Select * From T_Class order By F_RootID,F_Orders 下面给出一个ASPX(C#版)的示例 Datab...

无限级分类(非递归算法/存储过程版/GUID主键)完整数据库示例_(2)插入记录

-- ======================================== -- Author:   -- Description:  -- Return     : 成功返回0,重...

asp.net无限级分类 TreeView

  • 2008年04月12日 22:43
  • 2KB
  • 下载

ASP递归无限级分类源码

  • 2009年10月09日 11:11
  • 643KB
  • 下载

无限级分类Asp.net Mvc实现

无限级分类Asp.net Mvc实现   无限级分类涉及到异步加载子类、加载当前类和匹配问题,现在做一个通用的实现。   (一) 效果如下:   (二)设计、实现及使用 (1)数据库...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP无限分类数据库版
举报原因:
原因补充:

(最多只允许输入30个字)