婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 使用ASP實現網站的“目錄樹”管理的代碼

使用ASP實現網站的“目錄樹”管理的代碼

熱門標簽:福建外呼增值業務線路 宜賓語音外呼系統軟件 電銷機器人源碼網盤下載 綿陽防封電銷卡價格 調度系統外呼 中國辦理電信400電話 伊春外呼業務系統 電銷機器人教育 河北智能外呼系統軟件
使用ASP實現網站的目錄樹

數據庫結構(共使用了兩個表)
1。tblCategory
字段名  類型  
Root   binary   說明樹關或開(目錄的根)
ID     自動編號 關鍵字
Sort   integer  識別該字段內容的整數(如果root是開狀態sort為0)表示顯示的目錄的順序
Name   text(255)可以包含html中的標識符
HREF   text(255) 允許空

2。tblPages
ID   自動編號
Sort  integer 關鍵字
Name  text(255)
HREF  text(255)

3.default.htm
html>
head>
title>javascript Tree Control Template/title>
/head>
frameset cols=""210,*"">
?frame src=""tree.asp"" name=""TOC"">
?frame src=""main.htm"" name=""basefrm"">
/frameset>
/html>

4.main.htm
head>title>/title>/head>
body>
h2>Start Page/h2>
/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>

 


標簽:那曲 電商邀評 銅川 新鄉 河池 優質小號 延邊 蘇州

巨人網絡通訊聲明:本文標題《使用ASP實現網站的“目錄樹”管理的代碼》,本文關鍵詞  使用,ASP,實現,網,站的,目錄樹,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《使用ASP實現網站的“目錄樹”管理的代碼》相關的同類信息!
  • 本頁收集關于使用ASP實現網站的“目錄樹”管理的代碼的相關信息資訊供網民參考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章
    主站蜘蛛池模板: 洮南市| 吉安市| 舒城县| 信宜市| 房山区| 南木林县| 武宣县| 邯郸县| 齐齐哈尔市| 龙川县| 香港 | 孙吴县| 哈尔滨市| 清水县| 邮箱| 田阳县| 登封市| 宁都县| 岳普湖县| 虎林市| 舟曲县| 金山区| 竹北市| 洛川县| 临江市| 淮南市| 嘉禾县| 郸城县| 同江市| 齐齐哈尔市| 理塘县| 固镇县| 霸州市| 卢氏县| 墨江| 西平县| 安庆市| 河西区| 铁岭市| 长春市| 南丹县|