ダウンロード場所： http://www.knowsky.com/download/treemenu.rar
关键代：
<%
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
機能メニュー(ID)
set rs=server.CreateObject("adodb.recordset")
sql="select * from menu where id1="&id&" URL,idで並べ替え"
rs.open SQL,conn,1,1
rs.recordcount=0 の場合
rs.close
rs=何も設定しない
終了関数
終了する場合
response.write("<table border='0' cellpacing='0' cellpadding='0'>")
i=1
rs.eofではない間
len(rs("url"))>0の場合
i=rs.recordcount の場合
メニュータイプ="ファイル1"
それ以外
メニュータイプ="ファイル"
終了する場合
menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
オンマウスアップ=""
それ以外
i=rs.recordcount の場合
メニュータイプ="メニュー3"
リストタイプ="リスト1"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else {style.display='';this.className='menu4';}"
それ以外
メニュータイプ="メニュー1"
リストタイプ="リスト"
onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else {style.display='';this.className='menu2';}"
終了する場合
メニュー名=rs("メニュー名")
終了する場合
%>
<tr>
<td class="<%= menutype%>" onMouseUp="<%= onmouseup%>"><%= menuname%></td>
</tr>
<%if len(rs("url"))<3 then%>
<tr id="id<%= rs("id")%>" style="display:none">
<td class="<%= listtype%>"><%menu(rs("id"))%></td>
</tr>
<%
終了する場合
rs.movenext
i=i+1
曲がります
response.write("</テーブル>")
rs.close
rs=何も設定しない
終了関数
%>
<html>
<頭>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>=========無制限级目录树=========http://www.downcodes.com</title>
<style type="text/css">
<!--
.menu1 {
背景画像: url(folder1.gif);
背景リピート: リピートなし;
高さ: 17px;
左: 32ピクセル;
パディング左: 32px;
カーソル: 手;
}
.menu2 {
背景画像: url(folder2.gif);
背景リピート: リピートなし;
高さ: 17px;
左: 32ピクセル;
パディング左: 32px;
カーソル: 手;
}
.menu3 {
背景画像: URL(folder3.gif);
背景リピート: リピートなし;
高さ: 17px;
左: 32ピクセル;
パディング左: 32px;
カーソル: 手;
}
.menu4 {
背景画像: URL(folder4.gif);
背景リピート: リピートなし;
高さ: 17px;
左: 32ピクセル;
パディング左: 32px;
カーソル: 手;
}
.list {
パディング左: 20px;
背景画像: URL(list.gif);
背景-リピート: リピート-y;
}
.list1 {
パディング左: 20px;
}
。ファイル {
背景画像: url(file.gif);
背景リピート: リピートなし;
高さ: 16px;
カーソル: 手;
パディング左: 32px;
}
.file1 {
背景画像: URL(file1.gif);
背景リピート: リピートなし;
高さ: 16px;
カーソル: 手;
パディング左: 32px;
}
体 {
フォントサイズ: 9pt;
色: #000000;
背景色: #FFFFFF;
}
a:リンク{
フォントサイズ: 9pt;
色: #000000;
テキスト装飾: なし。
}
a: 訪問しました {
フォントサイズ: 9pt;
色: #000000;
テキスト装飾: なし。
}
a:ホバー{
フォントサイズ: 9pt;
色: #0000FF;
テキスト装飾: なし。
位置: 相対的;
右: 1px;
下: 1px;
}
a:アクティブ {
フォントサイズ: 9pt;
色: #000000;
テキスト装飾: なし。
}
-->
</スタイル>
</head>
<本文>
<a href="http://www.downcodes.com/" target="_blank">http://www.knowsky.com/</a> 最新ダウンロード《<a href="menu.asp">を提供》管理</a>》<br>
<%
メニュー0
接続閉じる
conn=何も設定しない
%>
</body>
</html>