asp無限分類資料庫版
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
db = "treedb.mdb"
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("+" & trim(rs("classname")) & "")
call subfl(rs("classid"),"|-") '迴圈子級分類
echo("
")
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(" " & strdis & trim(rs1("classname")) & "
")
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)%>
asp實現無限級分類的方法js版
menuarr new array menulenarr new array submenuarr new array menuidarr new array menuarr 1 call top11 洲名 menuarr 2 call top1 洲名 國名 menuidarr 1 zhou men...
資料庫無限分級（分類表）
在資料庫中我們經常會做這樣一件事 建立了乙個分類表，再建立乙個子分類，有多少級我們就習慣建立多少張表。這樣不僅耗費大量時間而且還會在操作表的時候陷入混亂，這裡我介紹一種辦法 無限分級。通過這種方式，我們僅需要建立一張表就能將不管多少級分類全部放入。首先我們理清一下思想，在這張表中我們要有個編號 id...
無限分類樹型選單演示 asp
顯示列表函式 function checklist parentid,cs,str1 dim j j 0for i 0 to ubound list,2 if list 1,i parentid then response.write str1 if j0 then str2 str2 if lis...