濮阳杆衣贸易有限公司

主頁(yè) > 知識(shí)庫(kù) > asp實(shí)現(xiàn)樹(shù)型結(jié)構(gòu)

asp實(shí)現(xiàn)樹(shù)型結(jié)構(gòu)
熱門(mén)標(biāo)簽：為什么外呼系統(tǒng)需要預(yù)存話費(fèi)呢 辦理400電話一年多少錢(qián) 外呼回?fù)芟到y(tǒng)圖片 蘭州智能語(yǔ)音電銷(xiāo)機(jī)器人功能 企數(shù)外呼系統(tǒng)能用多久 寧夏怎么申請(qǐng)400電話 咸陽(yáng)銷(xiāo)售外呼系統(tǒng) 離線電子地圖標(biāo)注軟件注冊(cè) 常用地圖標(biāo)注范圍點(diǎn)
蛙蛙推薦:asp實(shí)現(xiàn)樹(shù)型結(jié)構(gòu)     選擇自 onlytiancai 的 Blog  
關(guān)鍵字   蛙蛙推薦:asp實(shí)現(xiàn)樹(shù)型結(jié)構(gòu) 
出處    

 !-- 
-----------[test]表生成腳本---------------
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[test]
GO

CREATE TABLE [dbo].[test] (
 [id] [int] IDENTITY (1, 1) NOT NULL ,
 [str_note] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
 [father_id] [int] NULL 
) ON [PRIMARY]
GO
-->
!-- 
***********************測(cè)試數(shù)據(jù)********************
[id][str_note][father_id]
[1][電腦書(shū)籍][0]
[2][軟件開(kāi)發(fā)][1]
[3][硬件維修][1]
[4][asp][2]
[5][php][2]
[6][jsp][2]
[7][html][2]
[8][顯示器維修][3]
[9][主板維修][3]
[10][顯卡維修][3]
[11][vbs基礎(chǔ)][4]
[12][html基礎(chǔ)][4]
[13][ado基礎(chǔ)][4]
[14][do語(yǔ)句][11]
[15][for語(yǔ)句][11]
[16][select語(yǔ)句][11]
***************************************************
-->
%
Dim strconn,conn,rs,sql
strconn="Driver={sql server};server=localhost;database=wawavote;uid=sa;pwd=sa;"
Dim i
i=0
Function ShowTree(parentID)
 i=i+1
 Dim rs
 Set rs = Server.CreateObject("ADODB.RecordSet")
 sql="SELECT id, str_note, father_id,(SELECT str_note FROM test t2 WHERE t2.id = t1.father_id) AS ParentName  FROM test t1 WHERE t1.father_id="Cint(parentID)
 rs.open sql,strconn,1,1
 Do While Not rs.Eof
  for j=1 to i
   Response.Write("---")
  next
  Response.Write(rs(1)"["rs(3)"]br>")
  ShowTree rs(0)
  i=i-1
 rs.Movenext
 Loop
 rs.Close:Set rs=Nothing 
End Function
Sub ShowTable(table)
 Dim rs
 Set rs = Server.CreateObject("ADODB.RecordSet")
 sql="select * from "trim(table)
 rs.open sql,strconn,1,1
 For i=0 To rs.Fields.Count-1
  Response.Write("["rs.fields(i).Name"]")
 next
 Response.Write("br>")
 Do While Not rs.Eof
  For i=0 To rs.Fields.Count-1
   Response.Write("["rs.fields(i).Value"]")
  next
  Response.Write("br>")
 rs.MoveNext
 Loop
 rs.Close:Set rs=Nothing 
End sub
ShowTree(0)
ShowTable("test")
%> 

 

標(biāo)簽：溫州 昆明 泰州 麗江 咸陽(yáng) 昌都 家電維修 鐵嶺

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp實(shí)現(xiàn)樹(shù)型結(jié)構(gòu)》，本文關(guān)鍵詞  asp,實(shí)現(xiàn),樹(shù)型,結(jié)構(gòu),asp,實(shí)現(xiàn),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp實(shí)現(xiàn)樹(shù)型結(jié)構(gòu)》相關(guān)的同類(lèi)信息！
  • 本頁(yè)收集關(guān)于asp實(shí)現(xiàn)樹(shù)型結(jié)構(gòu)的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    盐边县| 改则县| 左云县| 金门县| 孙吴县| 马边| 民勤县| 通江县| 乐安县| 博爱县| 盐山县| 庄浪县| 扎鲁特旗| 大姚县| 北宁市| 个旧市| 公主岭市| 郸城县| 自治县| 故城县| 阿城市| 广水市| 陆川县| 英吉沙县| 梁山县| 运城市| 抚松县| 盘锦市| 张家口市| 武强县| 禄丰县| 桓台县| 阜宁县| 佛教| 万年县| 布尔津县| 荆门市| 西和县| 伊宁市| 景谷| 新河县|