zoukankan
html css js c++ java
又一个动态树形菜单
<
!
--
#include file
=
"
inc/conn.asp
"
-->
<
SCRIPT language
=
javascript
>
<
!
--
var tt
=
'
start';
var ii
=
'
start';
function
turnit(ss,bb) {
if
(ss.style.display
==
"
none
"
) {
if
(tt!
=
'
start')
tt.style.display
=
"
none
"
;
if
(ii!
=
'
start')
ii.src
=
"
dian.gif
"
;
ss.style.display
=
""
;
tt
=
ss;
ii
=
bb;
bb.src
=
"
ball.gif
"
;
}
else
{
ss.style.display
=
"
none
"
;
bb.src
=
"
dian.gif
"
;
}
}
function
MM_openBrWindow(theURL,winName,features) {
//
v2.
0
window.open(theURL,winName,features);
}
//-->
</
SCRIPT
>
<
META http
-
equiv
=
Content
-
Type content
=
"
text/html; charset=gb2312
"
>
<
META content
=
"
MSHTML 6.00.2900.2873
"
name
=
GENERATOR
></
HEAD
>
<
BODY bgColor
=
#ffffff leftMargin
=
0
topMargin
=
0
MARGINHEIGHT
=
"
0
"
MARGINWIDTH
=
"
0
"
>
<
TABLE cellSpacing
=
0
cellPadding
=
0
width
=
1024
border
=
0
>
<
TBODY
>
<
TR
>
<
TD vAlign
=
top
>
<
TABLE cellSpacing
=
0
cellPadding
=
0
width
=
1024
border
=
0
>
<
TBODY
>
<
TR
>
<
TD
>
<
TABLE cellSpacing
=
0
cellPadding
=
0
width
=
227
border
=
0
>
<
TBODY
>
<
TR
>
<
TD
><
TABLE cellSpacing
=
0
cellPadding
=
0
width
=
227
border
=
0
>
<
TBODY
>
<
TR
>
<
TD width
=
25
background
=
image
/
zuo_1.gif
></
TD
>
<
TD width
=
15
></
TD
>
<
TD
>
<
TABLE cellSpacing
=
0
cellPadding
=
0
width
=
160
border
=
0
>
<
TBODY
>
<
TR
>
<
TD vAlign
=
top
>
<
TABLE height
=
8
cellSpacing
=
0
cellPadding
=
0
width
=
"
100%
"
border
=
0
>
<
TBODY
>
<
TR
>
<
TD height
=
8
></
TD
></
TR
></
TBODY
></
TABLE
>
<
!
--
加入动态树
-->
<
% sql
=
"
select bigclassid,bigclassname from bigclass
"
set
rs
=
conn.execute(sql)
i
=
64
Do
while
not
rs.eof
bigclassname
=
rs(
"
bigclassname
"
)
i
=
i
+
1
zimu
=
Chr
(i)
%
>
<
!
--
判断是否有子目录
-->
<
%sql
=
"
select * from smallclass where bigclassname='
"
&
bigclassname
&
"
'
"
set
rs2
=
Server.CreateObject(
"
ADODB.Recordset
"
)
rs2.open sql,conn,
1
,
1
'
不要使用conn.execute
If
rs2.recordcount
>
0
then
%
>
<
TABLE cellSpacing
=
0
cellPadding
=
0
width
=
"
90%
"
border
=
0
>
<
TBODY
>
<
TR
>
<
TD language
=
JScript id
=
tag
<
%
=
zimu%
>
style
=
"
CURSOR: hand
"
onclick
=
turnit(content
<
%
=
zimu%
>
,tag
<
%
=
zimu%
>
); vAlign
=
center
height
=
19
>&
nbsp;
<
IMG height
=
12
src
=
"
image/006.gif
"
width
=
9
><
SPAN
class
=
un2
><
%
=
rs(
"
bigclassname
"
)%
></
SPAN
></
TD
></
TR
></
TBODY
></
TABLE
>
<
%
else
%
>
<
TABLE cellSpacing
=
0
cellPadding
=
0
width
=
"
90%
"
border
=
0
>
<
TBODY
>
<
TR
>
<
TD height
=
19
>&
nbsp;
<
IMG height
=
12
src
=
"
image/006.gif
"
width
=
9
>&
nbsp;
<
A
class
=
un2
href
=
"
product.asp?bigclassname=<%=rs(
"
bigclassname
"
)%>
"
><
%
=
rs(
"
bigclassname
"
)%
>
</
A
></
TD
></
TR
></
TBODY
></
TABLE
>
<
%
end
if
%
>
<
!
--
结束判断小类
-->
<
!
--
小类开始
-->
<
DIV id
=
content
<
%
=
zimu%
>
style
=
"
DISPLAY: none
"
align
=
middle
>
<
%
Do
While
Not
rs2.eof
%
>
<
TABLE cellSpacing
=
0
cellPadding
=
0
width
=
"
90%
"
border
=
0
>
<
TBODY
>
<
TR
>
<
TD height
=
19
>&
nbsp;
&
nbsp;
<
IMG height
=
12
src
=
"
image/006-1.gif
"
width
=
9
><
SPAN
class
=
un2
><
A class
=
un2
href
=
"
product.asp?bigclassname=<%=rs(
"
bigclassname
"
)%>&smallclassname=<%=rs2(
"
smallclassname
"
)%>
"
><
%
=
rs2(
"
smallclassname
"
)%
>
</
A
></
SPAN
></
TD
></
TR
></
TBODY
></
TABLE
>
<
%rs2.movenext
loop
%
>
<
!
--
小类结束
-->
</
DIV
>
<
%rs.movenext
loop
%
>
</
TD
></
TR
></
TBODY
></
TABLE
></
TD
>
<
TD width
=
24
background
=
image
/
zuo_3.gif
></
TD
></
TR
></
TBODY
></
TABLE
></
TD
></
TR
></
TBODY
></
TABLE
></
TD
>
<
TD vAlign
=
top align
=
left
>&
nbsp;
</
TD
>
<
TD vAlign
=
top background
=
image
/
main1_2.gif
>&
nbsp;
</
TD
>
<
TD
></
TD
></
TR
></
TBODY
></
TABLE
></
TD
></
TR
>
<
TR
>
<
TD
>&
nbsp;
</
TD
>
</
TR
></
TBODY
></
TABLE
></
BODY
>
查看全文
相关阅读:
用javascript进行拖拽3(转)
用javascript进行拖拽4(转)
设计模式:设计自己的MVC框架(转)
用javascript进行拖拽1(转)
.NET Framework
微软软件开发技术二十年回顾
.NET Framework是什么
.net中语音识别和语音合成入门篇
用javascript进行拖拽5(转)
.net3.0
原文地址:https://www.cnblogs.com/zerogo/p/2209391.html
最新文章
Delphi 如何区分虚拟网卡与物理网卡
oracle 表空间适用方法
Oracle Oracle 更改表空间大小/用户空间限额
在Oracle中查询表的大小和表空间的大小
delphi 获取网卡信息(支持多网卡) 转
删除orale 表空间
Jave JDK 配置
DELPHI获取网卡MAC地址 转
Delphi 获取网卡地址
delphi 方法的覆盖和隐藏和重载
热门文章
vi中跳到文件的第一行和最后一行
mac 不限速下载大文件
mac解压7z格式文件
如何查看mac系统是32位还是64位的操作系统
PHP工程师面试题
亚马逊AWS服务器CentOS/Linux系统Shell安装Nginx及配置自启动
为.NET程序批上WPF的绚丽外衣(转)
Java虚拟机(了解一下)
用javascript进行拖拽2(转)
WPF简介(转)
Copyright © 2011-2022 走看看