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 > 表单 > ) | 
|