asp無限分級(jí)(遞歸調(diào)用)
更新時(shí)間：2006年11月22日 00:00:00 作者：
數(shù)據(jù)庫(kù)字段:id(自動(dòng)編號(hào)),class_name(菜單名),parentID(父菜單id)
<%
dim m
m=0
call ShowTree(0)%>
<%
Sub ShowTree(parentID)
dim s
m=m+1
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="Select class_id,class_name FROM [WMS_Class] where class_father_id="&Cint(parentID)
rs.open sql,Conn,1,1
if rs.eof and m = 1 then
response.Write("該頻道暫無欄目")
end if
Do While Not rs.Eof
response.Write rs(0)
for n=1 to m
if n = m and m = 1 then
Response.Write ("╋")
elseif n = 1 then
Response.Write (" ")
elseif n = m then
Response.Write ("├")
else
Response.Write ("│")
end if
next
response.Write rs(1)&"<br>"
Call ShowTree(rs(0))
m=m-1
rs.Movenext
Loop
End Sub
%>
復(fù)制代碼 代碼如下:
<%
dim m
m=0
call ShowTree(0)%>
<%
Sub ShowTree(parentID)
dim s
m=m+1
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="Select class_id,class_name FROM [WMS_Class] where class_father_id="&Cint(parentID)
rs.open sql,Conn,1,1
if rs.eof and m = 1 then
response.Write("該頻道暫無欄目")
end if
Do While Not rs.Eof
response.Write rs(0)
for n=1 to m
if n = m and m = 1 then
Response.Write ("╋")
elseif n = 1 then
Response.Write (" ")
elseif n = m then
Response.Write ("├")
else
Response.Write ("│")
end if
next
response.Write rs(1)&"<br>"
Call ShowTree(rs(0))
m=m-1
rs.Movenext
Loop
End Sub
%>
您可能感興趣的文章:
相關(guān)文章
asp 正則實(shí)現(xiàn)清除html文本格式的函數(shù)代碼
正則匹配(正則表達(dá)式)模式進(jìn)行數(shù)據(jù)匹配替換2010-03-03
asp實(shí)現(xiàn)檢查ip地址是否為內(nèi)網(wǎng)或者私有ip地址的代碼分享
這篇文章主要介紹了asp實(shí)現(xiàn)檢查ip地址是否為內(nèi)網(wǎng)或者私有ip地址的代碼分享,給同樣在找IP判斷的使用,需要的朋友可以參考下2014-08-08
ASP中實(shí)現(xiàn)的URLEncode、URLDecode自定義函數(shù)
這篇文章主要介紹了ASP中實(shí)現(xiàn)的URLEncode、URLDecode自定義函數(shù),和ASP自帶的server.urlencode是不一樣的哦,需要的朋友可以參考下2014-07-07
將首頁轉(zhuǎn)成靜態(tài)html頁的asp文件
將首頁轉(zhuǎn)成靜態(tài)html頁的asp文件...2007-03-03
asp目錄讀寫權(quán)限檢測(cè)腳本 TestFolder
T00LS 檢測(cè)星外可執(zhí)行目錄的一個(gè)工具，今天剛好用到，記錄下。檢測(cè)了下運(yùn)氣差得很，全盤只能讀不能寫，檢測(cè)讀寫權(quán)限的時(shí)候?qū)⒁韵麓a保存為x.asp上傳到網(wǎng)站修改檢測(cè)目錄，點(diǎn)提交即可2011-11-11
Cookies 欺騙漏洞的防范方法(vbs+js 實(shí)現(xiàn))
考慮到 ASP 開發(fā)可以采用 vbs 和 js 兩種語言，這里同時(shí)提供兩種語言的程序代碼（雙語版？YY中……）2009-12-12
有時(shí)候我們?cè)赼sp編寫中需要聲明好頁面的編碼否則容易出現(xiàn)亂碼，這里是utf-8格式的2013-08-08
檢查上傳圖片是否合法的函數(shù),木馬改后綴名、圖片加惡意代碼均逃不過
很多ASP程序檢查上傳圖片是否合法往往只去檢查文件的后綴，這樣有一個(gè)很大的安全隱患，就是如果把ASP文件的后綴名改成.jpg或者.gif上傳，或者圖片里加入惡意代碼再上傳，那也會(huì)被程序認(rèn)為是圖片文件而照傳不誤。假如不懷好意的人上傳個(gè)木馬文件進(jìn)去，雖然是后綴為jpg也許無法直接運(yùn)行，但確確實(shí)實(shí)給服務(wù)器帶來了很大的安全隱患。2008-03-03
Discuz!NT 論壇整合ASP的方法2009-06-06
ASP中格式化時(shí)間短日期補(bǔ)0變兩位長(zhǎng)日期的方法
這篇文章主要介紹了ASP中格式化時(shí)間短日期補(bǔ)0變兩位長(zhǎng)日期的方法,需要的朋友可以參考下2020-04-04