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