當(dāng)前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

asp动态树菜单集合(3/3)

發(fā)布時間：2025/3/15 编程问答 12 豆豆

生活随笔收集整理的這篇文章主要介紹了 asp动态树菜单集合(3/3) 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

數(shù)據(jù)庫結(jié)構(gòu)詳見

?http://blog.csdn.net/piperzero/archive/2006/07/25/977083.aspx

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim C01
Dim C01_numRows

Set C01 = Server.CreateObject("ADODB.Recordset")
sql1 = "SELECT * FROM bigclass"
c01.open sql1,conn,1,1

C01_numRows = 0
%>
<%
Dim C2
Dim C2_numRows

Set C2 = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT * FROM smallclass"
c2.open sql2,conn,1,1

C2_numRows = 0
%>
<%
Dim C3
Dim C3_numRows

Set C3 = Server.CreateObject("ADODB.Recordset")
sql3 = "SELECT * FROM minclass"
c3.open sql3,conn,1,1

C3_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
C01_numRows = C01_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>無標題文檔</title>
<script>// Example: obj = findObj("image1");
function findObj(theObj, theDoc)
{
? var p, i, foundObj;
?
? if(!theDoc) theDoc = document;
? if( (p = theObj.indexOf("?")) > 0 && parent.frames.length)
? {
??? theDoc = parent.frames[theObj.substring(p+1)].document;
??? theObj = theObj.substring(0,p);
? }
? if(!(foundObj = theDoc[theObj]) && theDoc.all) foundObj = theDoc.all[theObj];
? for (i=0; !foundObj && i < theDoc.forms.length; i++)
??? foundObj = theDoc.forms[i][theObj];
? for(i=0; !foundObj && theDoc.layers && i < theDoc.layers.length; i++)
??? foundObj = findObj(theObj,theDoc.layers[i].document);
? if(!foundObj && document.getElementById) foundObj = document.getElementById(theObj);
?
? return foundObj;
}
</script>
<style type="text/css">

</style>
<style type="text/css">

</style>
</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="2" onselectstart="return false">
? <%
While ((Repeat1__numRows <> 0) AND (NOT C01.EOF))
%>
? <tr>
??? <td class="collapsedFolder" οnmοuseup="with(findObj('C01<%=(C01.Fields.Item("bigclassid").Value)%>').style){display=display=='none'?'':'none';this.style.backgroundImage=display!='none'?'url(e.gif)':'url(c.gif)'}"><%=(C01.Fields.Item("bigclassname").Value)%></td>
? </tr>
? <tr>
??? <td class="submenu" id="C01<%=(C01.Fields.Item("bigclassid").Value)%>" style="display:none">
<%
FilterParam=(C01.Fields.Item("bigclassid").Value)
C2.Filter="bigclassid="&FilterParam
While (NOT C2.EOF)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<%
smallclassname=c2("smallclassname")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from minclass where smallclassname='"&smallclassname&"'"
rs.open sql,conn,1,1%>
??????? <tr>
????????? <td class="collapsedFolder" οnmοuseup="with(findObj('D01<%=(C2.Fields.Item("smallclassid").Value)%>').style){display=display=='none'?'':'none';this.style.backgroundImage=display!='none'?'url(e.gif)':'url(c.gif)'}"><%if rs.recordcount=0 then %>
??? <a href="product.asp?bigclassname=<%=c01("bigclassname")%>&smallclassname=<%=c2("smallclassname")%>"><%=(C2.Fields.Item("smallclassname").Value)%></a><%else%><%=(C2.Fields.Item("smallclassname").Value)%><%end if%></td>
??????? </tr>
??????? <tr>
????????? <td class="submenu" id="D01<%=(C2.Fields.Item("smallclassid").Value)%>" style="display:none"><table width="100%" border="0" cellspacing="0" cellpadding="2">
<%
FilterParam=(C2.Fields.Item("smallclassid").Value)
C3.Filter="smallclassid="&FilterParam
While (NOT C3.EOF)
%>
????????????? <tr>
??????????????? <td class="iefile"><a href="product.asp?bigclassname=<%=c01("bigclassname")%>&smallclassname=<%=c2("smallclassname")%>&minclassname=<%=c3("minclassname")%>"><%=(C3.Fields.Item("minclassname").Value)%></a></td>
????????????? </tr>
<%
C3.MoveNext()
Wend
%>
????????? </table></td>
??????? </tr>
??? </table>
<%
C2.MoveNext()
Wend
%>
?</td>
? </tr>
? <%
? Repeat1__index=Repeat1__index+1
? Repeat1__numRows=Repeat1__numRows-1
? C01.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
C3.Close()
Set C3 = Nothing
%>
<%
C2.Close()
Set C2 = Nothing
%>
<%
C01.Close()
Set C01 = Nothing
%>?

轉(zhuǎn)載于:https://www.cnblogs.com/deve/archive/2006/07/28/2242954.html

總結(jié)

以上是生活随笔為你收集整理的asp动态树菜单集合(3/3)的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。

上一篇： android R vendor.boo
下一篇：测试框架