ASP无限分类数据库版

最新推荐文章于 2007-09-07 16:54:00 发布
最新推荐文章于 2007-09-07 16:54:00 发布
阅读量152 收藏 1
点赞数
文章标签： ASP QQ Access Microsoft XHTML
本文介绍了一个使用ASP实现的无限分类数据库版应用，该应用基于Access数据库，包含ClassID、ParentClassID和ClassName三个字段，并通过递归方式展示分类结构。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

数据库Access,字段：ClassID（主键）,ParentClassID,ClassName，3个字段都是文本型。
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<title>ASP无限分类数据库版</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>
<metaname="Generator"content="EditPlus">
<metaname="Author"content="Dicky;QQ:25941">
<metaname="Keywords"content="Dicky;QQ:25941;ASP无限分类数据库版">
<metaname="Description"content="Dicky;QQ:25941;ASP无限分类数据库版">
</head>

<body>
<%
ConstIsSql=0'定义数据库类型,1为SQLServer,0为Access
FunctionOpenConn(Conn)'打开数据库连接
DimConnStr
IfIsSql=1Then'如果是SQLServer数据库
'SQLServer数据库连接参数:用户名、用户密码、数据库名、连接名（本地用local，外地用IP）
DimSqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName
SqlUsername="sa"
SqlPassword=""
SqlDatabaseName="TreeDb"
SqlLocalName="(local)"
ConnStr="Provider=Sqloledb;UserID="&SqlUsername&";Password="&SqlPassword&";InitialCatalog="&SqlDatabaseName&";DataSource="&SqlLocalName&";"
Else'如果是Access数据库
DimDb
'第一次使用请修改本处数据库地址并相应修改数据库名称，如将Dicky.mdb修改为Dicky.asp(防止恶意下载Access数据库)
Db="TreeDB.mdb"
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(Db)
EndIf
OnErrorResumeNext
SetConn=Server.CreateObject("ADODB.Connection")
Conn.OpenConnStr
IfErrThen
'Err.Clear
SetConn=Nothing
Response.Write"数据库连接出错，请检查连接字串。"
Response.End
EndIf
EndFunction

FunctionCloseConn(Conn)'关闭数据库连接
IfIsObject(Conn)Then
Conn.Close
SetConn=Nothing
EndIf
EndFunction

FunctionEcho(Str)'输出字符串并换行
Response.WriteStr&VbCrlf
EndFunction

CallOpenConn(Conn)

