MenuArr=new Array()

MenuLenArr=new Array()

SubMenuArr=new Array()

MenuIdArr=new Array()

MenuArr[1]="<%call top11%>" //洲名|||...

MenuArr[2]="<%call top1%>" //洲名###国名|||...

MenuIdArr[1]="zhou"

MenuIdArr[2]="author"

MenuClass=2 //4级菜单

splitchar1="|||";

splitchar2="###";

基本的menuArr[1]与menuArr[2]用类输出

options.add(new Option( "-----请选择-----",""));

add(new Option("text","value"))用法

js生成的value值为top1中的名字,有些用id,有些用文字,在结合数据库select的可行性的原则下修改

sub top1

sql="select * from type2"

rs.open sql,conn,1,1

while not rs.eof

a=rs("id2")

b=rs("p_type2")

call top2(a,a)

rs.movenext

wend

rs.close

end sub

sub top11

sql="select * from type2"

rs.open sql,conn,1,1

while not rs.eof

response.write (rs("p_type2")&"|||")

rs.movenext

wend

rs.close

end sub

sub top2 (id,b)

sqle="select DISTINCT(author) from product where id2="&id

set rsa=server.CreateObject("adodb.recordset")

rsa.open sqle,conn,1,1

if not(rsa.eof) then

while not rsa.eof

response.write (b&"###")

response.write rsa("author")&"|||"

rsa.movenext

wend

else

response.write (b&"###")

response.write "无"&"|||"

end if

rsa.close

end sub

%>