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无限分类数据库版

程序代码              ASP无限分类数据库版                                                                       ...
  • tgw2000
  • tgw2000
  • 2015年01月20日 16:47
  • 174

ASP无限分类详解

分类算法要解决的问题在网站建设中,分类算法的应用非常的普遍。在设计一个电子商店时,要涉及到商品分类;在设计发布系统时,要涉及到栏目或者频道分类;在设计软件下载这样的程序时,要涉及到软件的分类;如此等等...
  • greyls
  • greyls
  • 2007年07月03日 09:53
  • 2274

ASP中无限分类的基于数组实现。

这个论题很老了。下面大致上是个比较完整的Demo,半夜完成。(asp的Dim声明的弱类型变量确实不好调试)Windows 2000  Professinal+ Access调试通过。定义数据库表tTe...
  • ajou
  • ajou
  • 2005年11月30日 00:51
  • 932

ASP无限级分类

以前跟哥们讨论过无限分类,以及效率的问题,今天用到,先帖上一个,当分类变的巨大时,效率不高,等有时间再弄个算法好效率高的上来~  以下为代码部分: Dim Action,ParentID,ErrMsg...
  • djt
  • djt
  • 2007年09月07日 16:54
  • 1675

如何设计一个无限分类的数据库

1)如何处理各分类的信息存储; 2)如何处理分类的亲缘关系; 3)如何处理对信息的查询; 亲缘关系的数据库处理与论坛的数据库处理类似,这里建个 type 的数据库用来处理分类: 建立字段: id(in...
  • web718
  • web718
  • 2005年06月30日 18:52
  • 1178

ASP无限级分类代码

数据库结构 表:classify 效果图 代码 Option Explicit '===================================================...
  • wkj001
  • wkj001
  • 2016年12月15日 09:44
  • 561

数据库菜鸟学习之旅:SQL无限分级分类表

SQL 无限分级分类表有一张电器表,表中记录如下所示:
  • MR_Hai_CN
  • MR_Hai_CN
  • 2016年11月17日 15:55
  • 1131

基于AJAX的一个无限树形菜单

基于AJAX的一个无限树形菜单最近又用到了树型菜单,原来做的是一次把数据都读出来,现在想想,感觉就是不爽,要是每次按需要读就ok了,正好可以用ajax。  首先是ajax的处理,写个js吧,用oo写,...
  • nickshen3
  • nickshen3
  • 2007年06月21日 19:45
  • 1723

21.无限分类表的数据库设计

-- 无限分类的数据表设计 CREATE TABLE tdb_goods_types( type_id SMALLINT UNSIGNED PRIMARY KEY AUTO_INCR...
  • enlyhua
  • enlyhua
  • 2016年11月26日 18:26
  • 1986

asp生成json数据

看过网上很多asp无限分类的代码,
  • ruibon
  • ruibon
  • 2014年08月20日 17:12
  • 1397
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP无限分类数据库版
举报原因:
原因补充:

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