asp实现无限级分类的方法js版
2018-09-06 12:29
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
%>
上一篇：ASP实现长文章分页
下一篇：无组件文件上传代码实例