5.tree.asp
Set conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("toc.mdb")
strsql = "SELECT tblCategory.Root, tblCategory.[ID], tblCategory.Sort AS CatSort, tblPages.sort AS LinkSort, tblCategory.[Name] AS CatName, tblCategory.HREF AS CatURL, tblPages.[Name] AS LinkName, tblPages.href AS LinkURL FROM tblCategory LEFT JOIN tblPages ON tblCategory.[ID] = tblPages.[ID] ORDER BY tblCategory.root ASC, tblCategory.Sort, tblPages.sort"
rs.open strsql, conn, 2, 2
if not rs.eof then rs.movefirst
currentID = "" %>
〈html>
〈head>
〈link rel="stylesheet" href="ftie4style.css">
〈!-- Infrastructure code for the tree -->
〈script src="ftiens4.js">〈/script>
〈!-- Execution of the code that actually builds the specific tree -->
〈script>
USETEXTLINKS = 1
〈%
Do While Not Rs.EOF
If Rs("Root") = True Then %>
foldersTree = gFld("〈%= Rs("CatName") %>", "〈%= Rs("CatURL") %>")
〈% Else %>
aux1 = insFld(foldersTree, gFld("〈%= Rs("CatName") %>", "〈%= Rs("CatURL") %>"))
〈% currentID = Rs("ID")
savedID = Rs("ID")
Do While currentID = savedID and not rs.eof
if Rs("LinkName") 〈> "" Then %>
insDoc(aux1, gLnk(0, "〈%= Rs("LinkName") %>", "〈%= Rs("LinkURL") %>"))
〈%
end if
Rs.MoveNext
if not rs.eof then currentID = Rs("ID")
Loop
End If
if currentID = "" then rs.movenext
Loop %>
〈/script>
〈script>
initializeDocument()
〈/script>
〈base target="basefrm">
〈title>〈/title>
〈/head>
〈body bgcolor="white">
〈/body>
〈/html>
5.tree.asp
Set conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("toc.mdb")
strsql = "SELECT tblCategory.Root, tblCategory.[ID], tblCategory.Sort AS CatSort, tblPages.sort AS LinkSort, tblCategory.[Name] AS CatName, tblCategory.HREF AS CatURL, tblPages.[Name] AS LinkName, tblPages.href AS LinkURL FROM tblCategory LEFT JOIN tblPages ON tblCategory.[ID] = tblPages.[ID] ORDER BY tblCategory.root ASC, tblCategory.Sort, tblPages.sort"
rs.open strsql, conn, 2, 2
if not rs.eof then rs.movefirst
currentID = "" %>
〈html>
〈head>
〈link rel="stylesheet" href="ftie4style.css">
〈!-- Infrastructure code for the tree -->
〈script src="ftiens4.js">〈/script>
〈!-- Execution of the code that actually builds the specific tree -->
〈script>
USETEXTLINKS = 1
〈%
Do While Not Rs.EOF
If Rs("Root") = True Then %>
foldersTree = gFld("〈%= Rs("CatName") %>", "〈%= Rs("CatURL") %>")
〈% Else %>
aux1 = insFld(foldersTree, gFld("〈%= Rs("CatName") %>", "〈%= Rs("CatURL") %>"))
〈% currentID = Rs("ID")
savedID = Rs("ID")
Do While currentID = savedID and not rs.eof
if Rs("LinkName") 〈> "" Then %>
insDoc(aux1, gLnk(0, "〈%= Rs("LinkName") %>", "〈%= Rs("LinkURL") %>"))
〈%
end if
Rs.MoveNext
if not rs.eof then currentID = Rs("ID")
Loop
End If
if currentID = "" then rs.movenext
Loop %>
〈/script>
〈script>
initializeDocument()
〈/script>
〈base target="basefrm">
〈title>〈/title>
〈/head>
〈body bgcolor="white">
〈/body>
〈/html>
set myR = Server.CreateObject ("ADODB.Recordset")
myR.ActiveConnection = FilmCon
myRs.Open "select * from TAB_ComCode where ID <>0 and Type ="&codetype&" order by Parent,ID"
DBConErrDo()
response.write "<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>"
response.write "function window_onload() {"
'第一次打开,不需要刷新(缺省);当数据改变,左右都需要提交时,需要刷新
if needRRe = "1" then
else
response.write "window.top.frames[2].location = ""blankc.htm"";"
end if
response.write "fpost.codetype.value = "&codetype&";"
response.write "codefrm.codetype.value = "&codetype&";"
if myrs.EOF then response.write "fpost.bAdds.disabled = false;"
needexnode ="0"
while not myRs.EOF
'needexnode = needexnode +trim("a"& myRs.Fields (1)&"%"&myRs.Fields (4))+"____"
if exnode="a"& myRs.Fields (1)&"%"&myRs.Fields (4) then
needexnode = "1"
end if
'response.write "alert(""a"& myRs.Fields (1)&"%"&myRs.Fields (4)&" "& exnode&""");"
if myRs.Fields ("Parent")=0 then
response.write "myTree.Nodes.Add (null,null,""a"& myRs.Fields (1)&"%"&myRs.Fields (4)&""","""&trim(myRs.Fields (2))&""");"
else
myr.Open "select * from TAB_ComCode where Type="&codetype &" and ID = "&myrs.Fields (3)
pinid = myr.Fields(4)
response.write "myTree.Nodes.Add (""a"& myRs.Fields (3)&"%"&pinid&""",4,""a"& myRs.Fields (1)&"%"&myRs.Fields (4)&""","""&trim(myRs.Fields (2))&""");"
myr.Close ()
end if
myRs.MoveNext ()
wend
'exnode = -1 不用展开
if not isnull(exnode) and exnode <>"" and exnode<>"-1" and needexnode ="1" then
set myRs1 = Server.CreateObject ("ADODB.Recordset")
myRs1.ActiveConnection = FilmCon
myRs1.Open "select Name from TAB_ComCode where Type =0"
DBConErrDo()
i =1
while not myrs1.EOF
response.write "<OPTION value = "&i&">"&myrs1.Fields (0)
i = i+1
myrs1.MoveNext ()
wend