我的收縮菜單代碼如下面，
下面的代碼變成了當點主菜單的時候，只出現子菜單,附件菜單的效果就是如同　點http://www.gen-tran.com/左邊的Power Cords 出現下面
All Power Cords
Rated 3750 Watts
Rated 20 Amps
Rated 30 Amps
Rated 50 Amps
Contractor Cords
有辦法改成點http://www.csb-battery.com/english/01_product/01_series_01series.php?fid=13　左邊的 EVH Series 出現 EVH Series
EVH12150
EVH12390
Home > Product > EVH Series　的效果嗎？謝謝

<%set rs=server.CreateObject("adodb.recordset")
        rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
        k=0
        strSql = ""
        sltID = request.querystring("sltID")
        do while not rs.eof
         strSql=strSql & "ospan" & k &".style.display='none';"
         k=k+1
         rs.movenext
        loop
rs.movefirst
        j=0
        do while not rs.eof
        if j mod 2 =0 then
        response.Write("<table class=line3 ><tr><td class=leftbutton>")
        else
        response.Write("<table class=line3 ><tr><td class=leftbutton>")
        end if
    
        response.Write("<a href='#' onclick = ""ospan" & j &".style.display='inline';"& Replace(strSql,"ospan" & j &".style.display='none';","") &"""><font class=style5><strong>"&rs("anclass")&"</strong></font></a>")
        response.write("</td></tr></table>")
        If sltID <> "ospan" & j Then
            response.write "<span id='ospan" & j &"' style='display:none'>"
        Else
            response.write "<span id='ospan" & j &"' style='display:inline'>"
        End If
        set rs2=server.CreateObject("adodb.recordset")
        rs2.open "select * from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
        i=0
        do while not rs2.eof
        if rs2("nclassid")=clng(request.QueryString("nid")) then
        
     response.write("      <a href=class.asp?lx=small&anid="&rs("anclassid")&"&nid="&rs2("nclassid")&"&sltID=ospan"&j&" class=subLeftNavi3> <font class=subLeftNavi3 color='#cc0000'>"&rs2("nclass")&"</font></a><br>")
    
else
        
        response.write("      <a href=class.asp?lx=small&anid="&rs("anclassid")&"&nid="&rs2("nclassid")&"&sltID=ospan"&j&" class=subLeftNavi3> <font class=subLeftNavi3>"&rs2("nclass")&"</font></a><br>")
end if

        i=i+1
        if (i mod 2) =0 then
        else
            end if
        rs2.movenext
        loop
        Response.write "</span>"
        j=j+1
        rs.movenext
        loop
        rs2.close
        set rs2=nothing
        rs.close
        set rs=nothing%>