修改ASP产品分类默认展开代码如何实现在默认情况下不显示小类,点击大类才显示小类呢目前是默认全部显示,分类多了太长了.调用的systemcode.asp'subShowAllClass()ifrsBigClass.bofandrsBigClass.eofthenr

Question

修改ASP产品分类默认展开代码
如何实现在默认情况下不显示小类,点击大类才显示小类呢
目前是默认全部显示,分类多了太长了.
调用的systemcode.asp
'
sub ShowAllClass()
if rsBigClass.bof and rsBigClass.eof then
response.Write " 没有任何栏目"
else
dim sqlClass,rsClass,strClassName
rsBigClass.movefirst
do while not rsBigClass.eof
strClassName= "         【" & rsBigClass("BigClassName") & "】
"
sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
do while not rsClass.eof
strClassName=strClassName & "               " & rsClass("SmallClassName") & "
"
rsClass.movenext
loop
response.write strClassName & ""
rsBigClass.movenext
loop
rsClass.close
set rsClass=nothing
end if
end sub

Answer 1

在页面当中加个上这个JS (请自行修改下面的’改成双引号)（百度也真够恶心,回答程序问题居然不让带英文的“”号）function showsubmenu(sid){whichEl = eval(‘submenu’+ sid);if (whichEl.style.display == ‘none...