無限級目錄資料庫結構與方法一例

來源:互聯網
上載者:User
資料|資料庫|資料庫結構 Folder 表:
Folderid:目錄ID,自動編號
FolderParentID:上級目錄ID,Int
FolderName:目錄名稱,Varchar
FolderDescription:目錄說明,Varchar

File 表:
FileID:文檔ID,自動編號
FileFolderID:所屬目錄ID,Int
FileName:文檔名稱,Varchar
FileDescription:文檔內容,Varchar或備忘(ntext)

function GetAllChildID(id)
'取得FolderID為id的目錄下所有子目錄的FolderID,以半形逗號分開
dim arrID
arrID = id
Set rsdir = Conn.Execute("Select FolderID,FolderParentID from [Folder] where FolderParentID = " & id & "")
if rsdir.eof and rsdir.bof then
set rsdir = nothing
GetAllChildID = arrID
exit function
else
while not rsdir.eof
arrID = arrID & "," & GetAllChildID(rsdir("FolderID"))
rsdir.movenext
wend
end if
set rsdir = nothing
GetAllChildID = arrID
end function


'從表File中取得某個目錄下所有文檔的Sql
dim AllChildID
AllChildID = GetAllChildID(5) '取得FolderID為5下所有目錄的FolderID
AllfileSql = "Select FileID,FileName from [File] where FileFolderID in ("& AllChildID &")"

?
function FolderPath(id)
'得到一個目錄的完整路徑
dim Pathstr,NewPathstr
Set rsdir = Conn.Execute("Select FolderID,FolderName,FolderParentID from [Folder] where FolderID = " & id)
if rsdir.bof and rsdir.eof then
Pathstr = ""
else
Pathstr = "<a href=""Folder.asp?FolderID=" & rsdir("FolderID") &""">" & rsdir("FolderName") & "</a> > " & Pathstr
if rsdir("FolderParentID") <> 0 then
Pathstr = FolderPath(rsdir("FolderParentID")) & Pathstr
end if
end if

NewPathstr = Pathstr
set rsdir = nothing
FolderPath = NewPathstr
end function

dim folderpathstr
folderpathstr = FolderPath(67)
response.write folderpathstr '輸出 (技術文檔 > Web開發 > ASP > Code Sample > 表單 > )



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。