求助一下拉菜单的问题

Question

sub showMenu()
    dim menuStr
    for i=0 to ubound(menu,1)
        menuStr = "<table cellpadding=0 cellspacing=0 width=158>"&_
                  "<tr>"&_
                  "<td height=20 class=menu_title onmouseover='this.className=""menu_title2""' onmouseout='this.className=""menu_title"";' background=images/admin_left_"&(i+1)&".gif id=menuTitle1 onclick=showsubmenu("&i&")>"&_
                  "<span>"&menu(i,0)&"</span>"&_
                  "</td>"&_
                  "</tr>"&_
                  "<tr>"&_
                  "<td style='display:none' id='submenu"&i&"'>"&_   
                  "<div class=sec_menu style='width:180'>"&_ 
                  "<table cellpadding=0 cellspacing=0 align=center width=180 ID=Table1>"   
  
        for j=1 to ubound(menu,2)
            if isempty(menu(i,j)) then exit for
            menuStr = menuStr&"<tr><td height=16>"&menu(i,j)&"</td></tr>"
        next
        
        menuStr = menuStr&"</table>"&_
                          "</div>"&_
                          "</td>"&_
                          "</tr>"&_
                          "</table>"
                          
        Response.Write menuStr
    next
end sub

Answer 1

http://www.threadbar.com.cn/new/index.asp
以上是相应效果,点击产品的大类,转到相应页面后,小类应该下拉显示的才对...而现在是闪一下,,,下拉的内容就没有了
谁能帮俺解决了下???多谢!!!

Answer 2

点击链接,进入新的页面,代码重新加载了,当然是恢复到最初的状态.
要解决这个问题,必须在每个不同的产品页面,设一个变量,根据变量值,判断当前是哪类产品,然后决定展开哪一项.<%sub showMenu()
    dim ProId,TempStr '增加两变量
    ProId = 0         '根据当前产品类设置此值
    dim menuStr
    for i=0 to ubound(menu,1)
        TempStr = "none"
        if ProId = i then TempStr = "" '如果是当前产品类则展开
        menuStr = "<table cellpadding=0 cellspacing=0 width=158>"&_
                  "<tr>"&_
                  "<td height=20 class=menu_title onmouseover='this.className=""menu_title2""' onmouseout='this.className=""menu_title"";' background=images/admin_left_"&(i+1)&".gif id=menuTitle1 onclick=showsubmenu("&i&")>"&_
                  "<span>"&menu(i,0)&"</span>"&_
                  "</td>"&_
                  "</tr>"&_
                  "<tr>"&_
                  "<td style='display:" & TempStr & "' id='submenu"&i&"'>"&_   '注意此行用到了TempStr变量
                  "<div class=sec_menu style='width:180'>"&_ 
                  "<table cellpadding=0 cellspacing=0 align=center width=180 ID=Table1>"   
  
        for j=1 to ubound(menu,2)
            if isempty(menu(i,j)) then exit for
            menuStr = menuStr&"<tr><td height=16>"&menu(i,j)&"</td></tr>"
        next
        
        menuStr = menuStr&"</table>"&_
                          "</div>"&_
                          "</td>"&_
                          "</tr>"&_
                          "</table>"
                          
        Response.Write menuStr
    next
end sub
%>

Answer 3

楼上代码实现的效果是第一类"Threadbar"是始终展开的...点其它的并没显示下拉内容

Answer 4

晕~~算你狠
写得很明白啊,不同产品的页面这个值不一样啊,如果是第2类产品,这个值就设为1,以此类推.    ProId = 0         '根据当前产品类设置此值