'定义第一级分类
SubMainFl()
DimRs
SetRs=Conn.Execute("SELECTClassID,ClassNameFROMClassWHEREParentClassIDISNULL")
IfNotRs.EofThen
DoWhileNotRs.Eof
Echo("<div><labelid="""&Trim(Rs("ClassID"))&""">+"&Trim(Rs("ClassName"))&"</label>")
CallSubfl(Rs("ClassID"),"|-")'循环子级分类
Echo("</div>")
Rs.MoveNext
IfRs.EofThenExitDo'防上造成死循环
Loop
EndIf
SetRs=Nothing
EndSub
'定义子级分类
SubSubFl(FID,StrDis)
DimRs1
SetRs1=Conn.Execute("SELECTClassID,ClassNameFROMClassWHEREParentClassID='"&FID&"'")
IfNotRs1.EofThen
DoWhileNotRs1.Eof
Echo("<divid="""&Trim(Rs1("ClassID"))&""">"&StrDis&Trim(Rs1("ClassName"))&"</div>")
CallSubFl(Trim(Rs1("ClassID")),"|"&Strdis)'递归子级分类
Rs1.Movenext:Loop
IfRs1.EofThen
Rs1.Close
ExitSub
EndIf
EndIf
SetRs1=Nothing
EndSub

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

MainFl()

CallCloseConn(Conn)%>
</body>
</html>
happmaoo
关注
嵩嵩无限级分类管理ASP版 v1.0
10-18
无限级分类功能包，采用递归算法实现，基于asp+access。函数库提供了较为丰富的调用代码。功能强大实用，压缩包中带有安装说明文件及程序运行效果图。
带数据库的ajax+asp无限级分类树型结构,好东西别错过
anjichan4261的博客
06-30 163
IE测试通过，FF有点小BUG Cls_Leibie.asp <% '数据库字段为类属性，添加、删除、修改、操作检查等函数为类的方法 Class Cls_Leibie Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定义私有变量（类...
ASP + XML + JavaScript 实现动态无限级联动菜单
ξσ Dicky's Blog σξ
01-13 1380
结合ASP来完成对数据库值的读取，然后写入XML文件，再用JavaScript读出来并且控制它的联动。这儿的关键是把数据库内的N层数据类读出来：我的数据库表结构是这样的:tbl_Class 列名 数据类型 长度  说明ClassID   int          4  类IDModuleID  int          4  模块IDGroupID   int          2  标识一个组
ASP无限级分类
djt的专栏
09-07 2057
以前跟哥们讨论过无限分类，以及效率的问题，今天用到，先帖上一个，当分类变的巨大时，效率不高，等有时间再弄个算法好效率高的上来~  以下为代码部分: Dim Action,ParentID,ErrMsg,FoundErr,strTemp ParentID=trim(request("ParentID")) Action=trim(Request("Action")) if ParentI
asp无限级分类源代码（带数据库）+示例
06-17
使用ASP访问这个数据库时，可以查询、更新和插入分类记录，以实现无限级分类的动态管理。 5. **示例**： 提供的示例可能包含如何使用`class.asp`中的类来操作数据库，展示如何在实际项目中应用无限级分类。示例...
无限级别树形结构类别编辑ASP+ACCESS完美版
12-20
标题中的“无限级别树形结构类别编辑ASP+ACCESS完美版”指的是一个基于ASP（Active Server Pages）编程语言和ACCESS数据库的程序，它能够创建和管理具有无限层级的分类树状结构。这种结构常用于网站导航、目录管理...
ASP+ACCESS实现的无限级目录树
KanJing—程序中心
04-29 1174
下载地址：http://www.knowsky.com/download/treemenu.rar关键代码：set conn=server.createobject("ADODB.CONNECTION")connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)
ASP实际无限级树目录 无级限目录 AJAX JSON ASP
05-28
联系作者 350078238 博客地址 http://Hi.Baidu.com/hmgx 在用到树形目录的时候，一直没想好怎么写，在网上也找不到合适的树形目录。 然后参考 老彭 的用ASP递归数据库的方法写的，目录多了感觉性能太差了。 然后就想办法仿照JQuery zTree写一个性能高的树形目录 经过努力 最终 实现了 树形目录，当然不能和 JQuery zTree 的功能想比 但是最少我认为从性能和实用性上已完全够用了 通过 Ajax 的 JSON 方法 实现 新增 修改 删除 最后发个小广告 本人承接各种 ERP 网站 以及各种系统的开发 价格好商量，在加QQ时请注明 欢迎转载，但本人的信息请不要修改 谢谢！
关于无限分级(ASP+数据库+JS)的实现代码
01-02
代码可以优化，请根据自己需求进行优化  说明： 所先把所有分类读取存放到JS数组中(如果数据量大可能就有点麻烦) 当选择时候返回父分类ID 在从数组中找出符合的分类，然后显示给用户 数据库设计(可以根据自己需求添加字段，如此分类属于什么分类等等) 字段            类型          说明 id               自动编号     记录编号 cotename    文本           分类名称 byid            数字           父分类ID(即为此表ID,根接点时值为0) JS部分代码(命名为*.asp) 代码如下:<%Dim conn S
工作时在公司带出，支持无限级分类企业后台，不可多得,asp+access
07-12
工作时在公司带出支持无限级分类，不可多得,asp+access
ajax版本 asp无限级联动菜单程序源码.zip
01-27
【程序老媛出品，必属精品，亲测校正，质量保证】 资源名：ajax版本 asp无限级联动菜单程序源码.zip 资源类型：程序源代码 源码说明： 基于asp的ajax无限级联动菜单程序 可自定义添加联动菜单层数 包含完整代码和注释 很适合借鉴学习 适合人群：新手及有一定经验的开发人员
ASP递归无限级分类源码
10-09
这是我从其它的地方下载的一个好的分类程序，大家可以用。有要的人话下载去用吧。
无限级树形菜单（支持多选）
04-03
无限级数的属性菜单，并且支持多选功能
无限分类树型菜单演示(asp)
tomtown530的专栏
12-26 2313
看到论坛里有人发了一个树型菜单,需者甚众,看了一下演示,似乎不难实现,趁着周六没事,便也写了一个出来理论上支持无限级分类,发上来与大家分享!!--------------------------    名称:无限级分类树型菜单演示    作者:y0h最后更新:2004-09-19 22:40    环境:ASP+ACCESS//----------List表定义 Create Table L
优快云无限级树数据库版(ASP+ACCESS)
阿信的专栏
11-03 4279
近来论坛里问树的问题比较多,特意推出近日完成的无限级树,由于水平有限,不完善之处望各位网友指正和完善。1.实现原理使用文件：(a)deeptree.htm:显示树型菜单的文件(deeptree.asp为显示菜单权限的例子)(b)deeptree.htc:对数据的请求和加载等操作进行封装.使用xmlhttp异步地请求，并对返回的数据用xsl进行格式输出(c)deeptree.cs
ASP+Js+Access 实现无级分类
Squall Programming Room
05-26 1502
ASP+JS+ACCESS的无级分类，个人感觉很实用，虽然技术不是很深，但是实用率很高！conn.inc就不用我多说了，自己写一个去就OK了，下面我说说数据库的架构！数据库名字自己起就完了！（千万要和conn.inc匹配哦~~哈哈~注意小错误！） 表名tree, 列名  ID（自动增长）、pid（数字）、content（文本）、link（文本）好了，说的很清楚了吧 嘿嘿，下面是代码了！！大家看 有
ASP实现无限级分类与数据库示例教程
接下来，我们将详细探讨无限级分类的概念以及如何在ASP环境中实现这一功能，并结合数据库的使用。 ### 无限级分类的基本概念 无限级分类是一种数据组织方式，允许分类拥有无限个子分类层级。这种结构常用于电子...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值